Mercurial > emacs
comparison lisp/help-fns.el @ 68153:27e860fd29ef
(describe-variable): Remove newlines from void variable output.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Thu, 12 Jan 2006 22:30:03 +0000 |
| parents | 9c628f17433c |
| children | 3cc8c13facd3 |
comparison
equal
deleted
inserted
replaced
| 68152:3a7458f9152d | 68153:27e860fd29ef |
|---|---|
| 552 (save-excursion | 552 (save-excursion |
| 553 (re-search-backward "`\\([^`']+\\)'" nil t) | 553 (re-search-backward "`\\([^`']+\\)'" nil t) |
| 554 (help-xref-button 1 'help-variable-def | 554 (help-xref-button 1 'help-variable-def |
| 555 variable file-name))) | 555 variable file-name))) |
| 556 (if valvoid | 556 (if valvoid |
| 557 (princ "It is void as a variable.\n") | 557 (princ "It is void as a variable.") |
| 558 (princ "Its "))) | 558 (princ "Its "))) |
| 559 (if valvoid | 559 (if valvoid |
| 560 (princ " is void as a variable.\n") | 560 (princ " is void as a variable.") |
| 561 (princ "'s ")))) | 561 (princ "'s ")))) |
| 562 (if valvoid | 562 (if valvoid |
| 563 nil | 563 nil |
| 564 (with-current-buffer standard-output | 564 (with-current-buffer standard-output |
| 565 (setq val-start-pos (point)) | 565 (setq val-start-pos (point)) |