diff options
| author | Juanma Barranquero | 2002-06-27 16:10:23 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2002-06-27 16:10:23 +0000 |
| commit | b0d6450266b4c95afd3d7f03ad56b71edf30a8a0 (patch) | |
| tree | a60f087288ef35ccf42122268d2ef251426603ed | |
| parent | 92e306372a63085058a78c4eab344da395a2bbf1 (diff) | |
| download | emacs-b0d6450266b4c95afd3d7f03ad56b71edf30a8a0.tar.gz emacs-b0d6450266b4c95afd3d7f03ad56b71edf30a8a0.zip | |
(describe-function-1): Use semicolon instead of dot.
(describe-variable): Likewise.
| -rw-r--r-- | lisp/help-fns.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index da62d72b7e7..f62443ef152 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -282,9 +282,9 @@ and the file name is displayed in the echo area." | |||
| 282 | (terpri) | 282 | (terpri) |
| 283 | (princ "This function is obsolete") | 283 | (princ "This function is obsolete") |
| 284 | (if (nth 2 obsolete) (princ (format " since %s" (nth 2 obsolete)))) | 284 | (if (nth 2 obsolete) (princ (format " since %s" (nth 2 obsolete)))) |
| 285 | (princ ".") (terpri) | 285 | (princ ";") (terpri) |
| 286 | (princ (if (stringp (car obsolete)) (car obsolete) | 286 | (princ (if (stringp (car obsolete)) (car obsolete) |
| 287 | (format "Use `%s' instead." (car obsolete)))) | 287 | (format "use `%s' instead." (car obsolete)))) |
| 288 | (terpri))) | 288 | (terpri))) |
| 289 | (let ((doc (documentation function))) | 289 | (let ((doc (documentation function))) |
| 290 | (if doc | 290 | (if doc |
| @@ -432,9 +432,9 @@ it is displayed along with the global value." | |||
| 432 | (when obsolete | 432 | (when obsolete |
| 433 | (princ "This variable is obsolete") | 433 | (princ "This variable is obsolete") |
| 434 | (if (cdr obsolete) (princ (format " since %s" (cdr obsolete)))) | 434 | (if (cdr obsolete) (princ (format " since %s" (cdr obsolete)))) |
| 435 | (princ ".") (terpri) | 435 | (princ "; ") (terpri) |
| 436 | (princ (if (stringp (car obsolete)) (car obsolete) | 436 | (princ (if (stringp (car obsolete)) (car obsolete) |
| 437 | (format "Use `%s' instead." (car obsolete)))) | 437 | (format "use `%s' instead." (car obsolete)))) |
| 438 | (terpri))) | 438 | (terpri))) |
| 439 | (let ((doc (documentation-property variable 'variable-documentation))) | 439 | (let ((doc (documentation-property variable 'variable-documentation))) |
| 440 | (princ (or doc "Not documented as a variable."))) | 440 | (princ (or doc "Not documented as a variable."))) |