diff options
| author | Eli Zaretskii | 2001-09-28 06:11:25 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2001-09-28 06:11:25 +0000 |
| commit | d94d5b5a4ba8f680b306bc5dcc880232c5b9c293 (patch) | |
| tree | dfe53366a787ad409197cb0db9f7acbeb2b09524 | |
| parent | cd653311a9256056590562c3b7d0cf1870aec0b5 (diff) | |
| download | emacs-d94d5b5a4ba8f680b306bc5dcc880232c5b9c293.tar.gz emacs-d94d5b5a4ba8f680b306bc5dcc880232c5b9c293.zip | |
(apropos-print): Make the directions inserted at the
beginning of the *Apropos* buffer more clear.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/apropos.el | 10 |
2 files changed, 11 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 11b0dbda38e..af5fab2cab1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2001-09-28 Eli Zaretskii <eliz@is.elta.co.il> | ||
| 2 | |||
| 3 | * apropos.el (apropos-print): Make the directions inserted at the | ||
| 4 | beginning of the *Apropos* buffer more clear. | ||
| 5 | |||
| 1 | 2001-09-27 Michael Kifer <kifer@cs.sunysb.edu> | 6 | 2001-09-27 Michael Kifer <kifer@cs.sunysb.edu> |
| 2 | 7 | ||
| 3 | * ediff-mult.el (ediff-get-meta-info): Installed Gerd's changes. | 8 | * ediff-mult.el (ediff-get-meta-info): Installed Gerd's changes. |
diff --git a/lisp/apropos.el b/lisp/apropos.el index 553b54057d8..d61527591fa 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el | |||
| @@ -517,11 +517,13 @@ alphabetically by symbol name; but this function also sets | |||
| 517 | (set-buffer standard-output) | 517 | (set-buffer standard-output) |
| 518 | (apropos-mode) | 518 | (apropos-mode) |
| 519 | (if (display-mouse-p) | 519 | (if (display-mouse-p) |
| 520 | (insert "If you move the mouse over text that changes color,\n" | 520 | (insert "If moving the mouse over text changes the text's color,\n" |
| 521 | (substitute-command-keys | 521 | (substitute-command-keys |
| 522 | "you can click \\[apropos-mouse-follow] to get more information.\n"))) | 522 | "you can click \\[apropos-mouse-follow] on that text to get more information.\n"))) |
| 523 | (insert (substitute-command-keys | 523 | (insert "In this buffer, go to the name of the command, or function" |
| 524 | "In this buffer, type \\[apropos-follow] to get full documentation.\n\n")) | 524 | " or variable,\n" |
| 525 | (substitute-command-keys | ||
| 526 | "and type \\[apropos-follow] to get full documentation.\n\n")) | ||
| 525 | (while (consp p) | 527 | (while (consp p) |
| 526 | (or (not spacing) (bobp) (terpri)) | 528 | (or (not spacing) (bobp) (terpri)) |
| 527 | (setq apropos-item (car p) | 529 | (setq apropos-item (car p) |