267 |
(add-minor-mode ',mode ',lighter |
(add-minor-mode ',mode ',lighter |
268 |
,(if keymap keymap-sym |
,(if keymap keymap-sym |
269 |
`(if (boundp ',keymap-sym) |
`(if (boundp ',keymap-sym) |
270 |
(symbol-value ',keymap-sym)))) |
(symbol-value ',keymap-sym))))))) |
|
|
|
|
;; If the mode is global, call the function according to the default. |
|
|
,(if globalp |
|
|
`(if (and load-file-name (not (equal ,init-value ,mode))) |
|
|
(eval-after-load load-file-name '(,mode (if ,mode 1 -1)))))))) |
|
271 |
|
|
272 |
;;; |
;;; |
273 |
;;; make global minor mode |
;;; make global minor mode |