Add let-alist to alist shortdoc group

* lisp/emacs-lisp/shortdoc.el (alist): Add let-alist.
This commit is contained in:
Stefan Kangas 2023-08-02 21:49:19 +02:00
parent af2de7b1f2
commit 9fe1bebd13

View file

@ -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"