diff options
author | Glenn Morris <rgm@gnu.org> | 2009-09-11 03:39:04 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2009-09-11 03:39:04 +0000 |
commit | 4a6c9bec5a70ef99bf50bd26abbe9cfda1dfe8c4 (patch) | |
tree | 314dc82139eab44f0b6b0ed2f03dcfdf928e5e5f /lisp/apropos.el | |
parent | 7ab5d780043b08bfb2dfb3fa0656f155681ded64 (diff) | |
download | emacs-4a6c9bec5a70ef99bf50bd26abbe9cfda1dfe8c4.tar.gz |
(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.
Diffstat (limited to 'lisp/apropos.el')
-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." 3) ; variable documentation symbol (read) doc (buffer-substring (1+ (point)) (1- sepb))) - (when (apropos-true-hit-doc doc) + (when (and (apropos-true-hit-doc doc) + ;; The DOC file lists all built-in funcs and vars. + ;; If any are not currently bound, they can + ;; only be platform-specific stuff (eg NS) not + ;; in use on the current platform. + ;; So we exclude them. + (cond ((= 3 type) (boundp symbol)) + ((= 2 type) (fboundp symbol)))) (or (and (setq apropos-item (assq symbol apropos-accumulator)) (setcar (cdr apropos-item) (apropos-score-doc doc))) @@ -976,8 +983,7 @@ If non-nil TEXT is a string that will be printed as a heading." (insert "If moving the mouse over text changes the text's color, " "you can click\n" - "mouse-2 (second button from right) on that text to " - "get more information.\n")) + "or press return on that text to get more information.\n")) (insert "In this buffer, go to the name of the command, or function," " or variable,\n" (substitute-command-keys |