procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(apropos-variable): New command.

Browse source 
(apropos-command): New arg JUST-VARS.
This commit is contained in:
Richard M. Stallman 1997-11-24 04:55:48 +00:00
parent 761aea38d9
commit f38fd6108d
1 changed files with 19 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
lisp/apropos.el
View file

@ -138,20 +138,25 @@ This looks good, but slows down the commands several times."
(setq major-mode 'apropos-mode
mode-name "Apropos"))
;;;###autoload
(defun apropos-variable (regexp)
(interactive (list (read-string "Apropos variable (regexp): ")))
(apropos-command regexp nil t))
;; For auld lang syne:
;;;###autoload
(fset 'command-apropos 'apropos-command)
;;;###autoload
(defun apropos-command (apropos-regexp &optional do-all)
(defun apropos-command (apropos-regexp &optional do-all just-vars)
"Show commands (interactively callable functions) that match REGEXP.
With optional prefix ARG, or if `apropos-do-all' is non-nil, also show
variables."
(interactive (list (read-string (concat "Apropos command "
(if (or current-prefix-arg
apropos-do-all)
"or variable ")
"(regexp): "))
variables. If JUST-VARS is non-nil, show only variables."
(interactive (list (read-string (concat
"Apropos command "
(if (or current-prefix-arg
apropos-do-all)
"or variable ")
"(regexp): "))
current-prefix-arg))
(let ((message
(let ((standard-output (get-buffer-create "*Apropos*")))
@ -162,7 +167,8 @@ variables."
(if do-all
(lambda (symbol) (or (commandp symbol)
(user-variable-p symbol)))
'commandp)))
(if just-vars 'user-variable-p
'commandp))))
(if (apropos-print
t
(lambda (p)
@ -170,10 +176,11 @@ variables."
(while p
(setcar p (list
(setq symbol (car p))
(if (commandp symbol)
(if (setq doc (documentation symbol t))
(substring doc 0 (string-match "\n" doc))
"(not documented)"))
(if (or do-all (not just-vars))
(if (commandp symbol)
(if (setq doc (documentation symbol t))
(substring doc 0 (string-match "\n" doc))
"(not documented)")))
(and do-all
(user-variable-p symbol)
(if (setq doc (documentation-property