gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow magit to work with Tramp.

Browse source
This commit is contained in:
Ian Eure 2009-02-21 23:10:32 -08:00 committed by Marius Vollmer
parent 549a2cb836
commit e4032c3d17
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
magit.el
View file

@ -224,8 +224,14 @@ Many Magit faces inherit from this one by default."
(setq lines (cdr lines))) (setq lines (cdr lines)))
(nreverse lines))))) (nreverse lines)))))
(defun magit-shell-command-to-string (command)
(with-output-to-string
(with-current-buffer
standard-output
(process-file shell-file-name nil t nil shell-command-switch command))))
(defun magit-shell (command) (defun magit-shell (command)
(let ((str (shell-command-to-string command))) (let ((str (magit-shell-command-to-string command)))
(if (string= str "") (if (string= str "")
nil nil
(if (equal (elt str (- (length str) 1)) ?\n) (if (equal (elt str (- (length str) 1)) ?\n)
@ -287,7 +293,7 @@ Many Magit faces inherit from this one by default."
(defun magit-read-top-dir () (defun magit-read-top-dir ()
(file-name-as-directory (file-name-as-directory
(read-directory-name "Git repository: " (read-directory-name "Git repository: "
(magit-get-top-dir default-directory)))) (or (magit-get-top-dir default-directory) default-directory))))
(defun magit-name-rev (rev) (defun magit-name-rev (rev)
(and rev (and rev
@ -554,7 +560,7 @@ Many Magit faces inherit from this one by default."
(insert (propertize buffer-title 'face 'magit-section-title) (insert (propertize buffer-title 'face 'magit-section-title)
"\n")) "\n"))
(setq body-beg (point)) (setq body-beg (point))
(apply 'call-process cmd nil t nil args) (apply 'process-file cmd nil t nil args)
(if (not (eq (char-before) ?\n)) (if (not (eq (char-before) ?\n))
(insert "\n")) (insert "\n"))
(if washer (if washer