4376 |
(while (< (point) end) |
(while (< (point) end) |
4377 |
(let ((start (+ beg (read (current-buffer)))) |
(let ((start (+ beg (read (current-buffer)))) |
4378 |
(end (+ beg (read (current-buffer))))) |
(end (+ beg (read (current-buffer))))) |
4379 |
(if (= (char-after end) ?\n) |
(if (memq (char-after end) '(?\n ?\ )) |
4380 |
|
;; End is followed by \n or by " -> ". |
4381 |
(put-text-property start end 'dired-filename t) |
(put-text-property start end 'dired-filename t) |
4382 |
;; It seems that we can't trust ls's output as to |
;; It seems that we can't trust ls's output as to |
4383 |
;; byte positions of filenames. |
;; byte positions of filenames. |