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

[Miles Bader]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.666.2.7 emacs/lisp/files.el:1.666.2.8
*** emacs/lisp/files.el:1.666.2.7       Tue Sep 21 09:34:09 2004
--- emacs/lisp/files.el Wed Sep 29 07:22:18 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.