mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Support reverting Apropos buffers (bug#36588)

Browse source 
* lisp/apropos.el (apropos--current): New variable akin to
help-xref-stack-item storing information for revert-buffer.
(apropos--revert-buffer): New function.
(apropos-mode): Use it as revert-buffer-function.
(apropos-command, apropos, apropos-library, apropos-value)
(apropos-local-value, apropos-documentation): Set apropos--current
in low-level commands, i.e., those which do not call other commands.
This commit is contained in:
Basil L. Contovounesios 2019-07-11 15:11:35 +01:00
parent a5b796a879
commit 4cd41ba8de
1 changed files with 21 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/apropos.el
View file

@ -212,6 +212,12 @@ docstring. Each docstring is either nil or a string.")
Each element is a list of words where the first word is the standard Emacs
term, and the rest of the words are alternative terms.")
(defvar apropos--current nil
"List of current Apropos function followed by its arguments.
Used by `apropos--revert-buffer' to regenerate the current
Apropos buffer. Each Apropos command should ensure it is set
before `apropos-mode' makes it buffer-local.")
;;; Button types used by apropos
@ -472,10 +478,18 @@ This requires at least two keywords (unless only one was given)."
"Return t if DOC is really matched by the current keywords."
(apropos-true-hit doc apropos-all-words))
(defun apropos--revert-buffer (_ignore-auto noconfirm)
"Regenerate current Apropos buffer using `apropos--current'.
Intended as a value for `revert-buffer-function'."
(when (or noconfirm (yes-or-no-p "Revert apropos buffer? "))
(apply #'funcall apropos--current)))
(define-derived-mode apropos-mode special-mode "Apropos"
"Major mode for following hyperlinks in output of apropos commands.
\\{apropos-mode-map}")
\\{apropos-mode-map}"
(make-local-variable 'apropos--current)
(setq-local revert-buffer-function #'apropos--revert-buffer))
(defvar apropos-multi-type t
"If non-nil, this apropos query concerns multiple types.
@ -550,6 +564,7 @@ while a list of strings is used as a word list."
(if (or current-prefix-arg apropos-do-all)
"command or function" "command"))
current-prefix-arg))
(setq apropos--current (list #'apropos-command pattern do-all var-predicate))
(apropos-parse-pattern pattern)
(let ((message
(let ((standard-output (get-buffer-create "*Apropos*")))
@ -628,6 +643,7 @@ consider all symbols (if they match PATTERN).
Returns list of symbols and documentation found."
(interactive (list (apropos-read-pattern "symbol")
current-prefix-arg))
(setq apropos--current (list #'apropos pattern do-all))
(apropos-parse-pattern pattern)
(apropos-symbols-internal
(apropos-internal apropos-regexp
@ -670,6 +686,7 @@ the output includes key-bindings of commands."
libs))
libs)))
(list (completing-read "Describe library: " libs nil t))))
(setq apropos--current (list #'apropos-library file))
(let ((symbols nil)
;; (autoloads nil)
(provides nil)
@ -776,6 +793,7 @@ names and values of properties.
Returns list of symbols and values found."
(interactive (list (apropos-read-pattern "value")
current-prefix-arg))
(setq apropos--current (list #'apropos-value pattern do-all))
(apropos-parse-pattern pattern)
(or do-all (setq do-all apropos-do-all))
(setq apropos-accumulator ())
@ -815,6 +833,7 @@ This is like `apropos-value', but only for buffer-local variables.
Optional arg BUFFER (default: current buffer) is the buffer to check."
(interactive (list (apropos-read-pattern "value of buffer-local variable")))
(unless buffer (setq buffer (current-buffer)))
(setq apropos--current (list #'apropos-local-value pattern buffer))
(apropos-parse-pattern pattern)
(setq apropos-accumulator ())
(let ((var nil))
@ -856,6 +875,7 @@ Returns list of symbols and documentation found."
;; output, but I cannot see that that is true.
(interactive (list (apropos-read-pattern "documentation")
current-prefix-arg))
(setq apropos--current (list #'apropos-documentation pattern do-all))
(apropos-parse-pattern pattern)
(or do-all (setq do-all apropos-do-all))
(setq apropos-accumulator () apropos-files-scanned ())