Don't alter minor-mode-alist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8a629d421c8bcf42ffc4e1170fe69fdadfde314a..2a61f0fed36e8676b4d2be79dd8b87e617ec1287 100644 (file)
--- 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 fa3a6407c6b040a886674abef419bdf9be46e491..754ba2b77c0055b5d5bada25754e8fbf81853ff3 100644 (file)
--- 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.")