From 2b452d74cf0ddeb7e3afe428c8d46ca5fb573145 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Nov 2001 10:42:11 +0000 Subject: Don't alter minor-map-alist. --- lisp/international/encoded-kb.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'lisp/international/encoded-kb.el') 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.") -- cgit v1.2.1