[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/shortdoc 8d7481c: Build fixes
From: |
Lars Ingebrigtsen |
Subject: |
scratch/shortdoc 8d7481c: Build fixes |
Date: |
Sun, 13 Sep 2020 16:22:27 -0400 (EDT) |
branch: scratch/shortdoc
commit 8d7481c4f982e6bf054cbfb79f85de2df823a55f
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Build fixes
---
lisp/emacs-lisp/shortdoc.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index b9d0cf2..c27fe44 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -27,6 +27,10 @@
(require 'macroexp)
(eval-when-compile (require 'cl-lib))
+(defgroup shortdoc nil
+ "Short documentation."
+ :group 'lisp)
+
(defface shortdoc-section
'((((class color) (background dark))
(:inherit variable-pitch
@@ -67,11 +71,12 @@ a string, it'll be inserted as is. In that case, there
should be
a form that says what the result should be.
There can be any number of :example/:result elements."
- `(eval-and-compile
+ `(progn
(setq shortdoc--groups (delq (assq ',group shortdoc--groups)
shortdoc--groups))
(push (cons ',group ',functions) shortdoc--groups)))
+;;;###autoload
(define-short-documentation-group string
"Making Strings"
(make-string
@@ -184,7 +189,7 @@ There can be any number of :example/:result elements."
(start-section (point)))
;; Function calling convention.
(insert "(")
- (if (getf data :no-manual)
+ (if (plist-get data :no-manual)
(insert (symbol-name function))
(insert-text-button
(symbol-name function)
@@ -221,6 +226,7 @@ There can be any number of :example/:result elements."
(put-text-property start (point) 'face 'shortdoc-example))
(insert "\n")))
+;;;###autoload
(defun shortdoc-function-groups (function)
"Return all shortdoc groups FUNCTION appears in."
(cl-loop for group in shortdoc--groups
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scratch/shortdoc 8d7481c: Build fixes,
Lars Ingebrigtsen <=