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))