From 251463c60bfb49920bdaba828e650806682ddd63 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Mon, 22 Dec 2014 10:36:30 -0200 Subject: [PATCH] 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 436ac16d866..37fbc6a5185 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2014-12-22 Artur Malabarba + + * let-alist.el (let-alist): Use `make-symbol' instead of `gensym'. + 2014-12-20 Michael Albinus * 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 ;; Maintainer: Artur Malabarba -;; 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)))))) -- 2.39.2