trying to fix
This commit is contained in:
parent
fa407dfeb6
commit
e013d7569e
22945 changed files with 447936 additions and 0 deletions
53
straight/build/let-alist/let-alist-autoloads.el
Normal file
53
straight/build/let-alist/let-alist-autoloads.el
Normal file
|
@ -0,0 +1,53 @@
|
|||
;;; let-alist-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
|
||||
;;
|
||||
;;; Code:
|
||||
|
||||
|
||||
;;;### (autoloads nil "let-alist" "let-alist.el" (0 0 0 0))
|
||||
;;; Generated autoloads from let-alist.el
|
||||
|
||||
(autoload 'let-alist "let-alist" "\
|
||||
Let-bind dotted symbols to their cdrs in ALIST and execute BODY.
|
||||
Dotted symbol is any symbol starting with a `.'. Only those present
|
||||
in BODY are let-bound and this search is done at compile time.
|
||||
|
||||
For instance, the following code
|
||||
|
||||
(let-alist alist
|
||||
(if (and .title .body)
|
||||
.body
|
||||
.site
|
||||
.site.contents))
|
||||
|
||||
essentially expands to
|
||||
|
||||
(let ((.title (cdr (assq \\='title alist)))
|
||||
(.body (cdr (assq \\='body alist)))
|
||||
(.site (cdr (assq \\='site alist)))
|
||||
(.site.contents (cdr (assq \\='contents (cdr (assq \\='site alist))))))
|
||||
(if (and .title .body)
|
||||
.body
|
||||
.site
|
||||
.site.contents))
|
||||
|
||||
If you nest `let-alist' invocations, the inner one can't access
|
||||
the variables of the outer one. You can, however, access alists
|
||||
inside the original alist by using dots inside the symbol, as
|
||||
displayed in the example above.
|
||||
|
||||
\(fn ALIST &rest BODY)" nil t)
|
||||
|
||||
(function-put 'let-alist 'lisp-indent-function '1)
|
||||
|
||||
(register-definition-prefixes "let-alist" '("let-alist--"))
|
||||
|
||||
;;;***
|
||||
|
||||
(provide 'let-alist-autoloads)
|
||||
;; Local Variables:
|
||||
;; version-control: never
|
||||
;; no-byte-compile: t
|
||||
;; no-update-autoloads: t
|
||||
;; coding: utf-8
|
||||
;; End:
|
||||
;;; let-alist-autoloads.el ends here
|
1
straight/build/let-alist/let-alist.el
Symbolic link
1
straight/build/let-alist/let-alist.el
Symbolic link
|
@ -0,0 +1 @@
|
|||
/home/chris/.emacs.d/straight/repos/let-alist/let-alist.el
|
BIN
straight/build/let-alist/let-alist.elc
Normal file
BIN
straight/build/let-alist/let-alist.elc
Normal file
Binary file not shown.
Loading…
Add table
Add a link
Reference in a new issue