[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: master ddfba511c19 1/3: Check shortdoc keywords and fix one mistake
From: |
Philip Kaludercic |
Subject: |
Re: master ddfba511c19 1/3: Check shortdoc keywords and fix one mistake |
Date: |
Mon, 19 Feb 2024 18:59:03 +0000 |
This causes an error while compiling on my end:
emacs-lisp/shortdoc.el:138:2: Error: Symbol’s function definition is
void: shortdoc--check
This would fix it, but I don't know the details of what is going on:
diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index cde28985cd0..7597f601124 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -50,19 +50,19 @@ shortdoc-section
'((t :inherit variable-pitch))
"Face used for a section.")
-;;;###autoload
-(defun shortdoc--check (group functions)
- (let ((keywords '( :no-manual :args :eval :no-eval :no-value :no-eval*
- :result :result-string :eg-result :eg-result-string
:doc)))
- (dolist (f functions)
- (when (consp f)
- (dolist (x f)
- (when (and (keywordp x) (not (memq x keywords)))
- (error "Shortdoc %s function `%s': bad keyword `%s'"
- group (car f) x)))))))
-
;;;###autoload
(progn
+ (eval-and-compile
+ (defun shortdoc--check (group functions)
+ (let ((keywords '( :no-manual :args :eval :no-eval :no-value :no-eval*
+ :result :result-string :eg-result :eg-result-string
:doc)))
+ (dolist (f functions)
+ (when (consp f)
+ (dolist (x f)
+ (when (and (keywordp x) (not (memq x keywords)))
+ (error "Shortdoc %s function `%s': bad keyword `%s'"
+ group (car f) x))))))))
+
(defvar shortdoc--groups nil)
(defmacro define-short-documentation-group (group &rest functions)
Mattias Engdegård <mattiase@acm.org> writes:
> branch: master
> commit ddfba511c190e5bb44e44a50aef5ab8c08e3d798
> Author: Mattias Engdegård <mattiase@acm.org>
> Commit: Mattias Engdegård <mattiase@acm.org>
>
> Check shortdoc keywords and fix one mistake
>
> * lisp/emacs-lisp/shortdoc.el (shortdoc--check)
> (define-short-documentation-group): Check that used keywords exist.
> * lisp/emacs-lisp/shortdoc.el (list): Fix a typo.
> ---
> lisp/emacs-lisp/shortdoc.el | 14 +++++++++++++-
> 1 file changed, 13 insertions(+), 1 deletion(-)
>
> diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
> index a6a49c72f74..cde28985cd0 100644
> --- a/lisp/emacs-lisp/shortdoc.el
> +++ b/lisp/emacs-lisp/shortdoc.el
> @@ -50,6 +50,17 @@
> '((t :inherit variable-pitch))
> "Face used for a section.")
>
> +;;;###autoload
> +(defun shortdoc--check (group functions)
> + (let ((keywords '( :no-manual :args :eval :no-eval :no-value :no-eval*
> + :result :result-string :eg-result :eg-result-string
> :doc)))
> + (dolist (f functions)
> + (when (consp f)
> + (dolist (x f)
> + (when (and (keywordp x) (not (memq x keywords)))
> + (error "Shortdoc %s function `%s': bad keyword `%s'"
> + group (car f) x)))))))
> +
> ;;;###autoload
> (progn
> (defvar shortdoc--groups nil)
> @@ -118,6 +129,7 @@ A FUNC form can have any number of `:no-eval' (or
> `:no-value'),
> `:no-eval*', `:result', `:result-string', `:eg-result' and
> `:eg-result-string' properties."
> (declare (indent defun))
> + (shortdoc--check group functions)
> `(progn
> (setq shortdoc--groups (delq (assq ',group shortdoc--groups)
> shortdoc--groups))
> @@ -715,7 +727,7 @@ A FUNC form can have any number of `:no-eval' (or
> `:no-value'),
> :eval (plist-get '(a 1 b 2 c 3) 'b))
> (plist-put
> :no-eval (setq plist (plist-put plist 'd 4))
> - :eq-result (a 1 b 2 c 3 d 4))
> + :eg-result (a 1 b 2 c 3 d 4))
> (plist-member
> :eval (plist-member '(a 1 b 2 c 3) 'b))
> "Data About Lists"
- Re: master ddfba511c19 1/3: Check shortdoc keywords and fix one mistake,
Philip Kaludercic <=