andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(apropos): Print all property symbols.

Browse source
This commit is contained in:
Karl Heuer 1997-03-17 09:54:01 +00:00
parent 2dd5c7f71a
commit d69e3b68e6
1 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
lisp/apropos.el
View file

@ -185,24 +185,24 @@ Returns list of symbols and documentation found."
(apropos-print
(or do-all apropos-do-all)
(lambda (p)
(let (symbol doc)
(let (symbol doc properties)
(while p
(setcar p (list
(setq symbol (car p))
(if (fboundp symbol)
(if (setq doc (documentation symbol t))
(substring doc 0 (string-match "\n" doc))
"(not documented)"))
(if (boundp symbol)
(if (setq doc (documentation-property
symbol 'variable-documentation t))
(substring doc 0
(string-match "\n" doc))
"(not documented)"))
(if (setq doc (symbol-plist symbol))
(if (eq (/ (length doc) 2) 1)
(format "1 property (%s)" (car doc))
(concat (/ (length doc) 2) " properties")))))
(when (fboundp symbol)
(if (setq doc (documentation symbol t))
(substring doc 0 (string-match "\n" doc))
"(not documented)"))
(when (boundp symbol)
(if (setq doc (documentation-property
symbol 'variable-documentation t))
(substring doc 0 (string-match "\n" doc))
"(not documented)"))
(when (setq properties (symbol-plist symbol))
(setq doc (list (car properties)))
(while (setq properties (cdr (cdr properties)))
(setq doc (cons (car properties) doc)))
(mapconcat #'symbol-name (nreverse doc) " "))))
(setq p (cdr p)))))
nil))