Mercurial > hg > xemacs-beta

comparison lisp/apropos.el @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents d44af0c54775
children 7df0dd720c89
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
68 68
69 ;; XEmacs addition 69 ;; XEmacs addition
70 (defvar apropos-symbol-face (if (boundp 'font-lock-keyword-face) 70 (defvar apropos-symbol-face (if (boundp 'font-lock-keyword-face)
71 font-lock-keyword-face 71 font-lock-keyword-face
72 'bold) 72 'bold)
73 "*Face for symbol name in apropos output or `nil'. 73 "*Face for symbol name in apropos output or `nil'.
74 This looks good, but slows down the commands several times.") 74 This looks good, but slows down the commands several times.")
75 75
76 ;; XEmacs addition 76 ;; XEmacs addition
77 (defvar apropos-keybinding-face (if (boundp 'font-lock-string-face) 77 (defvar apropos-keybinding-face (if (boundp 'font-lock-string-face)
78 font-lock-string-face 78 font-lock-string-face
79 'underline) 79 'underline)
80 "*Face for keybinding display in apropos output or `nil'. 80 "*Face for keybinding display in apropos output or `nil'.
81 This looks good, but slows down the commands several times.") 81 This looks good, but slows down the commands several times.")
82 82
83 ;; XEmacs addition 83 ;; XEmacs addition
84 (defvar apropos-label-face (if (boundp 'font-lock-comment-face) 84 (defvar apropos-label-face (if (boundp 'font-lock-comment-face)
85 font-lock-comment-face 85 font-lock-comment-face
92 92
93 ;; XEmacs addition 93 ;; XEmacs addition
94 (defvar apropos-property-face (if (boundp 'font-lock-variable-name-face) 94 (defvar apropos-property-face (if (boundp 'font-lock-variable-name-face)
95 font-lock-variable-name-face 95 font-lock-variable-name-face
96 'bold-italic) 96 'bold-italic)
97 "*Face for property name in apropos output or `nil'. 97 "*Face for property name in apropos output or `nil'.
98 This looks good, but slows down the commands several times.") 98 This looks good, but slows down the commands several times.")
99 99
100 (defvar apropos-match-face 'secondary-selection 100 (defvar apropos-match-face 'secondary-selection
101 "*Face for matching part in apropos-documentation/value output or `nil'. 101 "*Face for matching part in apropos-documentation/value output or `nil'.
102 This looks good, but slows down the commands several times.") 102 This looks good, but slows down the commands several times.")
103 103
104 104
105 (defvar apropos-mode-map 105 (defvar apropos-mode-map
106 (let ((map (make-sparse-keymap))) 106 (let ((map (make-sparse-keymap)))
592 (prog1 apropos-accumulator 592 (prog1 apropos-accumulator
593 (setq apropos-accumulator ()))) ; permit gc 593 (setq apropos-accumulator ()))) ; permit gc
594 594
595 595
596 (defun apropos-macrop (symbol) 596 (defun apropos-macrop (symbol)
597 "T if SYMBOL is a Lisp macro." 597 "Return t if SYMBOL is a Lisp macro."
598 (and (fboundp symbol) 598 (and (fboundp symbol)
599 (consp (setq symbol 599 (consp (setq symbol
600 (symbol-function symbol))) 600 (symbol-function symbol)))
601 (or (eq (car symbol) 'macro) 601 (or (eq (car symbol) 'macro)
602 (if (eq (car symbol) 'autoload) 602 (if (eq (car symbol) 'autoload)