andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* diff-mode.el (diff-refine-hunk): Make it work when the hunk contains

Browse source 
empty lines without a leading space.
This commit is contained in:
Stefan Monnier 2010-12-07 14:48:15 -05:00
parent 5dcb4c4e5d
commit b1816a74de
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2010-12-07 Stefan Monnier <monnier@iro.umontreal.ca>
* diff-mode.el (diff-refine-hunk): Make it work when the hunk contains
empty lines without a leading space.
2010-12-06 Leo <sdl.web@gmail.com>
* dired-aux.el (dired-do-redisplay): Postphone

7
lisp/diff-mode.el
View file

@ -1827,10 +1827,13 @@ For use in `add-log-current-defun-function'."
(eval-and-compile (require 'smerge-mode))
(save-excursion
(diff-beginning-of-hunk 'try-harder)
(let* ((style (diff-hunk-style)) ;Skips the hunk header as well.
(let* ((start (point))
(style (diff-hunk-style)) ;Skips the hunk header as well.
(beg (point))
(props '((diff-mode . fine) (face diff-refine-change)))
(end (progn (diff-end-of-hunk) (point))))
;; Be careful to go back to `start' so diff-end-of-hunk gets
;; to read the hunk header's line info.
(end (progn (goto-char start) (diff-end-of-hunk) (point))))
(remove-overlays beg end 'diff-mode 'fine)