# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1207071122 0
# Node ID 9b3620a67bcbab872cf762888e2faf4d34aa3a6f
# Parent  2c7b83cbf547dd175f3f7ee4427646c2070aec6b
Fix last fix.

diff -r 2c7b83cbf547 -r 9b3620a67bcb lisp/find-dired.el
--- a/lisp/find-dired.el	Tue Apr 01 17:28:26 2008 +0000
+++ b/lisp/find-dired.el	Tue Apr 01 17:32:02 2008 +0000
@@ -248,9 +248,8 @@
 		  (beg (point-max))
 		  (l-opt (and (consp find-ls-option)
 			      (string-match "l" (cdr find-ls-option))))
-		  (links-regexp "^ +[^ \t\r\n]+\\( +[^ \t\r\n]+\\)")
-		  (size-regexp
-		   "^ +[^ \t\r\n]+ +[^ \t\r\n]+ +[^ \t\r\n]+ +[^ \t\r\n]+\\( +[0-9]+\\)"))
+		  (ls-regexp (concat "^ +[^ \t\r\n]+\\( +[^ \t\r\n]+\\) +"
+				     "[^ \t\r\n]+ +[^ \t\r\n]+\\( +[0-9]+\\)")))
 	      (goto-char beg)
 	      (insert string)
 	      (goto-char beg)
@@ -271,15 +270,11 @@
 	      (when l-opt
 		(goto-char beg)
 		(goto-char (line-beginning-position))
-		(while (re-search-forward links-regexp nil t)
+		(while (re-search-forward ls-regexp nil t)
 		  (replace-match (format "%4s" (match-string 1))
 				 nil nil nil 1)
-		  (forward-line 1))
-		(goto-char beg)
-		(goto-char (line-beginning-position))
-		(while (re-search-forward size-regexp nil t)
-		  (replace-match (format "%9s" (match-string 1))
-				 nil nil nil 1)
+		  (replace-match (format "%9s" (match-string 2))
+				 nil nil nil 2)
 		  (forward-line 1)))
 	      ;; Find all the complete lines in the unprocessed
 	      ;; output and process it to add text properties.