Mercurial > emacs
comparison lisp/help-mode.el @ 42593:dbb64f2b3684
Fix indentation.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 07 Jan 2002 05:20:57 +0000 |
| parents | 516cc19cfff2 |
| children | 3814cb15269e |
comparison
equal
deleted
inserted
replaced
| 42592:68c10468d84c | 42593:dbb64f2b3684 |
|---|---|
| 505 (describe-variable symbol)))) | 505 (describe-variable symbol)))) |
| 506 (cond | 506 (cond |
| 507 (sdoc | 507 (sdoc |
| 508 ;; We now have a help buffer on the variable. | 508 ;; We now have a help buffer on the variable. |
| 509 ;; Insert the function and face text before it. | 509 ;; Insert the function and face text before it. |
| 510 (when (or fdoc facedoc) | 510 (when (or fdoc facedoc) |
| 511 (goto-char (point-min)) | 511 (goto-char (point-min)) |
| 512 (let ((inhibit-read-only t)) | 512 (let ((inhibit-read-only t)) |
| 513 (when fdoc | 513 (when fdoc |
| 514 (insert fdoc "\n\n") | 514 (insert fdoc "\n\n") |
| 515 (when facedoc | 515 (when facedoc |
| 516 (insert (make-string 30 ?-) "\n\n" (symbol-name symbol) | 516 (insert (make-string 30 ?-) "\n\n" (symbol-name symbol) |
| 517 " is also a " "face." "\n\n"))) | 517 " is also a " "face." "\n\n"))) |
| 518 (when facedoc | 518 (when facedoc |
| 519 (insert facedoc "\n\n")) | 519 (insert facedoc "\n\n")) |
| 520 (insert (make-string 30 ?-) "\n\n" (symbol-name symbol) | 520 (insert (make-string 30 ?-) "\n\n" (symbol-name symbol) |
| 521 " is also a " "variable." "\n\n")) | 521 " is also a " "variable." "\n\n")) |