diff options
| author | Miles Bader <miles@gnu.org> | 2000-10-08 23:35:47 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2000-10-08 23:35:47 +0000 |
| commit | 7dbc9c8a2ce6179bee9c82740b2232c22b6a6be3 (patch) | |
| tree | 96569a74304dae107b0d22c60a4d2cd910c4154e /lisp/jka-compr.el | |
| parent | 33c7a00c075f8ca2aabf39493e77b7c919d27d2d (diff) | |
| download | emacs-7dbc9c8a2ce6179bee9c82740b2232c22b6a6be3.tar.gz | |
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'.
Diffstat (limited to 'lisp/jka-compr.el')
| -rw-r--r-- | lisp/jka-compr.el | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 9adeddfefa7..036b6db5847 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -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. |