From 7b244600872bda831a2d80c4797b8fb13b73197c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 10 Dec 2014 16:18:46 -0500 Subject: [PATCH] * lisp/let-alist.el: Cosmetic changes. --- lisp/let-alist.el | 47 ++++++++++++++++++++--------------------------- 1 file changed, 20 insertions(+), 27 deletions(-) diff --git a/lisp/let-alist.el b/lisp/let-alist.el index 1cf5c27af3e..982dd2ee523 100644 --- a/lisp/let-alist.el +++ b/lisp/let-alist.el @@ -1,4 +1,4 @@ -;;; let-alist.el --- Easily let-bind values of an assoc-list by their names. +;;; let-alist.el --- Easily let-bind values of an assoc-list by their names ;; Copyright (C) 2014 Free Software Foundation, Inc. @@ -9,8 +9,23 @@ ;; Prefix: let-alist ;; Separator: - +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see . + ;;; Commentary: -;; + ;; This package offers a single macro, `let-alist'. This macro takes a ;; first argument (whose value must be an alist) and a body. ;; @@ -39,28 +54,11 @@ ;; invocations, the inner one can't access the variables of the outer ;; one. -;;; License: -;; -;; This file is part of GNU Emacs. -;; -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. -;; -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. -;; -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see . - ;;; Code: (defun let-alist--deep-dot-search (data) - "Return alist of symbols inside DATA which start with a `.'. + "Return alist of symbols inside DATA that start with a `.'. Perform a deep search and return an alist where each car is the symbol, and each cdr is the same symbol without the `.'." (cond @@ -77,9 +75,8 @@ symbol, and each cdr is the same symbol without the `.'." ;;;###autoload (defmacro let-alist (alist &rest body) "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. +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 @@ -103,8 +100,4 @@ expands to (provide 'let-alist) -;; Local Variables: -;; sentence-end-double-space: t -;; End: - ;;; let-alist.el ends here -- 2.39.2