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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 436ac16d866dd338b9ccc0f8a750205276007d97..37fbc6a51857ec4ea0423dc3ce99767b8539c0f7 100644 (file)
--- 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 692beba16dde097440e3a0f981c93f03cdc1791d..7271e391f47f518929a5534016d1c9082f3c0da9 100644 (file)
--- 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 391ccb44a8d5adc23ca85c76cabd7b1f22dd82ee..c43e6a07ddc43f8a106c1b9c0340f8e9ded23053 100644 (file)
--- 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))))))