mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Add suffixes individually and use minor mode directly

Browse Source 
* lisp/jka-cmpr-hook.el (jka-compr-install): Add jka-compr
  suffixes individually with add-to-list rather than append.
  * (with-auto-compression-mode): Use auto-compression-mode minor mode.
This commit is contained in:
Michael R. Mauger 2024-10-16 17:59:58 -04:00
parent 6213ca44d4
commit aaa734ac6e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/jka-cmpr-hook.el
View File

@ -160,8 +160,8 @@ and `inhibit-local-variables-suffixes'."
(append auto-mode-alist jka-compr-mode-alist-additions))
;; Make sure that (load "foo") will find /bla/foo.el.gz.
(setq load-file-rep-suffixes
(append load-file-rep-suffixes jka-compr-load-suffixes nil)))
(dolist (suff jka-compr-load-suffixes load-file-rep-suffixes)
(add-to-list 'load-file-rep-suffixes suff t)))
(defun jka-compr-installed-p ()
"Return non-nil if jka-compr is installed.
@ -379,14 +379,14 @@ compressed when writing."
"Evaluate BODY with automatic file compression and uncompression enabled."
(declare (indent 0))
(let ((already-installed (make-symbol "already-installed")))
`(let ((,already-installed (jka-compr-installed-p)))
`(let ((,already-installed auto-compression-mode))
(unwind-protect
(progn
(unless ,already-installed
(jka-compr-install))
(auto-compression-mode 1))
,@body)
(unless ,already-installed
(jka-compr-uninstall))))))
(auto-compression-mode -1))))))
;; This is what we need to know about jka-compr-handler
;; in order to decide when to call it.