From fd9c0cf1816352887538c253120159bcf6f1242c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Nov 2001 10:54:56 +0000 Subject: [PATCH] Don't alter minor-mode-alist. --- lisp/ChangeLog | 4 ++++ lisp/international/encoded-kb.el | 12 ++++++------ 2 files changed, 10 insertions(+), 6 deletions(-) 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 + + * international/encoded-kb.el: Don't alter minor-mode-alist. + 2001-11-20 Stefan Monnier * 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.") -- 2.39.2