From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 10 Sep 2021 12:02:41 +0000 (+0300)
Subject: Doc string followup to last change.
X-Git-Tag: emacs-28.0.90~1081
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f94b915e2f079eeaf3890bb08658f7c84dfc0773;p=emacs.git

Doc string followup to last change.

* lisp/progmodes/xref.el (xref-find-apropos): Mention
'tags-apropos-additional-actions' in the doc string.
* lisp/progmodes/etags.el (tags-apropos-additional-actions):
Mention 'xref-find-apropos' in the doc string.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 7efa88546d6..cddf3ba0b98 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -158,11 +158,12 @@ Otherwise, `find-tag-default' is used."
   :version "21.1")
 
 (defcustom tags-apropos-additional-actions nil
-  "Specify additional actions for `tags-apropos'.
+  "Specify additional actions for `tags-apropos' and `xref-find-apropos'.
 
 If non-nil, value should be a list of triples (TITLE FUNCTION
-TO-SEARCH).  For each triple, `tags-apropos' processes TO-SEARCH and
-lists tags from it.  TO-SEARCH should be an alist, obarray, or symbol.
+TO-SEARCH).  For each triple, `tags-apropos' and `xref-find-apropos'
+process TO-SEARCH and list tags from it.  TO-SEARCH should be an alist,
+obarray, or symbol.
 If it is a symbol, the symbol's value is used.
 TITLE, a string, is a title used to label the additional list of tags.
 FUNCTION is a function to call when a symbol is selected in the
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 082da1e1b7a..9a0de5f449b 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -1445,7 +1445,9 @@ This command is intended to be bound to a mouse event."
 ;;;###autoload
 (defun xref-find-apropos (pattern)
   "Find all meaningful symbols that match PATTERN.
-The argument has the same meaning as in `apropos'."
+The argument has the same meaning as in `apropos'.
+See `tags-apropos-additional-actions' for how to augment the
+output of this command when the backend is etags."
   (interactive (list (read-string
                       "Search for pattern (word list or regexp): "
                       nil 'xref--read-pattern-history