# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 769593579 0
# Node ID edc853e14f7b33a1258bf667376406bee7fda66d
# Parent  b0098553bafe216c08874c1125851b6c30ffde53
(jka-compr-op-table, jka-compr-file-name-handler-entry): Move defvars.

diff -r b0098553bafe -r edc853e14f7b lisp/jka-compr.el
--- 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))