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
469f4e8c
Commit
469f4e8c
authored
Apr 02, 1995
by
Richard M. Stallman
Browse files
(jka-compr-install): Add items to inhibit-first-line-modes-suffixes.
parent
24aac19d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
8 deletions
+15
-8
lisp/jka-compr.el
lisp/jka-compr.el
+15
-8
No files found.
lisp/jka-compr.el
View file @
469f4e8c
...
...
@@ -722,16 +722,23 @@ This adds entries to `file-name-handler-alist' and `auto-mode-alist'."
(
setq
file-name-handler-alist
(
cons
jka-compr-file-name-handler-entry
file-name-handler-alist
))
;; Make entries in auto-mode-alist so that modes are chosen right
;; according to the file names sans `.gz'.
(
mapcar
(
function
(
lambda
(
x
)
(
and
(
jka-compr-info-strip-extension
x
)
(
setq
auto-mode-alist
(
cons
(
list
(
jka-compr-info-regexp
x
)
nil
'jka-compr
)
auto-mode-alist
)))))
(
and
(
jka-compr-info-strip-extension
x
)
;; Make entries in auto-mode-alist so that modes
;; are chosen right according to the file names
;; sans `.gz'.
(
setq
auto-mode-alist
(
cons
(
list
(
jka-compr-info-regexp
x
)
nil
'jka-compr
)
auto-mode-alist
))
;; Also add these regexps to
;; inhibit-first-line-modes-suffixes, so that a
;; -*- line in the first file of a compressed tar
;; file doesn't override tar-mode.
(
setq
inhibit-first-line-modes-suffixes
(
cons
(
jka-compr-info-regexp
x
)
inhibit-first-line-modes-suffixes
)))))
jka-compr-compression-info-list
)
(
setq
auto-mode-alist
(
append
auto-mode-alist
jka-compr-mode-alist-additions
)))
...
...
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