(define-minor-mode): Make no arg by default in an interactive call,

so that repeating the command toggles again.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 356a6f2cfa0006372b9f74c20c93e62d3671b64b..136e76c28143d5208c8e277835bf016e99d6ed06 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2001-12-21  Richard M. Stallman  <rms@gnu.org>
+
+       * emacs-lisp/easy-mmode.el (define-minor-mode): 
+       Make no arg by default in an interactive call,
+       so that repeating the command toggles again.
+
+       * emacs-lisp/lisp-mode.el (eval-defun-1): Cope with atoms as args.
+
 2001-12-18  Dave Love  <fx@gnu.org>
 
        * progmodes/f90.el (f90-break-line): Avoid infinite recursion

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 0030600028ddf59bac91463ee483bb0704bad7b8..92189f3ca82738f4b10258511307ec716920028c 100644 (file)
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -175,7 +175,9 @@ Interactively, with no prefix argument, toggle the mode.
 With universal prefix ARG " (unless togglep "(or if ARG is nil) ") "turn mode on.
 With zero or negative ARG turn mode off.
 \\{%s}") pretty-name keymap-sym))
-        (interactive (list (or current-prefix-arg (if ,mode 0 1))))
+        ;; Make no arg by default in an interactive call,
+        ;; so that repeating the command toggles again.
+        (interactive)
         (setq ,mode
               (if arg
                   (> (prefix-numeric-value arg) 0)