mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 05:30:45 -08:00
Code Issues Projects Releases Wiki Activity

Fix last fix.

Browse source
This commit is contained in:
Chong Yidong 2008-04-01 17:32:02 +00:00
parent 8203444546
commit 103334cd21
1 changed files with 5 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/find-dired.el
View file

@ -248,9 +248,8 @@ Thus ARG can also contain additional grep options."
(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 @@ Thus ARG can also contain additional grep options."
(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.