Commit 7dbc9c8a authored by Miles Bader's avatar Miles Bader
Browse files

Don't call `jka-compr-install' when loading (it will be done by the

definition of `auto-compression-mode' if necessary).

Move code to uninstall existing file-name handler before definition of
`auto-compression-mode'.
parent 33c7a00c
2000-10-09 Miles Bader <miles@gnu.org>
* jka-compr.el: Don't call `jka-compr-install' when loading (it
will be done by the definition of `auto-compression-mode' if
necessary. Move code to uninstall existing file-name handler
before definition of `auto-compression-mode'.
* image-file.el (auto-image-file-mode): Move to the end of the
file, because `define-minor-mode' actually calls the mode-function
if the associated variable is non-nil, which requires that all
needed functions be already defined.
2000-10-08 Dave Love <fx@gnu.org>
* progmodes/ada-mode.el (ada-mode-menu): Add name to menu map.
......
......@@ -873,6 +873,17 @@ The return value is the entry in `file-name-handler-alist' for jka-compr."
installed))
;;; Add the file I/O hook if it does not already exist.
;;; Make sure that jka-compr-file-name-handler-entry is eq to the
;;; entry for jka-compr in file-name-handler-alist.
(and (jka-compr-installed-p)
(jka-compr-uninstall))
;;; Note this definition must be at the end of the file, because
;;; `define-minor-mode' actually calls the mode-function if the
;;; associated variable is non-nil, which requires that all needed
;;; functions be already defined. [This is arguably a bug in d-m-m]
;;;###autoload
(define-minor-mode auto-compression-mode
"Toggle automatic file compression and uncompression.
......@@ -890,7 +901,7 @@ Returns the new status of auto compression (non-nil means on)."
;;;###autoload
(defmacro with-auto-compression-mode (&rest body)
"Evalutes BODY with automatic file compression and uncompression enabled."
"Evalute BODY with automatic file compression and uncompression enabled."
(let ((already-installed (make-symbol "already-installed")))
`(let ((,already-installed (jka-compr-installed-p)))
(unwind-protect
......@@ -903,15 +914,6 @@ Returns the new status of auto compression (non-nil means on)."
(put 'with-auto-compression-mode 'lisp-indent-function 0)
;;; Add the file I/O hook if it does not already exist.
;;; Make sure that jka-compr-file-name-handler-entry is eq to the
;;; entry for jka-compr in file-name-handler-alist.
(and (jka-compr-installed-p)
(jka-compr-uninstall))
(jka-compr-install)
(provide 'jka-compr)
;; jka-compr.el ends here.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment