/[emacs]/emacs/lisp/international/encoded-kb.el
ViewVC logotype

Diff of /emacs/lisp/international/encoded-kb.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by pj, Sun Jul 15 19:53:53 2001 UTC revision 1.24 by rms, Wed Nov 21 10:41:45 2001 UTC
# Line 28  Line 28 
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.")

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26