(sc-cite-original): Doc fix.

(sc-version): Make obsolete.
(sc-describe): Show the SC info page.  Make obsolete.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1f8dee7fc24b8009dd37542ed76f657faafc8d6..b36e66f8f0e2b15d54d25efcf3dcb909da40c49f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-02-27  Glenn Morris  <rgm@gnu.org>
+
+       * mail/supercite.el (sc-cite-original): Doc fix.
+       (sc-version): Make obsolete.
+       (sc-describe): Show the SC info page.  Make obsolete.
+
 2008-02-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * simple.el (set-mark-command): Deactivate mark on second C-SPC C-SPC

diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index 6cb6e8a18ffe2df348bce313a815c9c65a857cdf..0e7fa99f36a1ba5e07c3f021f4963f595eac6020 100644 (file)
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -1904,9 +1904,9 @@ original message but it does require a few things:
 
      5) Mark is at the end of the body of text to be cited.
 
-For Emacs 19's, the region need not be active (and typically isn't
-when this function is called.  Also, the hook `sc-pre-hook' is run
-before, and `sc-post-hook' is run after the guts of this function."
+The region need not be active (and typically isn't when this
+function is called).  Also, the hook `sc-pre-hook' is run before,
+and `sc-post-hook' is run after the guts of this function."
   (run-hooks 'sc-pre-hook)
 
   (sc-minor-mode 1)
@@ -1983,8 +1983,7 @@ With numeric ARG, inserts that many new lines."
       (while (< 0 arg)
        (insert prefix)
        (forward-line 1)
-       (setq arg (1- arg))
-       ))))
+       (setq arg (1- arg))))))
 
 (defun sc-insert-citation (arg)
   "Insert citation string at beginning of current line if not already cited.
@@ -2009,13 +2008,14 @@ inserts the version string in the current buffer instead."
        (message verstr)
       (insert "`sc-version' says: " verstr))))
 
+(make-obsolete 'sc-version 'emacs-version "23.1")
+
 (defun sc-describe ()
-  "
-Supercite is a package which provides a flexible mechanism for citing
-email and news replies.  Please see the associated texinfo file for
-more information.  Info node `(SC)Top'."
+  "Read the Supercite info node."
   (interactive)
-  (describe-function 'sc-describe))
+  (info "(SC)top"))
+
+(make-obsolete 'sc-describe "Read the SC manual using `info'" "23.1")
 
 (define-obsolete-function-alias 'sc-submit-bug-report 'report-emacs-bug "23.1")