From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 8 Apr 1995 06:22:05 +0000 (+0000)
Subject: (jka-compr-install): Doc fix.
X-Git-Tag: emacs-19.34~4562
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=919a07bb1d628890cbd729285d9b307bb9fe471f;p=emacs.git

(jka-compr-install): Doc fix.
(jka-compr-uninstall): Delete entries that jka-compr-install
added to inhibit-first-line-modes-suffixes.
---

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index c6a3b97879b..5c139c865dd 100644
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -714,7 +714,8 @@ Returns the new status of auto compression (non-nil means on)."
 
 (defun jka-compr-install ()
   "Install jka-compr.
-This adds entries to `file-name-handler-alist' and `auto-mode-alist'."
+This adds entries to `file-name-handler-alist' and `auto-mode-alist'
+and `inhibit-first-line-modes-suffixes'."
 
   (setq jka-compr-file-name-handler-entry
 	(cons (jka-compr-build-file-regexp) 'jka-compr-handler))
@@ -747,7 +748,17 @@ This adds entries to `file-name-handler-alist' and `auto-mode-alist'."
 (defun jka-compr-uninstall ()
   "Uninstall jka-compr.
 This removes the entries in `file-name-handler-alist' and `auto-mode-alist'
-that were created by `jka-compr-installed'."
+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
+     (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)
 
   (let* ((fnha (cons nil file-name-handler-alist))
 	 (last fnha))