From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Nov 2001 10:54:56 +0000 (+0000)
Subject: Don't alter minor-mode-alist.
X-Git-Tag: emacs-21.2~274
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd9c0cf1816352887538c253120159bcf6f1242c;p=emacs.git

Don't alter minor-mode-alist.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8a629d421c8..2a61f0fed36 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-21  Richard M. Stallman  <rms@gnu.org>
+
+	* international/encoded-kb.el: Don't alter minor-mode-alist.
+
 2001-11-20  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* progmodes/tcl.el (tcl-indent-for-comment): Handle the case where
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el
index fa3a6407c6b..754ba2b77c0 100644
--- a/lisp/international/encoded-kb.el
+++ b/lisp/international/encoded-kb.el
@@ -28,12 +28,12 @@
   "Non-nil if in Encoded-kbd minor mode.")
 (put 'encoded-kbd-mode 'permanent-local t)
 
-(let ((slot (assq 'encoded-kbd-mode minor-mode-alist))
-      (name " Encoded-kbd"))
-  (if slot
-      (setcar (cdr slot) name)
-    (setq minor-mode-alist
-	  (cons '(encoded-kbd-mode " Encoded-kbd") minor-mode-alist))))
+;;; (let ((slot (assq 'encoded-kbd-mode minor-mode-alist))
+;;;       (name " Encoded-kbd"))
+;;;   (if slot
+;;;       (setcar (cdr slot) name)
+;;;     (setq minor-mode-alist
+;;; 	  (cons '(encoded-kbd-mode " Encoded-kbd") minor-mode-alist))))
 
 (defconst encoded-kbd-mode-map (make-sparse-keymap)
   "Keymap for Encoded-kbd minor mode.")