Fix minor bug of diff-fixup-modifs on small diffs (Bug#8672).

* vc/diff-mode.el (diff-fixup-modifs): Locate correct position for
hunk-end tags.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 631a1bec3d0d4db76edac273d4df4ddb75c69421..2e0e7f99e5619ad4973389464961014e2c62c3a8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-05-15  Chong Yidong  <cyd@stupidchicken.com>
 
+       * vc/diff-mode.el (diff-fixup-modifs): Locate correct position for
+       hunk-end tags (Bug#8672).
+
        * vc/vc-annotate.el (vc-annotate-mode-map): Bind = to
        vc-annotate-show-diff-revision-at-line (Bug#8671).
 

diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el
index 22dac00e7e48caab8dac3f03d1e96ff2ac87c6da..318163f39ca8eee1408053eeb0b15289c440e9fc 100644 (file)
--- a/lisp/vc/diff-mode.el
+++ b/lisp/vc/diff-mode.el
@@ -1118,45 +1118,47 @@ else cover the whole buffer."
     (save-excursion
       (goto-char end) (diff-end-of-hunk nil 'donttrustheader)
       (let ((plus 0) (minus 0) (space 0) (bang 0))
-       (while (and (= (forward-line -1) 0) (<= start (point)))
-         (if (not (looking-at
-                   (concat diff-hunk-header-re-unified
-                           "\\|[-*][-*][-*] [0-9,]+ [-*][-*][-*][-*]$"
-                           "\\|--- .+\n\\+\\+\\+ ")))
-             (case (char-after)
-               (?\s (incf space))
-               (?+ (incf plus))
-               (?- (incf minus))
-               (?! (incf bang))
-               ((?\\ ?#) nil)
-               (t  (setq space 0 plus 0 minus 0 bang 0)))
-           (cond
-            ((looking-at diff-hunk-header-re-unified)
-             (let* ((old1 (match-string 2))
-                    (old2 (match-string 4))
-                    (new1 (number-to-string (+ space minus)))
-                    (new2 (number-to-string (+ space plus))))
-                (if old2
-                    (unless (string= new2 old2) (replace-match new2 t t nil 4))
-                  (goto-char (match-end 4)) (insert "," new2))
-                (if old1
-                    (unless (string= new1 old1) (replace-match new1 t t nil 2))
-                  (goto-char (match-end 2)) (insert "," new1))))
-            ((looking-at diff-context-mid-hunk-header-re)
-             (when (> (+ space bang plus) 0)
-               (let* ((old1 (match-string 1))
-                      (old2 (match-string 2))
-                      (new (number-to-string
-                            (+ space bang plus -1 (string-to-number old1)))))
-                 (unless (string= new old2) (replace-match new t t nil 2)))))
-            ((looking-at "\\*\\*\\* \\([0-9]+\\),\\(-?[0-9]*\\) \\*\\*\\*\\*$")
-             (when (> (+ space bang minus) 0)
-               (let* ((old (match-string 1))
-                      (new (format
-                            (concat "%0" (number-to-string (length old)) "d")
-                            (+ space bang minus -1 (string-to-number old)))))
-                 (unless (string= new old) (replace-match new t t nil 2))))))
-           (setq space 0 plus 0 minus 0 bang 0)))))))
+       while (and (= (forward-line -1) 0) (<= start (point)))
+       (if (not (looking-at
+                 (concat diff-hunk-header-re-unified
+                         "\\|[-*][-*][-*] [0-9,]+ [-*][-*][-*][-*]$"
+                         "\\|--- .+\n\\+\\+\\+ ")))
+           (case (char-after)
+             (?\s (incf space))
+             (?+ (incf plus))
+             (?- (incf minus))
+             (?! (incf bang))
+             ((?\\ ?#) nil)
+             (t  (setq space 0 plus 0 minus 0 bang 0)))
+         (cond
+          ((looking-at diff-hunk-header-re-unified)
+           (let* ((old1 (match-string 2))
+                  (old2 (match-string 4))
+                  (new1 (number-to-string (+ space minus)))
+                  (new2 (number-to-string (+ space plus))))
+             (if old2
+                 (unless (string= new2 old2) (replace-match new2 t t nil 4))
+               (goto-char (match-end 3))
+               (insert "," new2))
+             (if old1
+                 (unless (string= new1 old1) (replace-match new1 t t nil 2))
+               (goto-char (match-end 1))
+               (insert "," new1))))
+          ((looking-at diff-context-mid-hunk-header-re)
+           (when (> (+ space bang plus) 0)
+             (let* ((old1 (match-string 1))
+                    (old2 (match-string 2))
+                    (new (number-to-string
+                          (+ space bang plus -1 (string-to-number old1)))))
+               (unless (string= new old2) (replace-match new t t nil 2)))))
+          ((looking-at "\\*\\*\\* \\([0-9]+\\),\\(-?[0-9]*\\) \\*\\*\\*\\*$")
+           (when (> (+ space bang minus) 0)
+             (let* ((old (match-string 1))
+                    (new (format
+                          (concat "%0" (number-to-string (length old)) "d")
+                          (+ space bang minus -1 (string-to-number old)))))
+               (unless (string= new old) (replace-match new t t nil 2))))))
+         (setq space 0 plus 0 minus 0 bang 0)))))))
 
 ;;;;
 ;;;; Hooks