(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 4d4a74545a8d632037dd35faa50255ba2ee7cdf5..7fd55a56901a846e37c86c388501cf3bc6c6328b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,16 +1,25 @@
+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-21  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * jka-compr.el (jka-compr-partial-uncompress): Use null-device
-       instead of a literal /dev/null.  Reported by Jens Schmidt
-       <schmidt@mathematik.uni-kl.de>.
+       instead of a literal /dev/null.
+
+       * Makefile.in (distclean): Remove Makefile in the build
+       directory, not in the source directory.
+
+2001-12-21  Simon Josefsson  <jas@extundo.com>.
 
        * mail/smtpmail.el (smtpmail-send-queued-mail): Use
        with-temp-buffer instead of find-file-noselect, and bind
        coding-system-for-read to no-conversion when reading the queued
-       messages.  From Simon Josefsson <jas@extundo.com>.
-
-       * Makefile.in (distclean): Remove Makefile in the build
-       directory, not in the source directory.
+       messages.
 
 2001-12-20  Werner Lemberg  <wl@gnu.org>
 

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 0030600028ddf59bac91463ee483bb0704bad7b8..0757115ee40fcf4bc60264eeb59c862844a9f853 100644 (file)
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -107,7 +107,7 @@ BODY contains code that will be executed each time the mode is (dis)activated.
   (let* ((mode-name (symbol-name mode))
         (pretty-name (easy-mmode-pretty-mode-name mode lighter))
         (globalp nil)
-        (togglep t)                    ;why would you ever want to toggle?
+        (togglep t) ;; This should never be nil -- rms.
         (group nil)
         (extra-args nil)
         (keymap-sym (if (and keymap (symbolp keymap)) keymap
@@ -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)