Re: Lowercase text after full stop on describe-variable

[Juanma Barranquero]

And BTW, I'm wondering what's the reason you didn't include the
equivalent functionality for obsolescent functions, like in the simple
patch below (a slight modification of your describe-variable patch).

Is there some complication I'm missing?


                                                           /L/e/k/t/u




Index: help-fns.el
===================================================================
RCS file: /cvs/emacs/lisp/help-fns.el,v
retrieving revision 1.10
diff -u -2 -r1.10 help-fns.el
--- help-fns.el 23 Jun 2002 21:02:45 -0000      1.10
+++ help-fns.el 24 Jun 2002 16:25:40 -0000
@@ -278,4 +278,13 @@
             (princ arglist)
             (terpri))))
+    (let ((obsolete (get function 'byte-obsolete-info)))
+      (when obsolete
+        (terpri)
+        (princ "This function is obsolete")
+        (if (caddr obsolete) (princ (format " since %s" (caddr obsolete))))
+        (princ ".") (terpri)
+        (princ (if (stringp (car obsolete)) (car obsolete)
+                 (format "Use `%s' instead." (car obsolete))))
+        (terpri)))
     (let ((doc (documentation function)))
       (if doc