# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 939853605 0
# Node ID 16ee8d330c59e49ef4427b3a69e3a84e51297d14
# Parent  88c485e220ab245d48a5bfdd0edbae0d328f12b3
(diff-find-file-name): use `Index:' preferentially.

diff -r 88c485e220ab -r 16ee8d330c59 lisp/diff-mode.el
--- 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))))))