Skip to content

Instantly share code, notes, and snippets.

@tumf
Created March 7, 2011 01:16
Show Gist options
  • Save tumf/857938 to your computer and use it in GitHub Desktop.
Save tumf/857938 to your computer and use it in GitHub Desktop.
magitのエラーを修正: Symbol's function definition is void: start-file-process..
;; for magit commit problem
;; http://www.mail-archive.com/magit@googlegroups.com/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