[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el

[Stefan Monnier]

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 ----