Indicate deleted and renamed files.

This commit is contained in:
Marius Vollmer 2008-09-07 05:25:35 +03:00
parent a379bb1e0f
commit e5ec239c31

View file

@ -856,12 +856,17 @@ Please see the manual for a complete description of Magit.
(goto-char (match-beginning 0))
(goto-char (point-max)))
(point-marker))))
;; XXX - figure out real status and propertize
(magit-set-section-info file)
(let ((status (cond
((save-excursion
(search-forward-regexp "^new" end t))
"New ")
((save-excursion
(search-forward-regexp "^deleted" end t))
"Deleted ")
((save-excursion
(search-forward-regexp "^rename" end t))
"Renamed ")
(t
"Modified"))))
(insert "\t" status " " file "\n")