mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-23 10:34:17 +00:00
Code

Resolve a compiler warning

Browse Source
This commit is contained in:
John Wiegley 2010-07-28 20:45:34 -04:00
parent 69f15e0b73
commit dfa41442af
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ob-tangle.el
View File

@ -67,9 +67,9 @@ evaluating BODY."
(declare (indent 1))
(let ((temp-result (make-symbol "temp-result"))
(temp-file (make-symbol "temp-file"))
(visited-p (make-symbol "already-visited")))
`(let (,temp-result ,temp-file)
(setq ,visited-p (get-file-buffer ,file ))
(visited-p (make-symbol "visited-p")))
`(let (,temp-result ,temp-file
(,visited-p (get-file-buffer ,file)))
(org-babel-find-file-noselect-refresh ,file)
(setf ,temp-file (get-file-buffer ,file))
(with-current-buffer ,temp-file