diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-22 07:59:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-22 07:59:39 +0000 |
| commit | 4a8bd34432489830d837717fe7eb420f094a114e (patch) | |
| tree | b3080839b8479ea0311136f05da4ef44effbf737 /lisp/jka-compr.el | |
| parent | 12067e6bd93a2f8505bb7d7da5d6022943ab3937 (diff) | |
| download | emacs-4a8bd34432489830d837717fe7eb420f094a114e.tar.gz | |
(jka-compr-op-table, jka-compr-file-name-handler-entry): Move defvars.
Diffstat (limited to 'lisp/jka-compr.el')
| -rw-r--r-- | lisp/jka-compr.el | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 29c2adf5bc6..946c0572acb 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -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)) |