diff options
| author | Charles Berry <ccberry@ucsd.edu> | 2016-04-23 16:26:13 -0700 |
|---|---|---|
| committer | Charles Berry <ccberry@ucsd.edu> | 2016-04-23 16:33:39 -0700 |
| commit | e1d6a43c8e9d73cd1e157531c3402e4e6473f922 (patch) | |
| tree | b29eb8bf01192cd0c4c46849437909f295d82544 | |
| parent | e42454088ff1176cce9cc65a4bd1c6f17fe958ec (diff) | |
| download | org-mode-e1d6a43c8e9d73cd1e157531c3402e4e6473f922.tar.gz | |
ob-comint.el: Reinstate let-bound variable from last commit.
* ob-comint.el (org-babel-comint-eval-invisibly-and-wait-for-file):
Reinstate `let (v)' which `org-babel-evaluate-session' relies on.
| -rw-r--r-- | lisp/ob-comint.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ob-comint.el b/lisp/ob-comint.el index c6a0039..123e42a 100644 --- a/lisp/ob-comint.el +++ b/lisp/ob-comint.el @@ -151,8 +151,10 @@ FILE exists at end of evaluation." (if (= (aref string (1- (length string))) ?\n) string (concat string "\n"))) ;; From Tramp 2.1.19 the following cache flush is not necessary (if (file-remote-p default-directory) - (with-parsed-tramp-file-name default-directory nil - (tramp-flush-directory-property v ""))) + (let (v) + (ignore v) + (with-parsed-tramp-file-name default-directory nil + (tramp-flush-directory-property v "")))) (while (not (file-exists-p file)) (sit-for (or period 0.25)))) (provide 'ob-comint) |