mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 15:50:40 -08:00
Code Issues Projects Releases Wiki Activity

(easy-mmode-define-minor-mode):

Browse source 
On repeated call, override previous values put into
minor-mode-map-alist and minor-mode-alist.
This commit is contained in:
Karl Heuer 1999-08-28 15:13:37 +00:00
parent 620fdfdf61
commit 5e21ef7a07
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/emacs-lisp/easy-mmode.el
View file

@ -137,11 +137,11 @@ in order to build a valid keymap.
(keymap-name (concat mode-name "-map"))
(keymap-doc (format "Keymap for %s mode." mode-name)))
`(progn
;; define the switch
;; Define the variable to enable or disable the mode.
(defvar ,mode ,init-value ,mode-doc)
(make-variable-buffer-local ',mode)
;; define the minor-mode keymap
;; Define the minor-mode keymap.
(defvar ,(intern keymap-name)
(cond ((and ,keymap (keymapp ,keymap))
,keymap)
@ -150,18 +150,21 @@ in order to build a valid keymap.
(t (error "Invalid keymap %S" ,keymap)))
,keymap-doc)
;; define the toggle and the hooks
,(macroexpand `(easy-mmode-define-toggle ,mode ,doc)) ; toggle and hooks
;; Define the toggle and the hooks.
,(macroexpand `(easy-mmode-define-toggle ,mode ,doc))
;; update the mode-bar
;; Update the mode line.
(or (assq ',mode minor-mode-alist)
(setq minor-mode-alist
(cons (list ',mode ,lighter) minor-mode-alist)))
(cons (list ',mode nil) minor-mode-alist)))
(setcar (cdr (assq ',mode minor-mode-alist)) ,lighter)
;; update the minor-mode-map
;; Update the minor mode map.
(or (assq ',mode minor-mode-map-alist)
(setq minor-mode-map-alist
(cons (cons ',mode ,(intern keymap-name)) minor-mode-map-alist)))) ))
(cons (cons ',mode ,(intern keymap-name)) minor-mode-map-alist)))
(setcdr (assq ',mode minor-mode-map-alist)
,(intern keymap-name))) ))
(provide 'easy-mmode)