From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 2 Aug 2023 19:49:19 +0000 (+0200)
Subject: Add let-alist to alist shortdoc group
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9fe1bebd1312b37504ead86c1fc09bd5548f64e9;p=emacs.git

Add let-alist to alist shortdoc group

* lisp/emacs-lisp/shortdoc.el (alist): Add let-alist.
---

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index d1cf63317bf..dbc061d8a70 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -153,14 +153,14 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'),
    :eval (let* ((old '((foo . bar)))
                 (new (copy-alist old)))
            (eq old new)))
-  ;; FIXME: Outputs "\.rose" for the symbol `.rose'.
-  ;; (let-alist
-  ;;     :eval (let ((colors '((rose . red)
-  ;;                           (lily . white))))
-  ;;             (let-alist colors
-  ;;               (if (eq .rose 'red)
-  ;;                   .lily))))
-  )
+  ;; FIXME: Outputs "\.rose" for the symbol `.rose'.  It would be
+  ;; better if that could be cleaned up.
+  (let-alist
+      :eval (let ((colors '((rose . red)
+                            (lily . white))))
+              (let-alist colors
+                (if (eq .rose 'red)
+                    .lily)))))
 
 (define-short-documentation-group string
   "Making Strings"