Mercurial > emacs
changeset 7617:edc853e14f7b
(jka-compr-op-table, jka-compr-file-name-handler-entry): Move defvars.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 22 May 1994 07:59:39 +0000 |
| parents | b0098553bafe |
| children | 45298374e242 |
| files | lisp/jka-compr.el |
| diffstat | 1 files changed, 8 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/jka-compr.el Sun May 22 07:57:30 1994 +0000 +++ b/lisp/jka-compr.el Sun May 22 07:59:39 1994 +0000 @@ -171,6 +171,14 @@ 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 @@ 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 @@ (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))