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

Show running command in the mode line.

Browse source 
* magit.el (magit-set-mode-line-process): New.
(magit-run, magit-process-sentinel): Use it.
(magit-mode): Initialiaze magit-line-process, for documentation purposes.
This commit is contained in:
Marius Vollmer 2008-08-13 17:27:31 +03:00
parent 98c6d4ff90
commit a0dc20dc52
1 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
magit.el
View file

@ -169,6 +169,13 @@
;;; Running asynchronous commands ;;; Running asynchronous commands
(defun magit-set-mode-line-process (str)
(save-excursion
(set-buffer (magit-find-status-buffer))
(setq mode-line-process (if str
(concat " " str)
""))))
(defvar magit-process nil) (defvar magit-process nil)
(defun magit-run (cmd &rest args) (defun magit-run (cmd &rest args)
@ -176,6 +183,9 @@
(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")
(car args)
cmd))
(save-excursion (save-excursion
(set-buffer buf) (set-buffer buf)
(setq default-directory dir) (setq default-directory dir)
@ -204,9 +214,11 @@
(setq magit-process nil)) (setq magit-process nil))
((string-match "exited abnormally" event) ((string-match "exited abnormally" event)
(message "Git failed.") (message "Git failed.")
(setq magit-process nil)) (setq magit-process nil)
(magit-display-process))
(t (t
(message "Git is weird."))) (message "Git is weird.")))
(magit-set-mode-line-process nil)
(magit-revert-files) (magit-revert-files)
(magit-update-status (magit-find-status-buffer))) (magit-update-status (magit-find-status-buffer)))
@ -336,7 +348,8 @@ pushed.
(kill-all-local-variables) (kill-all-local-variables)
(setq buffer-read-only t) (setq buffer-read-only t)
(setq major-mode 'magit-mode (setq major-mode 'magit-mode
mode-name "Magit") mode-name "Magit"
mode-line-process "")
(use-local-map magit-mode-map) (use-local-map magit-mode-map)
(run-mode-hooks 'magit-mode-hook)) (run-mode-hooks 'magit-mode-hook))