[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el

[Richard M. Stallman]

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)