comparison lisp/emacs-lisp/easy-mmode.el @ 107843:64cb38b81502

(define-minor-mode): A nil argument to the minor mode turns the mode ON.

107842:992ffbd77e15

	 ;; Use `toggle' rather than (if ,mode 0 1) so that using
	 ;; repeat-command still does the toggling correctly.
	 (interactive (list (or current-prefix-arg 'toggle)))
	 (let ((,last-message (current-message)))
           (setq ,mode
                 (cond
                  ((eq arg 'toggle) (not ,mode))
                  (arg (> (prefix-numeric-value arg) 0))
                  (t
                   (if (null ,mode) t
                     (message
                      "Toggling %s off; better pass an explicit argument."
                      ',mode)
                     nil))))
           ,@body
           ;; The on/off hooks are here for backward compatibility only.
           (run-hooks ',hook (if ,mode ',hook-on ',hook-off))
           (if (called-interactively-p 'any)
               (progn

107843:64cb38b81502

	 ;; Use `toggle' rather than (if ,mode 0 1) so that using
	 ;; repeat-command still does the toggling correctly.
	 (interactive (list (or current-prefix-arg 'toggle)))
	 (let ((,last-message (current-message)))
           (setq ,mode
                 (if (eq arg 'toggle)
                     (not ,mode)
                   ;; A nil argument also means ON now.
                   (> (prefix-numeric-value arg) 0)))
           ,@body
           ;; The on/off hooks are here for backward compatibility only.
           (run-hooks ',hook (if ,mode ',hook-on ',hook-off))
           (if (called-interactively-p 'any)
               (progn