thank you, it worked fine! On Wed, Apr 21, 2010 at 9:56 AM, Rémi Vanicat <[email protected]> wrote: > Added a compatibility function for start-file-process as it does not exist > in Emacs 22. > --- > Can you test this patch ? If you find any other problem, please report it. > > magit.el | 10 ++++++++-- > 1 files changed, 8 insertions(+), 2 deletions(-) > > diff --git a/magit.el b/magit.el > index 396ce2a..ebc65df 100644 > --- a/magit.el > +++ b/magit.el > @@ -269,6 +269,12 @@ Many Magit faces inherit from this one by default." > (declare (indent 0)) > `(magit-refresh-wrapper (lambda () ,@body))) > > +;;; Compatibilities > + > +(if (functionp 'start-file-process) > + (defalias 'magit-start-process 'start-file-process) > + (defalias 'magit-start-process 'start-process)) > + > ;;; Utilities > > (defun magit-use-region-p () > @@ -1201,7 +1207,7 @@ FUNC should leave point at the end of the modified > region" > (cond (nowait > (setq magit-process > (let ((process-connection-type nil)) > - (apply 'start-file-process cmd buf cmd args))) > + (apply 'magit-start-process cmd buf cmd args))) > (set-process-sentinel magit-process 'magit-process-sentinel) > (set-process-filter magit-process 'magit-process-filter) > (when input > @@ -1227,7 +1233,7 @@ FUNC should leave point at the end of the modified > region" > (with-current-buffer input > (setq default-directory dir) > (setq magit-process > - (apply 'start-file-process cmd buf cmd args)) > + (apply 'magit-start-process cmd buf cmd args)) > (set-process-filter magit-process 'magit-process-filter) > (process-send-region magit-process > (point-min) (point-max)) > -- > 1.7.0.4 > > -- > Rémi Vanicat >
-- Daniel Barreto N. volrath.fp[at]gmail:com daniel[at]ac:labf:usb:ve Linux Registered User #454783 "I stepped out. I did not step down..." -- Subscription settings: http://groups.google.com/group/magit/subscribe?hl=en
