# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1050687065 0
# Node ID e0775ee7f59944a917a8b93c78718a8ce5612850
# Parent  31489b0b9b0dfafd7b23a018063b6dcc1a0cb8dc
(define-minor-mode): Only echo a message if the body didn't do so already.
(easy-mmode-define-keymap): Remove unused var `suppress'.

diff -r 31489b0b9b0d -r e0775ee7f599 lisp/emacs-lisp/easy-mmode.el
--- a/lisp/emacs-lisp/easy-mmode.el	Fri Apr 18 13:53:18 2003 +0000
+++ b/lisp/emacs-lisp/easy-mmode.el	Fri Apr 18 17:31:05 2003 +0000
@@ -203,12 +203,12 @@
 	 (if (interactive-p)
 	     (progn
 	       ,(if globalp `(customize-mark-as-set ',mode))
+	       (unless (current-message)
 	       (message ,(format "%s %%sabled" pretty-name)
-			(if ,mode "en" "dis"))))
+			  (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,7 +341,7 @@
 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)
+  (let (inherit dense)
     (while args
       (let ((key (pop args))
 	    (val (pop args)))
@@ -350,7 +350,6 @@
 	 (: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))