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

[Miles Bader]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.583.2.21 emacs/lisp/files.el:1.583.2.22
*** emacs/lisp/files.el:1.583.2.21      Wed Oct  6 05:21:52 2004
--- emacs/lisp/files.el Wed Oct  6 05:23:54 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.