mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

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

Browse Source 
so that repeating the command toggles again.
This commit is contained in:
Richard M. Stallman 2001-12-21 14:12:30 +00:00
parent 726e8778c8
commit d743da2643
2 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/ChangeLog
View File

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

6
lisp/emacs-lisp/easy-mmode.el
View File

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