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

Fix incorrect diff hightlighting of lines beginning with "+" or "-".

Browse source
This commit is contained in:
René Stadler 2009-01-09 23:02:27 +02:00
parent b7fe74520d
commit 45fb865e1b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
magit.el
View file

@ -1216,7 +1216,7 @@ Please see the manual for a complete description of Magit.
(defun magit-wash-hunk () (defun magit-wash-hunk ()
(cond ((looking-at "\\(^@+\\)[^@]*@+") (cond ((looking-at "\\(^@+\\)[^@]*@+")
(let ((n-files (length (match-string 1))) (let ((n-columns (1- (length (match-string 1))))
(head (match-string 0))) (head (match-string 0)))
(magit-with-section head 'hunk (magit-with-section head 'hunk
(magit-put-line-property 'face 'magit-diff-hunk-header) (magit-put-line-property 'face 'magit-diff-hunk-header)
@ -1224,7 +1224,7 @@ Please see the manual for a complete description of Magit.
(while (not (or (eobp) (while (not (or (eobp)
(looking-at "^diff\\|^@@"))) (looking-at "^diff\\|^@@")))
(let ((prefix (buffer-substring-no-properties (let ((prefix (buffer-substring-no-properties
(point) (min (+ (point) n-files) (point-max))))) (point) (min (+ (point) n-columns) (point-max)))))
(cond ((string-match "\\+" prefix) (cond ((string-match "\\+" prefix)
(magit-put-line-property 'face 'magit-diff-add)) (magit-put-line-property 'face 'magit-diff-add))
((string-match "-" prefix) ((string-match "-" prefix)