Created
March 7, 2011 01:16
-
-
Save tumf/857938 to your computer and use it in GitHub Desktop.
magitのエラーを修正: Symbol's function definition is void: start-file-process..
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; for magit commit problem | |
;; http://www.mail-archive.com/[email protected]/msg00420.html | |
(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'. See Info node `(elisp)Magic File Names'. | |
This handler ought to run PROGRAM, perhaps on the local host, | |
perhaps on a remote host that corresponds to `default-directory'. | |
In the latter case, the local part of `default-directory' becomes | |
the working directory of the process. | |
PROGRAM and PROGRAM-ARGS might be file names. They are not | |
objects of file handler invocation. File handlers might not | |
support pty association, if PROGRAM is nil." | |
(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)))) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment