(describe-function-1, describe-variable): If CURRENT-NAME is nil,

don't end obsolescence info with semicolon.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index ed6a6a8d10a9cd7a960fc8824d5d96116f7ee6fe..2d1565bdf49afa217c7d1c13ef1b1bd983a3438a 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -421,19 +421,19 @@ face (according to `face-differs-from-default-p')."
              (insert (car high) "\n")
              (fill-region fill-begin (point)))
             (setq doc (cdr high))))
-        (let ((obsolete (and
-                         ;; function might be a lambda construct.
-                         (symbolp function)
-                         (get function 'byte-obsolete-info))))
+        (let* ((obsolete (and
+                         ;; function might be a lambda construct.
+                         (symbolp function)
+                         (get function 'byte-obsolete-info)))
+              (use (car obsolete)))
           (when obsolete
             (princ "\nThis function is obsolete")
             (when (nth 2 obsolete)
               (insert (format " since %s" (nth 2 obsolete))))
-            (insert ";\n"
-                    (if (stringp (car obsolete)) (car obsolete)
-                      (if (null (car obsolete)) ""
-                        (format "use `%s' instead." (car obsolete))))
-                    "\n"))
+           (insert (cond ((stringp use) (concat ";\n" use))
+                         (use (format ";\nuse `%s' instead." use))
+                         (t "."))
+                   "\n"))
           (insert "\n"
                   (or doc "Not documented.")))))))
 
@@ -640,6 +640,7 @@ it is displayed along with the global value."
                               (indirect-variable variable)
                             (error variable)))
                    (obsolete (get variable 'byte-obsolete-variable))
+                  (use (car obsolete))
                   (safe-var (get variable 'safe-local-variable))
                    (doc (or (documentation-property variable 'variable-documentation)
                             (documentation-property alias 'variable-documentation)))
@@ -661,10 +662,9 @@ it is displayed along with the global value."
                 (setq extra-line t)
                 (princ "  This variable is obsolete")
                 (if (cdr obsolete) (princ (format " since %s" (cdr obsolete))))
-                (princ ";\n  ")
-                (princ (if (stringp (car obsolete)) (car obsolete)
-                         (if (null (car obsolete)) ""
-                           (format "use `%s' instead." (car obsolete)))))
+               (princ (cond ((stringp use) (concat ";\n  " use))
+                            (use (format ";\n  use `%s' instead." (car obsolete)))
+                            (t ".")))
                 (terpri))
              (when safe-var
                 (setq extra-line t)