From 52e281e87aaed70dc4e999e95b260b792d9cef64 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 25 Sep 2004 15:29:35 +0000 Subject: [PATCH] (insert-directory): Obey --dired even with symlinks. --- lisp/ChangeLog | 10 +++++++--- lisp/files.el | 3 ++- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a77f2206e58..c972f8ca8ab 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,10 @@ +2004-09-25 Stefan + + * files.el (insert-directory): Obey --dired even with symlinks. + 2004-09-25 Lars Hansen - * ls-lisp.el (ls-lisp-format): Mark file names with poperty + * ls-lisp.el (ls-lisp-format): Mark file names with property dired-filename. 2004-09-25 Kim F. Storm @@ -21,8 +25,8 @@ it, and show completions. (ido-all-completions): Let bind ido-directory-too-big to nil. (ido-exhibit): Handle ido-directory-too-big. - (ido-read-buffer): Handle fallback to read-buffer. Init - ido-directory-too-big. + (ido-read-buffer): Handle fallback to read-buffer. + Init ido-directory-too-big. (ido-read-file-name, ido-read-directory-name, ido-completing-read): Init ido-directory-too-big. diff --git a/lisp/files.el b/lisp/files.el index 994422fe710..ee6793bec71 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -4376,7 +4376,8 @@ normally equivalent short `-D' option is just passed on to (while (< (point) end) (let ((start (+ beg (read (current-buffer)))) (end (+ beg (read (current-buffer))))) - (if (= (char-after end) ?\n) + (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. -- 2.39.2