diff options
| author | Glenn Morris | 2009-09-11 03:39:04 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-09-11 03:39:04 +0000 |
| commit | 4a6c9bec5a70ef99bf50bd26abbe9cfda1dfe8c4 (patch) | |
| tree | 314dc82139eab44f0b6b0ed2f03dcfdf928e5e5f | |
| parent | 7ab5d780043b08bfb2dfb3fa0656f155681ded64 (diff) | |
| download | emacs-4a6c9bec5a70ef99bf50bd26abbe9cfda1dfe8c4.tar.gz emacs-4a6c9bec5a70ef99bf50bd26abbe9cfda1dfe8c4.zip | |
(apropos-documentation-check-doc-file): Exclude unbound functions and
variables, since they must be stuff specific to some other platform.
(apropos-print): Make mouse-click message less specific about button.
| -rw-r--r-- | lisp/apropos.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 68721eb05a8..117eeb8267e 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el | |||
| @@ -840,7 +840,14 @@ Returns list of symbols and documentation found." | |||
| 840 | 3) ; variable documentation | 840 | 3) ; variable documentation |
| 841 | symbol (read) | 841 | symbol (read) |
| 842 | doc (buffer-substring (1+ (point)) (1- sepb))) | 842 | doc (buffer-substring (1+ (point)) (1- sepb))) |
| 843 | (when (apropos-true-hit-doc doc) | 843 | (when (and (apropos-true-hit-doc doc) |
| 844 | ;; The DOC file lists all built-in funcs and vars. | ||
| 845 | ;; If any are not currently bound, they can | ||
| 846 | ;; only be platform-specific stuff (eg NS) not | ||
| 847 | ;; in use on the current platform. | ||
| 848 | ;; So we exclude them. | ||
| 849 | (cond ((= 3 type) (boundp symbol)) | ||
| 850 | ((= 2 type) (fboundp symbol)))) | ||
| 844 | (or (and (setq apropos-item (assq symbol apropos-accumulator)) | 851 | (or (and (setq apropos-item (assq symbol apropos-accumulator)) |
| 845 | (setcar (cdr apropos-item) | 852 | (setcar (cdr apropos-item) |
| 846 | (apropos-score-doc doc))) | 853 | (apropos-score-doc doc))) |
| @@ -976,8 +983,7 @@ If non-nil TEXT is a string that will be printed as a heading." | |||
| 976 | (insert | 983 | (insert |
| 977 | "If moving the mouse over text changes the text's color, " | 984 | "If moving the mouse over text changes the text's color, " |
| 978 | "you can click\n" | 985 | "you can click\n" |
| 979 | "mouse-2 (second button from right) on that text to " | 986 | "or press return on that text to get more information.\n")) |
| 980 | "get more information.\n")) | ||
| 981 | (insert "In this buffer, go to the name of the command, or function," | 987 | (insert "In this buffer, go to the name of the command, or function," |
| 982 | " or variable,\n" | 988 | " or variable,\n" |
| 983 | (substitute-command-keys | 989 | (substitute-command-keys |