Mercurial > emacs
comparison lisp/help.el @ 2360:c12e0f0a3179
(describe-function): Add blank line above doc string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 25 Mar 1993 03:40:35 +0000 |
| parents | 9e7ec92a4fdf |
| children | 46fcbdb6cc3a |
comparison
equal
deleted
inserted
replaced
| 2359:90a5f91329f3 | 2360:c12e0f0a3179 |
|---|---|
| 302 ;;; (nth 1 def) | 302 ;;; (nth 1 def) |
| 303 )) | 303 )) |
| 304 (t ""))) | 304 (t ""))) |
| 305 (terpri) | 305 (terpri) |
| 306 (if (documentation function) | 306 (if (documentation function) |
| 307 (princ (documentation function)) | 307 (progn (terpri) |
| 308 (princ (documentation function))) | |
| 308 (princ "not documented")) | 309 (princ "not documented")) |
| 309 (cond ((byte-code-function-p def) | 310 (cond ((byte-code-function-p def) |
| 310 (save-excursion | 311 (save-excursion |
| 311 (set-buffer standard-output) | 312 (set-buffer standard-output) |
| 312 (or (eq (char-after (1- (point-max))) ?\n) | 313 (or (eq (char-after (1- (point-max))) ?\n) |