203 |
(if (interactive-p) |
(if (interactive-p) |
204 |
(progn |
(progn |
205 |
,(if globalp `(customize-mark-as-set ',mode)) |
,(if globalp `(customize-mark-as-set ',mode)) |
206 |
|
(unless (current-message) |
207 |
(message ,(format "%s %%sabled" pretty-name) |
(message ,(format "%s %%sabled" pretty-name) |
208 |
(if ,mode "en" "dis")))) |
(if ,mode "en" "dis"))))) |
209 |
(force-mode-line-update) |
(force-mode-line-update) |
210 |
;; Return the new setting. |
;; Return the new setting. |
211 |
,mode) |
,mode) |
|
|
|
212 |
;; Autoloading an easy-mmode-define-minor-mode autoloads |
;; Autoloading an easy-mmode-define-minor-mode autoloads |
213 |
;; everything up-to-here. |
;; everything up-to-here. |
214 |
:autoload-end |
:autoload-end |
341 |
Optional NAME is passed to `make-sparse-keymap'. |
Optional NAME is passed to `make-sparse-keymap'. |
342 |
Optional map M can be used to modify an existing map. |
Optional map M can be used to modify an existing map. |
343 |
ARGS is a list of additional keyword arguments." |
ARGS is a list of additional keyword arguments." |
344 |
(let (inherit dense suppress) |
(let (inherit dense) |
345 |
(while args |
(while args |
346 |
(let ((key (pop args)) |
(let ((key (pop args)) |
347 |
(val (pop args))) |
(val (pop args))) |
350 |
(:dense (setq dense val)) |
(:dense (setq dense val)) |
351 |
(:inherit (setq inherit val)) |
(:inherit (setq inherit val)) |
352 |
(:group) |
(:group) |
|
;;((eq key :suppress) (setq suppress val)) |
|
353 |
(t (message "Unknown argument %s in defmap" key))))) |
(t (message "Unknown argument %s in defmap" key))))) |
354 |
(unless (keymapp m) |
(unless (keymapp m) |
355 |
(setq bs (append m bs)) |
(setq bs (append m bs)) |