comparison lisp/mail/supercite.el @ 102651:7040f7fa8fef

(sc-version): Doc fix.

102650:316f8efbaeae

	    (looking-at "^[ \t]*$")
	    (consp arg))
	(insert (sc-mail-field "sc-citation"))
      (error "Line is already cited"))))

(defun sc-version (message)
  "Echo the current version of Supercite in the minibuffer.
If MESSAGE is non-nil (interactively, with no prefix argument),
inserts the version string in the current buffer instead."
  (interactive (list (not current-prefix-arg)))
  (let ((verstr (format "Using Supercite.el %s" emacs-version)))
    (if message
	(message verstr)
      (insert "`sc-version' says: " verstr))))

102651:7040f7fa8fef

	    (looking-at "^[ \t]*$")
	    (consp arg))
	(insert (sc-mail-field "sc-citation"))
      (error "Line is already cited"))))

;; The argument logic here is crazy.
(defun sc-version (message)
  "Return the current Supercite version.
If MESSAGE is non-nil (interactively, with no prefix argument),
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
	(message verstr)
      (insert "`sc-version' says: " verstr))))