mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-20 03:56:28 +00:00
Code Releases Activity

ob-core: do not declare and define org-babel-call-process-region-original

Browse source 
* lisp/ob-core.el (org-babel-call-process-region-original): Change
  declaration into definition with nil initial value at the beginning
  of the file and drop the later definition.  Add comment that the
  dynamic scoping of this variable is done for tramp.
This commit is contained in:
Achim Gratz 2013-02-27 22:55:26 +01:00
parent 3f6b24d718
commit 1ffd4f615a
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ob-core.el
View file

@ -33,7 +33,7 @@
(if (memq system-type '(windows-nt cygwin)) (if (memq system-type '(windows-nt cygwin))
".exe" ".exe"
nil)) nil))
(defvar org-babel-call-process-region-original) (defvar org-babel-call-process-region-original nil) ;; dynamically scoped for tramp
(defvar org-src-lang-modes) (defvar org-src-lang-modes)
(defvar org-babel-library-of-babel) (defvar org-babel-library-of-babel)
(declare-function show-all "outline" ()) (declare-function show-all "outline" ())
@ -2527,7 +2527,6 @@ of the string."
(org-babel-chomp (org-reverse-string string) regexp)) (org-babel-chomp (org-reverse-string string) regexp))
regexp)) regexp))
(defvar org-babel-org-babel-call-process-region-original nil)
(defun org-babel-tramp-handle-call-process-region (defun org-babel-tramp-handle-call-process-region
(start end program &optional delete buffer display &rest args) (start end program &optional delete buffer display &rest args)
"Use Tramp to handle `call-process-region'. "Use Tramp to handle `call-process-region'.