Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
555235e6
Commit
555235e6
authored
May 22, 1994
by
Richard M. Stallman
Browse files
(jka-compr-op-table, jka-compr-file-name-handler-entry): Move defvars.
parent
ede9c6a8
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
10 deletions
+8
-10
lisp/jka-compr.el
lisp/jka-compr.el
+8
-10
No files found.
lisp/jka-compr.el
View file @
555235e6
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment