# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797322125 0
# Node ID c271ed10f87406c0948958d8b9b54b8786d8a140
# Parent  2bb1a6595c14c54fcd7732929ff57bedadf08260
(jka-compr-install): Doc fix.
(jka-compr-uninstall): Delete entries that jka-compr-install
added to inhibit-first-line-modes-suffixes.

diff -r 2bb1a6595c14 -r c271ed10f874 lisp/jka-compr.el
--- a/lisp/jka-compr.el	Sat Apr 08 06:20:51 1995 +0000
+++ b/lisp/jka-compr.el	Sat Apr 08 06:22:05 1995 +0000
@@ -714,7 +714,8 @@
 
 (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 @@
 (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))