From: Glenn Morris <rgm@gnu.org>
Date: Wed, 27 Feb 2008 04:34:05 +0000 (+0000)
Subject: (sc-cite-original): Doc fix.
X-Git-Tag: emacs-pretest-23.0.90~7640
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34b5f6df51ef655c4719ce2f0bf57440b21a7c66;p=emacs.git

(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 a1f8dee7fc2..b36e66f8f0e 100644
--- 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 6cb6e8a18ff..0e7fa99f36a 100644
--- 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")