175 |
With universal prefix ARG " (unless togglep "(or if ARG is nil) ") "turn mode on. |
With universal prefix ARG " (unless togglep "(or if ARG is nil) ") "turn mode on. |
176 |
With zero or negative ARG turn mode off. |
With zero or negative ARG turn mode off. |
177 |
\\{%s}") pretty-name keymap-sym)) |
\\{%s}") pretty-name keymap-sym)) |
178 |
(interactive (list (or current-prefix-arg (if ,mode 0 1)))) |
;; Make no arg by default in an interactive call, |
179 |
|
;; so that repeating the command toggles again. |
180 |
|
(interactive) |
181 |
(setq ,mode |
(setq ,mode |
182 |
(if arg |
(if arg |
183 |
(> (prefix-numeric-value arg) 0) |
(> (prefix-numeric-value arg) 0) |