[Top][All Lists]

[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)
      (push (cons ',group ',functions) shortdoc--groups)))
 (define-short-documentation-group string
   "Making Strings"
@@ -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))
        (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")))
 (defun shortdoc-function-groups (function)
   "Return all shortdoc groups FUNCTION appears in."
   (cl-loop for group in shortdoc--groups

reply via email to

[Prev in Thread] Current Thread [Next in Thread]