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

Better indication of "git remote update" in mode line.

Browse source 
* magit.el (magit-process-indicator-from-command): New.
(magit-run-command): Use it.
This commit is contained in:
Marius Vollmer 2008-08-31 00:41:22 +03:00
parent 7ad6d4dd55
commit ae5b5d4fe0
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
magit.el
View file

@ -479,6 +479,16 @@ Many Magit faces inherit from this one by default."
(concat " " str) (concat " " str)
"")))) ""))))
(defun magit-process-indicator-from-command (cmd args)
(cond ((or (null args)
(not (equal cmd "git")))
cmd)
((or (null (cdr args))
(not (member (car args) '("remote"))))
(car args))
(t
(concat (car args) " " (cadr args)))))
(defvar magit-process nil) (defvar magit-process nil)
(defun magit-run-command (logline cmd &rest args) (defun magit-run-command (logline cmd &rest args)
@ -486,9 +496,8 @@ Many Magit faces inherit from this one by default."
(error "Git is already running.")) (error "Git is already running."))
(let ((dir default-directory) (let ((dir default-directory)
(buf (get-buffer-create "*magit-process*"))) (buf (get-buffer-create "*magit-process*")))
(magit-set-mode-line-process (if (equal cmd "git") (magit-set-mode-line-process
(car args) (magit-process-indicator-from-command cmd args))
cmd))
(save-excursion (save-excursion
(set-buffer buf) (set-buffer buf)
(setq default-directory dir) (setq default-directory dir)