diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2023-08-02 21:49:19 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2023-08-02 21:49:19 +0200 |
| commit | 9fe1bebd1312b37504ead86c1fc09bd5548f64e9 (patch) | |
| tree | 2c853fc15be0c924881060e27d2bf426c99d4e3b /lisp/emacs-lisp | |
| parent | af2de7b1f2adde62b4030f95fe5697a68d0c0d90 (diff) | |
| download | emacs-9fe1bebd1312b37504ead86c1fc09bd5548f64e9.tar.gz emacs-9fe1bebd1312b37504ead86c1fc09bd5548f64e9.tar.bz2 emacs-9fe1bebd1312b37504ead86c1fc09bd5548f64e9.zip | |
Add let-alist to alist shortdoc group
* lisp/emacs-lisp/shortdoc.el (alist): Add let-alist.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/shortdoc.el | 16 |
1 files changed, 8 insertions, 8 deletions
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" |