From f46b92df92f2c8202164b86b3a1ddee936ee2d4b Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 7 Aug 2016 13:57:23 +0200 Subject: [PATCH] Backport commit 2c05061 from Emacs * lisp/ob-core.el (org-babel-local-file-name): Use `file-remote-p'. Add `make-nearby-temp-file' and `temporary-file-directory' 2c0506173d92dd9d6de409a045668c6b5cf1fcef Michael Albinus Sun Aug 7 13:57:23 2016 +0200 --- lisp/ob-core.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 2617c1329..014c5e907 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -48,11 +48,6 @@ (declare-function org-mark-ring-push "org" (&optional pos buffer)) (declare-function tramp-compat-make-temp-file "tramp-compat" (filename &optional dir-flag)) -(declare-function tramp-dissect-file-name "tramp" (name &optional nodefault)) -(declare-function tramp-file-name-user "tramp" (vec)) -(declare-function tramp-file-name-host "tramp" (vec)) -(declare-function with-parsed-tramp-file-name "tramp" (filename var &rest body) - t) (declare-function org-icompleting-read "org" (&rest args)) (declare-function org-edit-src-code "org-src" (&optional code edit-buffer-name)) (declare-function org-edit-src-exit "org-src" ()) @@ -2965,7 +2960,7 @@ character of the string." (start end program &optional delete buffer display &rest args) "Use Tramp to handle `call-process-region'. Fixes a bug in `tramp-handle-call-process-region'." - (if (and (featurep 'tramp) (file-remote-p default-directory)) + (if (file-remote-p default-directory) (let ((tmpfile (tramp-compat-make-temp-file ""))) (write-region start end tmpfile) (when delete (delete-region start end))