From 555235e68725fef84e088a67a9e387ba48d46c72 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 22 May 1994 07:59:39 +0000 Subject: [PATCH] (jka-compr-op-table, jka-compr-file-name-handler-entry): Move defvars. --- lisp/jka-compr.el | 18 ++++++++---------- 1 file 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)) -- 2.39.5