diff options
| -rw-r--r-- | lisp/mail/supercite.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index fc0f591c7e1..0f2ccedadc0 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -1968,10 +1968,12 @@ cited." (insert (sc-mail-field "sc-citation")) (error "Line is already cited")))) +;; The argument logic here is crazy. (defun sc-version (message) - "Echo the current version of Supercite in the minibuffer. + "Return the current Supercite version. If MESSAGE is non-nil (interactively, with no prefix argument), -inserts the version string in the current buffer instead." +echoes the version in the minibuffer. Otherwise, inserts the +version at point." (interactive (list (not current-prefix-arg))) (let ((verstr (format "Using Supercite.el %s" emacs-version))) (if message |