[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 4e3605e: * let-alist (let-alist--deep-dot-search): Fix con
From: |
Artur Malabarba |
Subject: |
[elpa] master 4e3605e: * let-alist (let-alist--deep-dot-search): Fix cons |
Date: |
Thu, 11 Jun 2015 14:09:33 +0000 |
branch: master
commit 4e3605e37cacaeb0b6c3d4e7cff353f069455154
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
* let-alist (let-alist--deep-dot-search): Fix cons
---
packages/let-alist/let-alist.el | 10 +++++-----
1 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/packages/let-alist/let-alist.el b/packages/let-alist/let-alist.el
index c490a9f..ca7a904 100644
--- a/packages/let-alist/let-alist.el
+++ b/packages/let-alist/let-alist.el
@@ -4,7 +4,7 @@
;; Author: Artur Malabarba <address@hidden>
;; Maintainer: Artur Malabarba <address@hidden>
-;; Version: 1.0.3
+;; Version: 1.0.4
;; Keywords: extensions lisp
;; Prefix: let-alist
;; Separator: -
@@ -72,12 +72,12 @@ 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)))))))
- ((not (listp data)) nil)
- (t (apply #'append
- (mapcar #'let-alist--deep-dot-search data)))))
+ ((not (consp data)) nil)
+ (t (append (let-alist--deep-dot-search (car data))
+ (let-alist--deep-dot-search (cdr data))))))
(defun let-alist--access-sexp (symbol variable)
- "Return a sexp used to acess SYMBOL inside VARIABLE."
+ "Return a sexp used to access SYMBOL inside VARIABLE."
(let* ((clean (let-alist--remove-dot symbol))
(name (symbol-name clean)))
(if (string-match "\\`\\." name)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 4e3605e: * let-alist (let-alist--deep-dot-search): Fix cons,
Artur Malabarba <=