Add let-alist to alist shortdoc group
* lisp/emacs-lisp/shortdoc.el (alist): Add let-alist.
This commit is contained in:
parent
af2de7b1f2
commit
9fe1bebd13
1 changed files with 8 additions and 8 deletions
|
@ -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"
|
||||
|
|
Loading…
Add table
Reference in a new issue