aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2009-09-11 03:39:04 +0000
committerGlenn Morris2009-09-11 03:39:04 +0000
commit4a6c9bec5a70ef99bf50bd26abbe9cfda1dfe8c4 (patch)
tree314dc82139eab44f0b6b0ed2f03dcfdf928e5e5f
parent7ab5d780043b08bfb2dfb3fa0656f155681ded64 (diff)
downloademacs-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.el12
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