From a9bf24fc6817d70415e8ac3df6da1b6a1ee695b9 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Thu, 31 Oct 2019 17:18:35 +0100 Subject: [PATCH] update let-alist --- elpa/let-alist-1.0.5/let-alist-pkg.el | 2 -- .../let-alist-autoloads.el | 4 ++-- elpa/let-alist-1.0.6/let-alist-pkg.el | 2 ++ elpa/{let-alist-1.0.5 => let-alist-1.0.6}/let-alist.el | 8 +++++--- 4 files changed, 9 insertions(+), 7 deletions(-) delete mode 100644 elpa/let-alist-1.0.5/let-alist-pkg.el rename elpa/{let-alist-1.0.5 => let-alist-1.0.6}/let-alist-autoloads.el (94%) create mode 100644 elpa/let-alist-1.0.6/let-alist-pkg.el rename elpa/{let-alist-1.0.5 => let-alist-1.0.6}/let-alist.el (96%) diff --git a/elpa/let-alist-1.0.5/let-alist-pkg.el b/elpa/let-alist-1.0.5/let-alist-pkg.el deleted file mode 100644 index 30740b7c..00000000 --- a/elpa/let-alist-1.0.5/let-alist-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "let-alist" "1.0.5" "Easily let-bind values of an assoc-list by their names" '((emacs "24.1")) :url "http://elpa.gnu.org/packages/let-alist.html" :keywords '("extensions" "lisp")) diff --git a/elpa/let-alist-1.0.5/let-alist-autoloads.el b/elpa/let-alist-1.0.6/let-alist-autoloads.el similarity index 94% rename from elpa/let-alist-1.0.5/let-alist-autoloads.el rename to elpa/let-alist-1.0.6/let-alist-autoloads.el index 1ba87eec..71b55fbf 100644 --- a/elpa/let-alist-1.0.5/let-alist-autoloads.el +++ b/elpa/let-alist-1.0.6/let-alist-autoloads.el @@ -3,8 +3,8 @@ ;;; Code: (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) -;;;### (autoloads nil "let-alist" "let-alist.el" (23082 53688 65987 -;;;;;; 795000)) +;;;### (autoloads nil "let-alist" "let-alist.el" (23994 42597 280998 +;;;;;; 677000)) ;;; Generated autoloads from let-alist.el (autoload 'let-alist "let-alist" "\ diff --git a/elpa/let-alist-1.0.6/let-alist-pkg.el b/elpa/let-alist-1.0.6/let-alist-pkg.el new file mode 100644 index 00000000..aed02fc0 --- /dev/null +++ b/elpa/let-alist-1.0.6/let-alist-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "let-alist" "1.0.6" "Easily let-bind values of an assoc-list by their names" '((emacs "24.1")) :url "http://elpa.gnu.org/packages/let-alist.html" :keywords '("extensions" "lisp") :authors '(("Artur Malabarba" . "emacs@endlessparentheses.com")) :maintainer '("Artur Malabarba" . "emacs@endlessparentheses.com")) diff --git a/elpa/let-alist-1.0.5/let-alist.el b/elpa/let-alist-1.0.6/let-alist.el similarity index 96% rename from elpa/let-alist-1.0.5/let-alist.el rename to elpa/let-alist-1.0.6/let-alist.el index 43973c26..96b397f1 100644 --- a/elpa/let-alist-1.0.5/let-alist.el +++ b/elpa/let-alist-1.0.6/let-alist.el @@ -1,10 +1,10 @@ ;;; let-alist.el --- Easily let-bind values of an assoc-list by their names -*- lexical-binding: t; -*- -;; Copyright (C) 2014-2017 Free Software Foundation, Inc. +;; Copyright (C) 2014-2019 Free Software Foundation, Inc. ;; Author: Artur Malabarba ;; Package-Requires: ((emacs "24.1")) -;; Version: 1.0.5 +;; Version: 1.0.6 ;; Keywords: extensions lisp ;; Prefix: let-alist ;; Separator: - @@ -25,7 +25,7 @@ ;; 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 . +;; along with GNU Emacs. If not, see . ;;; Commentary: @@ -75,6 +75,8 @@ symbol, and each cdr is the same symbol without the `.'." ;; Return the cons cell inside a list, so it can be appended ;; with other results in the clause below. (list (cons data (intern (replace-match "" nil nil name))))))) + ((vectorp data) + (apply #'nconc (mapcar #'let-alist--deep-dot-search data))) ((not (consp data)) nil) ((eq (car data) 'let-alist) ;; For nested ‘let-alist’ forms, ignore symbols appearing in the -- 2.47.3