[Emacs-diffs] Changes to emacs/lisp/files.el

[Stefan Monnier]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.710 emacs/lisp/files.el:1.711
*** emacs/lisp/files.el:1.710   Mon Sep 20 16:12:57 2004
--- emacs/lisp/files.el Sat Sep 25 15:29:35 2004
***************
*** 4376,4382 ****
                  (while (< (point) end)
                    (let ((start (+ beg (read (current-buffer))))
                          (end (+ beg (read (current-buffer)))))
!                     (if (= (char-after end) ?\n)
                          (put-text-property start end 'dired-filename t)
                        ;; It seems that we can't trust ls's output as to
                        ;; byte positions of filenames.
--- 4376,4383 ----
                  (while (< (point) end)
                    (let ((start (+ beg (read (current-buffer))))
                          (end (+ beg (read (current-buffer)))))
!                     (if (memq (char-after end) '(?\n ?\ ))
!                         ;; End is followed by \n or by " -> ".
                          (put-text-property start end 'dired-filename t)
                        ;; It seems that we can't trust ls's output as to
                        ;; byte positions of filenames.