diff options
Diffstat (limited to 'lisp/jka-compr.el')
| -rw-r--r-- | lisp/jka-compr.el | 9 |
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. |
| 659 | This removes the entries in `file-name-handler-alist' and `auto-mode-alist' | 659 | This removes the entries in `file-name-handler-alist' and `auto-mode-alist' |
| 660 | and `inhibit-first-line-modes-suffixes' that were added | 660 | and `inhibit-local-variables-suffixes' that were added |
| 661 | by `jka-compr-installed'." | 661 | by `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)) |