comparison lisp/international/encoded-kb.el @ 41344:439723f7a566

Don't alter minor-map-alist.
author Richard M. Stallman <rms@gnu.org>
date Wed, 21 Nov 2001 10:41:45 +0000
parents 67b464da13ec
children 3fb1c54eb631
comparison
equal deleted inserted replaced
41343:54db34b4f62c 41344:439723f7a566
26 26
27 (defvar encoded-kbd-mode nil 27 (defvar encoded-kbd-mode nil
28 "Non-nil if in Encoded-kbd minor mode.") 28 "Non-nil if in Encoded-kbd minor mode.")
29 (put 'encoded-kbd-mode 'permanent-local t) 29 (put 'encoded-kbd-mode 'permanent-local t)
30 30
31 (let ((slot (assq 'encoded-kbd-mode minor-mode-alist)) 31 ;;; (let ((slot (assq 'encoded-kbd-mode minor-mode-alist))
32 (name " Encoded-kbd")) 32 ;;; (name " Encoded-kbd"))
33 (if slot 33 ;;; (if slot
34 (setcar (cdr slot) name) 34 ;;; (setcar (cdr slot) name)
35 (setq minor-mode-alist 35 ;;; (setq minor-mode-alist
36 (cons '(encoded-kbd-mode " Encoded-kbd") minor-mode-alist)))) 36 ;;; (cons '(encoded-kbd-mode " Encoded-kbd") minor-mode-alist))))
37 37
38 (defconst encoded-kbd-mode-map (make-sparse-keymap) 38 (defconst encoded-kbd-mode-map (make-sparse-keymap)
39 "Keymap for Encoded-kbd minor mode.") 39 "Keymap for Encoded-kbd minor mode.")
40 40
41 (let ((slot (assq 'encoded-kbd-mode minor-mode-map-alist))) 41 (let ((slot (assq 'encoded-kbd-mode minor-mode-map-alist)))