From b44c08dd455236a63ae1da07cb30639d2679ba92 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 19 Jan 2012 07:34:58 -0700 Subject: [PATCH] remove all calls to `gensym' * lisp/ob.el (org-babel-map-src-blocks): Replace gensym with make-symbol. (org-babel-map-inline-src-blocks): Replace gensym with make-symbol. (org-babel-map-call-lines): Replace gensym with make-symbol. (org-babel-map-executables): Replace gensym with make-symbol. --- lisp/ob.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/ob.el b/lisp/ob.el index 051de673a..7a4b2239d 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -812,7 +812,7 @@ body ------------- string holding the body of the code block beg-body --------- point at the beginning of the body end-body --------- point at the end of the body" (declare (indent 1)) - (let ((tempvar (gensym "file"))) + (let ((tempvar (make-symbol "file"))) `(let* ((,tempvar ,file) (visited-p (or (null ,tempvar) (get-file-buffer (expand-file-name ,tempvar)))) @@ -850,7 +850,7 @@ end-body --------- point at the end of the body" If FILE is nil evaluate BODY forms on source blocks in current buffer." (declare (indent 1)) - (let ((tempvar (gensym "file"))) + (let ((tempvar (make-symbol "file"))) `(let* ((,tempvar ,file) (visited-p (or (null ,tempvar) (get-file-buffer (expand-file-name ,tempvar)))) @@ -874,7 +874,7 @@ buffer." If FILE is nil evaluate BODY forms on source blocks in current buffer." (declare (indent 1)) - (let ((tempvar (gensym "file"))) + (let ((tempvar (make-symbol "file"))) `(let* ((,tempvar ,file) (visited-p (or (null ,tempvar) (get-file-buffer (expand-file-name ,tempvar)))) @@ -894,8 +894,8 @@ buffer." ;;;###autoload (defmacro org-babel-map-executables (file &rest body) (declare (indent 1)) - (let ((tempvar (gensym "file")) - (rx (gensym "rx"))) + (let ((tempvar (make-symbol "file")) + (rx (make-symbol "rx"))) `(let* ((,tempvar ,file) (,rx (concat "\\(" org-babel-src-block-regexp "\\|" org-babel-inline-src-block-regexp -- 2.11.4.GIT