let-alist.el (let-alist): Use `make-symbol' instead of `gensym'.

3 files changed, 7 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 436ac16d866..37fbc6a5185 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-12-22  Artur Malabarba  <bruce.connor.am@gmail.com>
+
+        * let-alist.el (let-alist): Use `make-symbol' instead of `gensym'.
+
 2014-12-20  Michael Albinus  <michael.albinus@gmx.de>
 
         * net/tramp-sh.el (tramp-histfile-override): Add :version.
diff --git a/lisp/let-alist.el b/lisp/let-alist.el
index 692beba16dd..7271e391f47 100644
--- a/lisp/let-alist.el
+++ b/lisp/let-alist.el
@@ -4,7 +4,7 @@
 
 ;; Author: Artur Malabarba <bruce.connor.am@gmail.com>
 ;; Maintainer: Artur Malabarba <bruce.connor.am@gmail.com>
-;; 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 391ccb44a8d..c43e6a07ddc 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))))))