Mercurial > hg > xemacs-beta

comparison lisp/packages/apropos.el @ 149:538048ae2ab8 r20-3b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b1
author cvs
date Mon, 13 Aug 2007 09:36:16 +0200
parents 9b50b4588a93
children 929b76928fce
comparison
equal deleted inserted replaced
148:f659db2a1f73 149:538048ae2ab8
250 "(not documented)")) 250 "(not documented)"))
251 (if (find-face symbol) 251 (if (find-face symbol)
252 (if (setq doc (face-doc-string symbol)) 252 (if (setq doc (face-doc-string symbol))
253 (substring doc 0 253 (substring doc 0
254 (string-match "\n" doc)) 254 (string-match "\n" doc))
255 "(not documented)")))) 255 "(not documented)"))
256 (when (get symbol 'custom-group)
257 (if (setq doc (documentation-property
258 symbol 'group-documentation t))
259 (substring doc 0
260 (string-match "\n" doc))
261 "(not documented)"))))
256 (setq p (cdr p))))) 262 (setq p (cdr p)))))
257 nil)) 263 nil))
258 264
259 265
260 ;;;###autoload 266 ;;;###autoload
574 (if (get symbol 'custom-type) 580 (if (get symbol 'custom-type)
575 (apropos-print-doc 'customize-variable-other-window 2 581 (apropos-print-doc 'customize-variable-other-window 2
576 "User Option" do-keys) 582 "User Option" do-keys)
577 (apropos-print-doc 'describe-variable 2 583 (apropos-print-doc 'describe-variable 2
578 "Variable" do-keys)) 584 "Variable" do-keys))
585 (apropos-print-doc 'customize-other-window 6 "Group" do-keys)
579 (apropos-print-doc 'customize-face-other-window 5 "Face" do-keys) 586 (apropos-print-doc 'customize-face-other-window 5 "Face" do-keys)
580 (apropos-print-doc 'widget-browse-other-window 4 "Widget" do-keys) 587 (apropos-print-doc 'widget-browse-other-window 4 "Widget" do-keys)
581 (apropos-print-doc 'apropos-describe-plist 3 588 (apropos-print-doc 'apropos-describe-plist 3
582 "Plist" nil))))) 589 "Plist" nil)))))
583 (prog1 apropos-accumulator 590 (prog1 apropos-accumulator