diff lisp/diff-mode.el @ 26009:16ee8d330c59

(diff-find-file-name): use `Index:' preferentially.

--- a/lisp/diff-mode.el	Wed Oct 13 17:42:55 1999 +0000
+++ b/lisp/diff-mode.el	Wed Oct 13 22:26:45 1999 +0000
@@ -365,14 +365,16 @@
 		   (condition-case ()
 		       (progn (diff-prev-hunk) (point))
 		     (error (point-min)))))
+	   (header-files
+	    (if (looking-at "[-*][-*][-*] \\(\\S-+\\)\\s-.*\n[-+][-+][-+] \\(\\S-+\\)\\s-.*$")
+		(list (if old (match-string 1) (match-string 2))
+		      (if old (match-string 2) (match-string 1)))
+	      (forward-line 1) nil))
 	   (fs (append
-		(when (looking-at "[-*][-*][-*] \\(\\S-+\\)\\s-.*\n[-+][-+][-+] \\(\\S-+\\)\\s-.*$")
-		  (list (if old (match-string 1) (match-string 2))
-			(if old (match-string 2) (match-string 1))))
-		(progn (forward-line 1) nil)
 		(when (save-excursion
 			(re-search-backward "^Index: \\(.+\\)" limit t))
 		  (list (match-string 1)))
+		header-files
 		(when (re-search-backward "^diff \\(-\\S-+ +\\)*\\(\\S-+\\)\\( +\\(\\S-+\\)\\)?" nil t)
 		  (list (if old (match-string 2) (match-string 4))
 			(if old (match-string 4) (match-string 2))))))