diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2013-12-10 11:11:27 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-12-10 11:11:27 -0700 |
commit | 031d2565f7106430890de9bfb201ad5d82ee9560 (patch) | |
tree | 8a3f7c6d80758345ed650d1c6428a767863011e1 | |
parent | ed64845fd60ab5fc4a9e2965d96aa69901a86361 (diff) | |
download | org-mode-031d2565f7106430890de9bfb201ad5d82ee9560.tar.gz |
don't change code block body during sha1 hashing
* lisp/ob-core.el (org-babel-sha1-hash): Don't change code block body
during sha1 hashing.
-rw-r--r-- | lisp/ob-core.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el index ee2805c..c8bda5e 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -1223,9 +1223,8 @@ the current subtree." ;; expanded body (lang (nth 0 info)) (params (nth 2 info)) - (body (setf (nth 1 info) - (if (org-babel-noweb-p params :eval) - (org-babel-expand-noweb-references info) (nth 1 info)))) + (body (if (org-babel-noweb-p params :eval) + (org-babel-expand-noweb-references info) (nth 1 info))) (expand-cmd (intern (concat "org-babel-expand-body:" lang))) (assignments-cmd (intern (concat "org-babel-variable-assignments:" lang))) |