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

Better tramp interaction.

Browse source
This commit is contained in:
Phil Jackson 2010-08-06 10:04:03 +01:00
parent 861e555983
commit 5a406c16c5
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
magit.el
View file

@ -1480,6 +1480,7 @@ FUNC should leave point at the end of the modified region"
(error "Git failed"))
successp)))
(autoload 'dired-uncache "dired")
(defun magit-process-sentinel (process event)
(let ((msg (format "Git %s." (substring event 0 -1)))
(successp (string-match "^finished" event)))
@ -1487,7 +1488,9 @@ FUNC should leave point at the end of the modified region"
(let ((inhibit-read-only t))
(goto-char (point-max))
(insert msg "\n")
(message msg)))
(message msg))
(unless (memq (process-status process) '(run open))
(dired-uncache default-directory)))
(setq magit-process nil)
(magit-set-mode-line-process nil)
(magit-refresh-buffer magit-process-client-buffer)))