mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-05 12:12:58 +00:00
ob-core: do not declare and define org-babel-call-process-region-original
* 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:
parent
3f6b24d718
commit
1ffd4f615a
|
@ -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'.
|
||||||
|
|
Loading…
Reference in a new issue