From 5d77184d00424e9b2cadb5f086db1aba4f0beebf Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Tue, 22 Jan 2019 15:54:53 +0100 Subject: [PATCH] Update let-alist. Signed-off-by: Andreas Gerler --- elpa/let-alist-1.0.4.signed | 1 - elpa/let-alist-1.0.4/let-alist-pkg.el | 1 - .../let-alist-autoloads.el | 15 +++++----- elpa/let-alist-1.0.5/let-alist-pkg.el | 2 ++ .../let-alist.el | 30 +++++++++++++------ 5 files changed, 31 insertions(+), 18 deletions(-) delete mode 100644 elpa/let-alist-1.0.4.signed delete mode 100644 elpa/let-alist-1.0.4/let-alist-pkg.el rename elpa/{let-alist-1.0.4 => let-alist-1.0.5}/let-alist-autoloads.el (69%) create mode 100644 elpa/let-alist-1.0.5/let-alist-pkg.el rename elpa/{let-alist-1.0.4 => let-alist-1.0.5}/let-alist.el (84%) diff --git a/elpa/let-alist-1.0.4.signed b/elpa/let-alist-1.0.4.signed deleted file mode 100644 index 281ce60f..00000000 --- a/elpa/let-alist-1.0.4.signed +++ /dev/null @@ -1 +0,0 @@ -Good signature from 474F05837FBDEF9B GNU ELPA Signing Agent (trust undefined) created at 2015-06-12T11:05:02+0200 using DSA \ No newline at end of file diff --git a/elpa/let-alist-1.0.4/let-alist-pkg.el b/elpa/let-alist-1.0.4/let-alist-pkg.el deleted file mode 100644 index ff29474e..00000000 --- a/elpa/let-alist-1.0.4/let-alist-pkg.el +++ /dev/null @@ -1 +0,0 @@ -(define-package "let-alist" "1.0.4" "Easily let-bind values of an assoc-list by their names" 'nil :url "http://elpa.gnu.org/packages/let-alist.html" :keywords '("extensions" "lisp")) diff --git a/elpa/let-alist-1.0.4/let-alist-autoloads.el b/elpa/let-alist-1.0.5/let-alist-autoloads.el similarity index 69% rename from elpa/let-alist-1.0.4/let-alist-autoloads.el rename to elpa/let-alist-1.0.5/let-alist-autoloads.el index 375b5612..1ba87eec 100644 --- a/elpa/let-alist-1.0.4/let-alist-autoloads.el +++ b/elpa/let-alist-1.0.5/let-alist-autoloads.el @@ -1,9 +1,10 @@ ;;; let-alist-autoloads.el --- automatically extracted autoloads ;; ;;; Code: -(add-to-list 'load-path (or (file-name-directory #$) (car load-path))) +(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) -;;;### (autoloads nil "let-alist" "let-alist.el" (21908 10928 0 0)) +;;;### (autoloads nil "let-alist" "let-alist.el" (23082 53688 65987 +;;;;;; 795000)) ;;; Generated autoloads from let-alist.el (autoload 'let-alist "let-alist" "\ @@ -21,10 +22,10 @@ For instance, the following code 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)))))) + (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 @@ -37,7 +38,7 @@ displayed in the example above. \(fn ALIST &rest BODY)" nil t) -(put 'let-alist 'lisp-indent-function '1) +(function-put 'let-alist 'lisp-indent-function '1) ;;;*** diff --git a/elpa/let-alist-1.0.5/let-alist-pkg.el b/elpa/let-alist-1.0.5/let-alist-pkg.el new file mode 100644 index 00000000..30740b7c --- /dev/null +++ b/elpa/let-alist-1.0.5/let-alist-pkg.el @@ -0,0 +1,2 @@ +;;; -*- 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.4/let-alist.el b/elpa/let-alist-1.0.5/let-alist.el similarity index 84% rename from elpa/let-alist-1.0.4/let-alist.el rename to elpa/let-alist-1.0.5/let-alist.el index dbf31e02..43973c26 100644 --- a/elpa/let-alist-1.0.4/let-alist.el +++ b/elpa/let-alist-1.0.5/let-alist.el @@ -1,14 +1,17 @@ ;;; let-alist.el --- Easily let-bind values of an assoc-list by their names -*- lexical-binding: t; -*- -;; Copyright (C) 2014-2015 Free Software Foundation, Inc. +;; Copyright (C) 2014-2017 Free Software Foundation, Inc. -;; Author: Artur Malabarba -;; Maintainer: Artur Malabarba -;; Version: 1.0.4 +;; Author: Artur Malabarba +;; Package-Requires: ((emacs "24.1")) +;; Version: 1.0.5 ;; Keywords: extensions lisp ;; Prefix: let-alist ;; Separator: - +;; This is an Elpa :core package. Don't use functionality that is not +;; compatible with Emacs 24.1. + ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify @@ -73,6 +76,11 @@ symbol, and each cdr is the same symbol without the `.'." ;; with other results in the clause below. (list (cons data (intern (replace-match "" nil nil name))))))) ((not (consp data)) nil) + ((eq (car data) 'let-alist) + ;; For nested ‘let-alist’ forms, ignore symbols appearing in the + ;; inner body because they don’t refer to the alist currently + ;; being processed. See Bug#24641. + (let-alist--deep-dot-search (cadr data))) (t (append (let-alist--deep-dot-search (car data)) (let-alist--deep-dot-search (cdr data)))))) @@ -117,10 +125,10 @@ For instance, the following code 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)))))) + (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 @@ -134,11 +142,15 @@ displayed in the example above." (let ((var (make-symbol "alist"))) `(let ((,var ,alist)) (let ,(mapcar (lambda (x) `(,(car x) ,(let-alist--access-sexp (car x) var))) - (delete-dups (let-alist--deep-dot-search body))) + (delete-dups (let-alist--deep-dot-search body))) ,@body)))) ;;;; ChangeLog: +;; 2015-12-01 Artur Malabarba +;; +;; packages/let-alist: Define it as a :core package +;; ;; 2015-06-11 Artur Malabarba ;; ;; * let-alist (let-alist--deep-dot-search): Fix cons -- 2.47.3