branch: externals/setup
commit b2def86f4a17274a8fcb51446ad0d9de30a078ff
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@posteo.net>
Change maintainer address to public inbox
---
setup.el | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/setup.el b/setup.el
index 8c7277c38c..52434f2dd3 100644
--- a/setup.el
+++ b/setup.el
@@ -3,7 +3,7 @@
;; Copyright (C) 2021 Free Software Foundation, Inc.
;; Author: Philip Kaludercic <phil...@posteo.net>
-;; Maintainer: Philip Kaludercic <phil...@posteo.net>
+;; Maintainer: Philip Kaludercic <~pkal/public-in...@lists.sr.ht>
;; Version: 1.2.0
;; Package-Requires: ((emacs "26.1"))
;; Keywords: lisp, local
@@ -281,6 +281,17 @@ functions `func'. Any other value is invalid."
(add-to-list 'elisp-xref-find-def-functions
#'setup--xref-def-function)
+(defun setup--describe-macro (symbol)
+ ""
+ (when (assq symbol setup-macros)
+ (let ((start (point)))
+ (insert (or (get symbol 'setup-documentation)
+ "No documentation."))
+ (fill-region start (point)))))
+
+(add-hook 'help-fns-describe-function-functions
+ #'setup--describe-macro)
+
;;; Common utility functions for local macros
