28 |
"Non-nil if in Encoded-kbd minor mode.") |
"Non-nil if in Encoded-kbd minor mode.") |
29 |
(put 'encoded-kbd-mode 'permanent-local t) |
(put 'encoded-kbd-mode 'permanent-local t) |
30 |
|
|
31 |
(let ((slot (assq 'encoded-kbd-mode minor-mode-alist)) |
;;; (let ((slot (assq 'encoded-kbd-mode minor-mode-alist)) |
32 |
(name " Encoded-kbd")) |
;;; (name " Encoded-kbd")) |
33 |
(if slot |
;;; (if slot |
34 |
(setcar (cdr slot) name) |
;;; (setcar (cdr slot) name) |
35 |
(setq minor-mode-alist |
;;; (setq minor-mode-alist |
36 |
(cons '(encoded-kbd-mode " Encoded-kbd") minor-mode-alist)))) |
;;; (cons '(encoded-kbd-mode " Encoded-kbd") minor-mode-alist)))) |
37 |
|
|
38 |
(defconst encoded-kbd-mode-map (make-sparse-keymap) |
(defconst encoded-kbd-mode-map (make-sparse-keymap) |
39 |
"Keymap for Encoded-kbd minor mode.") |
"Keymap for Encoded-kbd minor mode.") |