martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(super-apropos, super-apropos-check-doc-file)

Browse Source 
(super-apropos-accumulate): Vars item, fn-doc and var-doc renamed
to apropos-item, apropos-fn-doc and apropos-var-doc.
(apropos-item, apropos-var-doc, apropos-fn-doc)
(apropos-accumulate, apropos-regexp): New defvars.
(super-apropos): Bind apropos-regexp to regexp.
(super-apropos-accumulate): Use apropos-regexp.
This commit is contained in:
Richard M. Stallman
1994-12-29 01:46:34 +00:00
parent 68469f746c
commit a33b76c3eb
1 changed files with 32 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
lisp/apropos.el
View File

@@ -93,6 +93,15 @@ Returns list of symbols and documentation found."
(setq p (cdr p)))
list))
;; Variables bound by super-apropos and used by its subroutines.
;; It would be good to say what each one is for, but I don't know -- rms.
(defvar apropos-item)
(defvar apropos-var-doc)
(defvar apropos-fn-doc)
(defvar apropos-accumulate)
(defvar apropos-regexp
"Within `super-apropos', this holds the REGEXP argument.")
;;;###autoload
(defun super-apropos (regexp &optional do-all)
"Show symbols whose names/documentation contain matches for REGEXP.
@@ -104,10 +113,11 @@ file.
Returns list of symbols and documentation found."
(interactive "sSuper Apropos: \nP")
(setq do-all (or apropos-do-all do-all))
(let (apropos-accumulate fn-doc var-doc item)
(setq apropos-accumulate (super-apropos-check-doc-file regexp))
(let ((apropos-regexp regexp)
apropos-accumulate apropos-fn-doc apropos-var-doc apropos-item)
(setq apropos-accumulate (super-apropos-check-doc-file apropos-regexp))
(if (null apropos-accumulate)
(message "No apropos matches for `%s'" regexp)
(message "No apropos matches for `%s'" apropos-regexp)
(if do-all (mapatoms 'super-apropos-accumulate))
(with-output-to-temp-buffer "*Help*"
(apropos-print-matches apropos-accumulate nil t do-all)))
@@ -143,36 +153,35 @@ Returns list of symbols and documentation found."
(if (search-forward "\C-_" nil 'move)
(1- (point))
(point))))
item (assq symbol sym-list))
apropos-item (assq symbol sym-list))
(and (if (= type 1)
(and (fboundp symbol) (documentation symbol))
(documentation-property symbol 'variable-documentation))
(or item
(setq item (list symbol nil nil)
sym-list (cons item sym-list)))
(setcar (nthcdr type item) doc))))
(or apropos-item
(setq apropos-item (list symbol nil nil)
sym-list (cons apropos-item sym-list)))
(setcar (nthcdr type apropos-item) doc))))
sym-list))
;; This is passed as the argument to map-atoms, so it is called once for every
;; symbol in obarray. Takes one argument SYMBOL, and finds any memory-resident
;; documentation on that symbol if it matches a variable regexp. WARNING: this
;; function depends on the symbols fn-doc var-doc regexp and item being bound
;; correctly when it is called!"
;; documentation on that symbol if it matches a variable regexp.
(defun super-apropos-accumulate (symbol)
(cond ((string-match regexp (symbol-name symbol))
(setq item (apropos-get-accum-item symbol))
(setcar (cdr item) (or (safe-documentation symbol)
(nth 1 item)))
(setcar (nthcdr 2 item) (or (safe-documentation-property symbol)
(nth 2 item))))
(cond ((string-match apropos-regexp (symbol-name symbol))
(setq apropos-item (apropos-get-accum-item symbol))
(setcar (cdr apropos-item) (or (safe-documentation symbol)
(nth 1 apropos-item)))
(setcar (nthcdr 2 apropos-item) (or (safe-documentation-property symbol)
(nth 2 apropos-item))))
(t
(and (setq fn-doc (safe-documentation symbol))
(string-match regexp fn-doc)
(setcar (cdr (apropos-get-accum-item symbol)) fn-doc))
(and (setq var-doc (safe-documentation-property symbol))
(string-match regexp var-doc)
(setcar (nthcdr 2 (apropos-get-accum-item symbol)) var-doc))))
(and (setq apropos-fn-doc (safe-documentation symbol))
(string-match apropos-regexp apropos-fn-doc)
(setcar (cdr (apropos-get-accum-item symbol)) apropos-fn-doc))
(and (setq apropos-var-doc (safe-documentation-property symbol))
(string-match apropos-regexp apropos-var-doc)
(setcar (nthcdr 2 (apropos-get-accum-item symbol))
apropos-var-doc))))
nil)
;; Prints the symbols and documentation in alist MATCHES of form ((symbol