[Emacs-diffs] master 251463c: let-alist.el (let-alist): Use `make-symbol' instead of `gensym'.

[Artur Malabarba]

branch: master
commit 251463c60bfb49920bdaba828e650806682ddd63
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    let-alist.el (let-alist): Use `make-symbol' instead of `gensym'.
---
 lisp/ChangeLog              |    4 ++++
 lisp/let-alist.el           |    4 ++--
 test/automated/let-alist.el |    2 +-
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 436ac16..37fbc6a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-12-22  Artur Malabarba  <address@hidden>
+
+       * let-alist.el (let-alist): Use `make-symbol' instead of `gensym'.
+
 2014-12-20  Michael Albinus  <address@hidden>
 
        * net/tramp-sh.el (tramp-histfile-override): Add :version.
diff --git a/lisp/let-alist.el b/lisp/let-alist.el
index 692beba..7271e39 100644
--- a/lisp/let-alist.el
+++ b/lisp/let-alist.el
@@ -4,7 +4,7 @@
 
 ;; Author: Artur Malabarba <address@hidden>
 ;; Maintainer: Artur Malabarba <address@hidden>
-;; Version: 1.0.2
+;; Version: 1.0.3
 ;; Keywords: extensions lisp
 ;; Prefix: let-alist
 ;; Separator: -
@@ -131,7 +131,7 @@ the variables of the outer one. You can, however, access 
alists
 inside the original alist by using dots inside the symbol, as
 displayed in the example above."
   (declare (indent 1) (debug t))
-  (let ((var (gensym "alist")))
+  (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)))
diff --git a/test/automated/let-alist.el b/test/automated/let-alist.el
index 391ccb4..c43e6a0 100644
--- a/test/automated/let-alist.el
+++ b/test/automated/let-alist.el
@@ -30,7 +30,7 @@
                    (.test-two (cdr (assq 'test-two symbol))))
                (list .test-one .test-two
                      .test-two .test-two)))
-          (cl-letf (((symbol-function #'gensym) (lambda (x) 'symbol)))
+          (cl-letf (((symbol-function #'make-symbol) (lambda (x) 'symbol)))
             (macroexpand
              '(let-alist data (list .test-one .test-two
                                     .test-two .test-two))))))