Mercurial > emacs
comparison lisp/apropos.el @ 104928:5532cc06be89
(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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 11 Sep 2009 03:39:04 +0000 |
| parents | 8debb6dffc0f |
| children | bc7e96c6811f |
comparison
equal
deleted
inserted
replaced
| 104927:d76b30182911 | 104928:5532cc06be89 |
|---|---|
| 838 (setq type (if (eq ?F (preceding-char)) | 838 (setq type (if (eq ?F (preceding-char)) |
| 839 2 ; function documentation | 839 2 ; function documentation |
| 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))) |
| 847 (setq apropos-item (list symbol | 854 (setq apropos-item (list symbol |
| 848 (+ (apropos-score-symbol symbol 2) | 855 (+ (apropos-score-symbol symbol 2) |
| 974 (apropos-mode) | 981 (apropos-mode) |
| 975 (if (display-mouse-p) | 982 (if (display-mouse-p) |
| 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 |
| 984 "and type \\[apropos-follow] to get full documentation.\n\n")) | 990 "and type \\[apropos-follow] to get full documentation.\n\n")) |
| 985 (if text (insert text "\n\n")) | 991 (if text (insert text "\n\n")) |