[Emacs-diffs] emacs/lisp/mail supercite.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/03/19 06:19:25

Modified files:
        lisp/mail      : supercite.el 

Log message:
        (sc-version): Doc fix.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/supercite.el?cvsroot=emacs&r1=1.72&r2=1.73

Patches:
Index: supercite.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/supercite.el,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -b -r1.72 -r1.73
--- supercite.el        19 Mar 2009 06:13:01 -0000      1.72
+++ supercite.el        19 Mar 2009 06:19:24 -0000      1.73
@@ -1968,10 +1968,12 @@
        (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