Mercurial > emacs
comparison lisp/help-fns.el @ 46055:860693575c7d
(describe-function-1): Use semicolon instead of dot.
(describe-variable): Likewise.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 27 Jun 2002 16:10:23 +0000 |
| parents | 0e4c329e9ab6 |
| children | 160a65e0fb1f |
comparison
equal
deleted
inserted
replaced
| 46054:06ea4b707bb2 | 46055:860693575c7d |
|---|---|
| 280 (let ((obsolete (get function 'byte-obsolete-info))) | 280 (let ((obsolete (get function 'byte-obsolete-info))) |
| 281 (when obsolete | 281 (when obsolete |
| 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 |
| 291 (progn (terpri) | 291 (progn (terpri) |
| 292 (princ doc) | 292 (princ doc) |
| 430 (terpri) | 430 (terpri) |
| 431 (let ((obsolete (get variable 'byte-obsolete-variable))) | 431 (let ((obsolete (get variable 'byte-obsolete-variable))) |
| 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."))) |
| 441 | 441 |
| 442 ;; Make a link to customize if this variable can be customized. | 442 ;; Make a link to customize if this variable can be customized. |