From: Artur Malabarba Date: Mon, 22 Dec 2014 12:36:30 +0000 (-0200) Subject: let-alist.el (let-alist): Use `make-symbol' instead of `gensym'. X-Git-Tag: emacs-25.0.90~2635^2~4 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=251463c60bfb49920bdaba828e650806682ddd63;p=emacs.git let-alist.el (let-alist): Use `make-symbol' instead of `gensym'. --- 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))))))