changeset 92244:7ce88981bf93

(sc-cite-original): Doc fix. (sc-version): Make obsolete. (sc-describe): Show the SC info page. Make obsolete.
author Glenn Morris <rgm@gnu.org>
date Wed, 27 Feb 2008 04:33:55 +0000
parents c03d2269686e
children e9a26eb89067
files lisp/mail/supercite.el
diffstat 1 files changed, 10 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/supercite.el	Wed Feb 27 04:10:15 2008 +0000
+++ b/lisp/mail/supercite.el	Wed Feb 27 04:33:55 2008 +0000
@@ -1904,9 +1904,9 @@
 
      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 @@
       (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 @@
 	(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")