elpa/let-alist-1.0.5/let-alist-autoloads.el

   1 ;;; let-alist-autoloads.el --- automatically extracted autoloads
   2 ;;
   3 ;;; Code:
   4 (add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
   5 \f
   6 ;;;### (autoloads nil "let-alist" "let-alist.el" (23053 39403 444445
   7 ;;;;;;  274000))
   8 ;;; Generated autoloads from let-alist.el
   9
  10 (autoload 'let-alist "let-alist" "\
  11 Let-bind dotted symbols to their cdrs in ALIST and execute BODY.
  12 Dotted symbol is any symbol starting with a `.'.  Only those present
  13 in BODY are let-bound and this search is done at compile time.
  14
  15 For instance, the following code
  16
  17   (let-alist alist
  18     (if (and .title .body)
  19         .body
  20       .site
  21       .site.contents))
  22
  23 essentially expands to
  24
  25   (let ((.title (cdr (assq \\='title alist)))
  26         (.body  (cdr (assq \\='body alist)))
  27         (.site  (cdr (assq \\='site alist)))
  28         (.site.contents (cdr (assq \\='contents (cdr (assq \\='site alist))))))
  29     (if (and .title .body)
  30         .body
  31       .site
  32       .site.contents))
  33
  34 If you nest `let-alist' invocations, the inner one can't access
  35 the variables of the outer one. You can, however, access alists
  36 inside the original alist by using dots inside the symbol, as
  37 displayed in the example above.
  38
  39 \(fn ALIST &rest BODY)" nil t)
  40
  41 (put 'let-alist 'lisp-indent-function '1)
  42
  43 ;;;***
  44 \f
  45 ;; Local Variables:
  46 ;; version-control: never
  47 ;; no-byte-compile: t
  48 ;; no-update-autoloads: t
  49 ;; End:
  50 ;;; let-alist-autoloads.el ends here