aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/jka-compr.el
diff options
context:
space:
mode:
authorJoakim Verona2012-01-23 15:10:06 +0100
committerJoakim Verona2012-01-23 15:10:06 +0100
commit0322b140eead7c94de7f0f6d19a90bd15690b4eb (patch)
tree950c011783cc896d0450084cb5155e54548bfe5b /lisp/jka-compr.el
parentd5114bfea3ea4c37c57e2af0f3b095be9fcd8bac (diff)
parentcb5850f27c1b4d26957d58e2da2314dd12498671 (diff)
downloademacs-0322b140eead7c94de7f0f6d19a90bd15690b4eb.tar.gz
emacs-0322b140eead7c94de7f0f6d19a90bd15690b4eb.zip
upstream
Diffstat (limited to 'lisp/jka-compr.el')
-rw-r--r--lisp/jka-compr.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 786e4292d5f..8a8d7cdbb52 100644
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -657,16 +657,15 @@ It is not recommended to set this variable permanently to anything but nil.")
657(defun jka-compr-uninstall () 657(defun jka-compr-uninstall ()
658 "Uninstall jka-compr. 658 "Uninstall jka-compr.
659This removes the entries in `file-name-handler-alist' and `auto-mode-alist' 659This removes the entries in `file-name-handler-alist' and `auto-mode-alist'
660and `inhibit-first-line-modes-suffixes' that were added 660and `inhibit-local-variables-suffixes' that were added
661by `jka-compr-installed'." 661by `jka-compr-installed'."
662 ;; Delete from inhibit-first-line-modes-suffixes 662 ;; Delete from inhibit-local-variables-suffixes what jka-compr-install added.
663 ;; what jka-compr-install added.
664 (mapc 663 (mapc
665 (function (lambda (x) 664 (function (lambda (x)
666 (and (jka-compr-info-strip-extension x) 665 (and (jka-compr-info-strip-extension x)
667 (setq inhibit-first-line-modes-suffixes 666 (setq inhibit-local-variables-suffixes
668 (delete (jka-compr-info-regexp x) 667 (delete (jka-compr-info-regexp x)
669 inhibit-first-line-modes-suffixes))))) 668 inhibit-local-variables-suffixes)))))
670 jka-compr-compression-info-list--internal) 669 jka-compr-compression-info-list--internal)
671 670
672 (let* ((fnha (cons nil file-name-handler-alist)) 671 (let* ((fnha (cons nil file-name-handler-alist))