diff options
author | Luc Teirlinck <teirllm@auburn.edu> | 2006-02-27 01:51:17 +0000 |
---|---|---|
committer | Luc Teirlinck <teirllm@auburn.edu> | 2006-02-27 01:51:17 +0000 |
commit | 60cc4a604df59aeaae8397108e6bb9435820cef0 (patch) | |
tree | 4517b49e5f56d2e9658e153e8cbddfea1131b781 /lisp/jka-compr.el | |
parent | d92b8cab07921d19bdf41dbf8e018e8a5c6ce016 (diff) | |
download | emacs-60cc4a604df59aeaae8397108e6bb9435820cef0.tar.gz |
(jka-compr-uninstall): Replace `mapcar' with `mapc'.
Update `load-file-rep-suffixes' instead of `load-suffixes'.
Use jka-compr-compression-info-list--internal,
jka-compr-mode-alist-additions--internal and
jka-compr-load-suffixes--internal.
Diffstat (limited to 'lisp/jka-compr.el')
-rw-r--r-- | lisp/jka-compr.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 389944fa3e2..82c0461a3f8 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -662,13 +662,13 @@ and `inhibit-first-line-modes-suffixes' that were added by `jka-compr-installed'." ;; Delete from inhibit-first-line-modes-suffixes ;; what jka-compr-install added. - (mapcar + (mapc (function (lambda (x) (and (jka-compr-info-strip-extension x) (setq inhibit-first-line-modes-suffixes (delete (jka-compr-info-regexp x) inhibit-first-line-modes-suffixes))))) - jka-compr-compression-info-list) + jka-compr-compression-info-list--internal) (let* ((fnha (cons nil file-name-handler-alist)) (last fnha)) @@ -686,7 +686,7 @@ by `jka-compr-installed'." (while (cdr last) (setq entry (car (cdr last))) - (if (or (member entry jka-compr-mode-alist-additions) + (if (or (member entry jka-compr-mode-alist-additions--internal) (and (consp (cdr entry)) (eq (nth 2 entry) 'jka-compr))) (setcdr last (cdr (cdr last))) @@ -701,12 +701,12 @@ by `jka-compr-installed'." file-coding-system-alist))) ;; Remove the suffixes that were added by jka-compr. - (let ((suffixes nil) - (re (jka-compr-build-file-regexp))) - (dolist (suffix load-suffixes) - (unless (string-match re suffix) - (push suffix suffixes))) - (setq load-suffixes (nreverse suffixes)))) + (dolist (suff jka-compr-load-suffixes--internal) + (setq load-file-rep-suffixes (delete suff load-file-rep-suffixes))) + + (setq jka-compr-compression-info-list--internal nil + jka-compr-mode-alist-additions--internal nil + jka-compr-load-suffixes--internal nil)) (provide 'jka-compr) |