/[emacs]/emacs/lisp/emacs-lisp/easy-mmode.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/easy-mmode.el

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

revision 1.47 by monnier, Mon Mar 24 17:41:43 2003 UTC revision 1.48 by monnier, Fri Apr 18 17:31:05 2003 UTC
# Line 203  With zero or negative ARG turn mode off. Line 203  With zero or negative ARG turn mode off.
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
# Line 341  KEY and BINDINGS are suitable for `defin Line 341  KEY and BINDINGS are suitable for `defin
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)))
# Line 350  ARGS is a list of additional keyword arg Line 350  ARGS is a list of additional keyword arg
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))

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

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