mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 20:00:46 -08:00
Code Issues Projects Releases Wiki Activity

(describe-function-1): Use semicolon instead of dot.

Browse source 
(describe-variable): Likewise.
This commit is contained in:
Juanma Barranquero 2002-06-27 16:10:23 +00:00
parent 92e306372a
commit b0d6450266
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/help-fns.el
View file

@ -282,9 +282,9 @@ and the file name is displayed in the echo area."
(terpri) (terpri)
(princ "This function is obsolete") (princ "This function is obsolete")
(if (nth 2 obsolete) (princ (format " since %s" (nth 2 obsolete)))) (if (nth 2 obsolete) (princ (format " since %s" (nth 2 obsolete))))
(princ ".") (terpri) (princ ";") (terpri)
(princ (if (stringp (car obsolete)) (car obsolete) (princ (if (stringp (car obsolete)) (car obsolete)
(format "Use `%s' instead." (car obsolete)))) (format "use `%s' instead." (car obsolete))))
(terpri))) (terpri)))
(let ((doc (documentation function))) (let ((doc (documentation function)))
(if doc (if doc
@ -432,9 +432,9 @@ it is displayed along with the global value."
(when obsolete (when obsolete
(princ "This variable is obsolete") (princ "This variable is obsolete")
(if (cdr obsolete) (princ (format " since %s" (cdr obsolete)))) (if (cdr obsolete) (princ (format " since %s" (cdr obsolete))))
(princ ".") (terpri) (princ "; ") (terpri)
(princ (if (stringp (car obsolete)) (car obsolete) (princ (if (stringp (car obsolete)) (car obsolete)
(format "Use `%s' instead." (car obsolete)))) (format "use `%s' instead." (car obsolete))))
(terpri))) (terpri)))
(let ((doc (documentation-property variable 'variable-documentation))) (let ((doc (documentation-property variable 'variable-documentation)))
(princ (or doc "Not documented as a variable."))) (princ (or doc "Not documented as a variable.")))