Mercurial > hg > xemacs-beta

comparison lisp/packages/apropos.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents 9f59509498e1
children 538048ae2ab8
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
208 (and (not do-all) 208 (and (not do-all)
209 (not apropos-do-all) 209 (not apropos-do-all)
210 (lambda (symbol) 210 (lambda (symbol)
211 (or (fboundp symbol) 211 (or (fboundp symbol)
212 (boundp symbol) 212 (boundp symbol)
213 (find-face symbol)
213 (symbol-plist symbol)))))) 214 (symbol-plist symbol))))))
214 (apropos-print 215 (apropos-print
215 (or do-all apropos-do-all) 216 (or do-all apropos-do-all)
216 (lambda (p) 217 (lambda (p)
217 (let (symbol doc) 218 (let (symbol doc)
238 (string-match "\n" doc)) 239 (string-match "\n" doc))
239 "(not documented)")) 240 "(not documented)"))
240 (if (setq doc (symbol-plist symbol)) 241 (if (setq doc (symbol-plist symbol))
241 (if (eq (/ (length doc) 2) 1) 242 (if (eq (/ (length doc) 2) 1)
242 (format "1 property (%s)" (car doc)) 243 (format "1 property (%s)" (car doc))
243 (concat (/ (length doc) 2) " properties"))))) 244 (concat (/ (length doc) 2) " properties")))
245 (if (get symbol 'widget-type)
246 (if (setq doc (documentation-property
247 symbol 'widget-documentation t))
248 (substring doc 0
249 (string-match "\n" doc))
250 "(not documented)"))
251 (if (find-face symbol)
252 (if (setq doc (face-doc-string symbol))
253 (substring doc 0
254 (string-match "\n" doc))
255 "(not documented)"))))
244 (setq p (cdr p))))) 256 (setq p (cdr p)))))
245 nil)) 257 nil))
246 258
247 259
248 ;;;###autoload 260 ;;;###autoload
557 "Command" 569 "Command"
558 (if (apropos-macrop symbol) 570 (if (apropos-macrop symbol)
559 "Macro" 571 "Macro"
560 "Function")) 572 "Function"))
561 do-keys) 573 do-keys)
562 (apropos-print-doc 'describe-variable 2 574 (if (get symbol 'custom-type)
563 "Variable" do-keys) 575 (apropos-print-doc 'customize-variable-other-window 2
576 "User Option" do-keys)
577 (apropos-print-doc 'describe-variable 2
578 "Variable" do-keys))
579 (apropos-print-doc 'customize-face-other-window 5 "Face" do-keys)
580 (apropos-print-doc 'widget-browse-other-window 4 "Widget" do-keys)
564 (apropos-print-doc 'apropos-describe-plist 3 581 (apropos-print-doc 'apropos-describe-plist 3
565 "Plist" nil))))) 582 "Plist" nil)))))
566 (prog1 apropos-accumulator 583 (prog1 apropos-accumulator
567 (setq apropos-accumulator ()))) ; permit gc 584 (setq apropos-accumulator ()))) ; permit gc
568 585