branch: externals/consult
commit fa223d826fa3e6e6cce91dbf5432cab84ef83b66
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
consult-info-define: Improve docstring
---
consult-info.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/consult-info.el b/consult-info.el
index f594e1a354..11c575e47c 100644
--- a/consult-info.el
+++ b/consult-info.el
@@ -205,7 +205,8 @@ CALLBACK receives the candidates."
(defun consult-info-define (name &rest manuals)
"Define `consult-info-NAME' command to search through MANUALS.
MANUALS is a list of a strings. NAME can be a symbol or a string. If
-NAME is a string, it is added to the MANUALS list."
+NAME is a string, it is added to the MANUALS list. Return name of
+defined command as symbol."
(let ((cmd (intern (format "consult-info-%s" name))))
(when (stringp name) (push name manuals))
(defalias cmd (lambda () (interactive) (apply #'consult-info manuals))
