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

Fix untracked files.

Browse source 
* magit.el (magit-wash-other-files): Skip empty lines.
This commit is contained in:
Marius Vollmer 2008-08-20 01:05:21 +03:00
parent 4c9659405b
commit 5421e52262
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
magit.el
View file

@ -491,14 +491,16 @@ Please see the manual for a complete description of Magit.
(let ((seq 0))
(while (not (eobp))
(let ((filename (buffer-substring (point) (line-end-position))))
(magit-mark-subsection (line-beginning-position)
(+ (line-end-position) 1)
seq 1)
(magit-put-line-property 'face '(:foreground "red"))
(magit-put-line-property 'magit-info (list 'other-file filename)))
(setq seq (+ seq 1))
(cond ((not (string= filename ""))
(magit-mark-subsection (line-beginning-position)
(line-beginning-position 2)
seq 1)
(magit-put-line-property 'face '(:foreground "red"))
(magit-put-line-property 'magit-info
(list 'other-file filename))
(setq seq (+ seq 1)))))
(forward-line)
(beginning-of-line))))
(beginning-of-line))))
(defun magit-wash-diff-propertize-diff (head-seq head-beg head-end)
(let ((head-end (or head-end (point))))