mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(jka-compr-op-table, jka-compr-file-name-handler-entry): Move defvars.

Browse source
This commit is contained in:
Richard M. Stallman 1994-05-22 07:59:39 +00:00
parent ede9c6a855
commit 555235e687
1 changed files with 8 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/jka-compr.el
View file

@ -171,6 +171,14 @@ a program adds the overhead of starting a shell each time the program is
invoked.")
(defvar jka-compr-file-name-handler-entry
nil
"The entry in `file-name-handler-alist' used by the jka-compr I/O functions.")
(defvar jka-compr-op-table
(make-vector 127 0)
"Hash table of operations supported by jka-compr.")
;;; Functions for accessing the return value of jka-get-compression-info
(defun jka-compr-info-regexp (info) (aref info 0))
(defun jka-compr-info-compress-message (info) (aref info 1))
@ -656,11 +664,6 @@ There should be no more than seven characters after the final `/'")
t))
(defvar jka-compr-file-name-handler-entry
nil
"The entry in `file-name-handler-alist' used by the jka-compr I/O functions.")
(defun jka-compr-handler (operation &rest args)
(let ((jka-op (intern-soft (symbol-name operation) jka-compr-op-table))
@ -692,11 +695,6 @@ There should be no more than seven characters after the final `/'")
(inhibit-file-name-operation operation))
(apply operation args)))
(defvar jka-compr-op-table
(make-vector 127 0)
"Hash table of operations supported by jka-compr.")
(defun jka-compr-intern-operation (op)
(let ((opsym (intern (symbol-name op) jka-compr-op-table))