On Thu, 05 Aug 2010 12:46:37 +0100 Leo <[email protected]> wrote: L> Per discussion of http://article.gmane.org/gmane.emacs.tramp/7439, the L> following patch (courtesy of Michael Albinus) will make running magit L> over tramp more smoothly.
L> NB: emacs-trunk has a generic solution so it is not needed if you are L> running cutting-edge emacs. Maybe the patch should use emacs-version then? Something like: ;;; only tested with GNU Emacs (when (> (nth 0 (version-to-list emacs-version)) 23) ...) Is XEmacs also affected? Ted L> diff --git a/magit.el b/magit.el L> index cc61be8..6b8f1ea 100644 L> --- a/magit.el L> +++ b/magit.el L> @@ -1480,6 +1480,7 @@ FUNC should leave point at the end of the modified region" L> (error "Git failed")) L> successp))) L> +(autoload 'dired-uncache "dired") L> (defun magit-process-sentinel (process event) L> (let ((msg (format "Git %s." (substring event 0 -1))) L> (successp (string-match "^finished" event))) L> @@ -1487,7 +1488,8 @@ FUNC should leave point at the end of the modified region" L> (let ((inhibit-read-only t)) L> (goto-char (point-max)) L> (insert msg "\n") L> - (message msg))) L> + (message msg)) L> + (dired-uncache default-directory)) L> (setq magit-process nil) L> (magit-set-mode-line-process nil) L> (magit-refresh-buffer magit-process-client-buffer))) --
