Commit 7cb76caa authored by Michael Albinus's avatar Michael Albinus
Browse files

* simple.el (start-file-process): New defun.

parent 9f369268
2007-07-07 Michael Albinus <>
* simple.el (start-file-process): New defun.
2007-07-07 Stefan Monnier <> 2007-07-07 Stefan Monnier <>
* files.el (find-file-confirm-nonexistent-file): Rename from * files.el (find-file-confirm-nonexistent-file): Rename from
...@@ -2202,6 +2202,18 @@ value passed." ...@@ -2202,6 +2202,18 @@ value passed."
(when stderr-file (delete-file stderr-file)) (when stderr-file (delete-file stderr-file))
(when lc (delete-file lc))))) (when lc (delete-file lc)))))
(defun start-file-process (name buffer program &rest program-args)
"Start a program in a subprocess. Return the process object for it.
Similar to `start-process', but may invoke a file handler based on
`default-directory'. The current working directory of the
subprocess is `default-directory'.
PROGRAM and PROGRAM-ARGS might be file names. They are not
objects of file handler invocation."
(let ((fh (find-file-name-handler default-directory 'start-file-process)))
(if fh (apply fh 'start-file-process name buffer program program-args)
(apply 'start-process name buffer program program-args))))
(defvar universal-argument-map (defvar universal-argument-map
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment