babel: replaced `save-excursion' with `with-current-buffer'

* lisp/babel/ob.el (org-babel-expand-noweb-references): `save-excursion' is not longer defeated by `set-buffer'
2010-06-12 16:16:28 -07:00 · 2010-06-12 16:16:28 -07:00 · ea8565e2ed
parent e0b71bf8e2
commit ea8565e2ed
1 changed files with 1 additions and 1 deletions
--- a/lisp/babel/ob.el
+++ b/lisp/babel/ob.el
@ -1286,7 +1286,7 @@ block but are passed literally to the \"example-block\"."
          (nb-add (buffer-substring index (point)))
          (goto-char (match-end 0))
          (setq index (point))
-          (nb-add (save-excursion
+          (nb-add (save-current-buffer
                    (set-buffer parent-buffer)
                    (mapconcat ;; interpose `prefix' between every line
                     #'identity