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

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 29c2adf5bc6e2a921f9d980c063f65d884b31f96..946c0572acb4d58409ad25e5ed418bf33d4e5270 100644 (file)
--- 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.")
+\f
 ;;; 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))