Toggles: print message only in interactive usage

This commit is contained in:
bmag 2016-06-24 11:04:03 +03:00 committed by syl20bnr
parent b30c393b8d
commit 8d0b0354ce
1 changed files with 4 additions and 2 deletions

View File

@ -86,9 +86,11 @@ used."
,condition))
(if (,wrapper-func-status)
(progn ,@off-body
(message ,(format "%s disabled." name)))
(when (called-interactively-p 'any)
(message ,(format "%s disabled." name))))
,@on-body
(message ,(or on-message (format "%s enabled." name))))
(when (called-interactively-p 'any)
(message ,(or on-message (format "%s enabled." name)))))
(message "This toggle is not supported.")))
;; predicate function
(defun ,wrapper-func-status ()