[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el |
Date: |
Fri, 21 Dec 2001 09:12:14 -0500 |
Index: emacs/lisp/emacs-lisp/easy-mmode.el
diff -c emacs/lisp/emacs-lisp/easy-mmode.el:1.36
emacs/lisp/emacs-lisp/easy-mmode.el:1.37
*** emacs/lisp/emacs-lisp/easy-mmode.el:1.36 Thu Aug 9 10:52:52 2001
--- emacs/lisp/emacs-lisp/easy-mmode.el Fri Dec 21 09:09:00 2001
***************
*** 107,113 ****
(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?
(group nil)
(extra-args nil)
(keymap-sym (if (and keymap (symbolp keymap)) keymap
--- 107,113 ----
(let* ((mode-name (symbol-name mode))
(pretty-name (easy-mmode-pretty-mode-name mode lighter))
(globalp nil)
! (togglep t) ;; This should never be nil -- rms.
(group nil)
(extra-args nil)
(keymap-sym (if (and keymap (symbolp keymap)) keymap
***************
*** 175,181 ****
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))))
(setq ,mode
(if arg
(> (prefix-numeric-value arg) 0)
--- 175,183 ----
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))
! ;; 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)