diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 21 | ||||
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 6 |
2 files changed, 19 insertions, 8 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4d4a74545a8..7fd55a56901 100644 --- 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 0030600028d..0757115ee40 100644 --- 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) |