[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el |
Date: |
Fri, 18 Apr 2003 13:31:06 -0400 |
Index: emacs/lisp/emacs-lisp/easy-mmode.el
diff -c emacs/lisp/emacs-lisp/easy-mmode.el:1.47
emacs/lisp/emacs-lisp/easy-mmode.el:1.48
*** emacs/lisp/emacs-lisp/easy-mmode.el:1.47 Mon Mar 24 12:41:43 2003
--- emacs/lisp/emacs-lisp/easy-mmode.el Fri Apr 18 13:31:05 2003
***************
*** 203,214 ****
(if (interactive-p)
(progn
,(if globalp `(customize-mark-as-set ',mode))
(message ,(format "%s %%sabled" pretty-name)
! (if ,mode "en" "dis"))))
(force-mode-line-update)
;; Return the new setting.
,mode)
-
;; Autoloading an easy-mmode-define-minor-mode autoloads
;; everything up-to-here.
:autoload-end
--- 203,214 ----
(if (interactive-p)
(progn
,(if globalp `(customize-mark-as-set ',mode))
+ (unless (current-message)
(message ,(format "%s %%sabled" pretty-name)
! (if ,mode "en" "dis")))))
(force-mode-line-update)
;; Return the new setting.
,mode)
;; Autoloading an easy-mmode-define-minor-mode autoloads
;; everything up-to-here.
:autoload-end
***************
*** 341,347 ****
Optional NAME is passed to `make-sparse-keymap'.
Optional map M can be used to modify an existing map.
ARGS is a list of additional keyword arguments."
! (let (inherit dense suppress)
(while args
(let ((key (pop args))
(val (pop args)))
--- 341,347 ----
Optional NAME is passed to `make-sparse-keymap'.
Optional map M can be used to modify an existing map.
ARGS is a list of additional keyword arguments."
! (let (inherit dense)
(while args
(let ((key (pop args))
(val (pop args)))
***************
*** 350,356 ****
(:dense (setq dense val))
(:inherit (setq inherit val))
(:group)
- ;;((eq key :suppress) (setq suppress val))
(t (message "Unknown argument %s in defmap" key)))))
(unless (keymapp m)
(setq bs (append m bs))
--- 350,355 ----