comparison lisp/emacs-lisp/easy-mmode.el @ 42236:a31cdf6c9173

(define-minor-mode): Make no arg by default in an interactive call, so that repeating the command toggles again.

42235:103ed59cfd30

   ((keywordp keymap) (push keymap body) (setq keymap nil)))

  (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
		       (intern (concat mode-name "-map"))))
	 (hook (intern (concat mode-name "-hook")))

	      (format (concat "Toggle %s on or off.
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))))
	 (setq ,mode
	       (if arg
		   (> (prefix-numeric-value arg) 0)
		 ,(if togglep `(not ,mode) t)))
	 ,@body

42236:a31cdf6c9173

   ((keywordp keymap) (push keymap body) (setq keymap nil)))

  (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
		       (intern (concat mode-name "-map"))))
	 (hook (intern (concat mode-name "-hook")))

	      (format (concat "Toggle %s on or off.
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))
	 ;; 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)
		 ,(if togglep `(not ,mode) t)))
	 ,@body