Mercurial > emacs
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))) |