Mercurial > emacs
changeset 57227:fab51779f86b
(insert-directory): Obey --dired even with symlinks.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 25 Sep 2004 15:29:35 +0000 |
| parents | 772bf327eec1 |
| children | 445f56b6dc24 |
| files | lisp/ChangeLog lisp/files.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Sep 25 14:57:07 2004 +0000 +++ b/lisp/ChangeLog Sat Sep 25 15:29:35 2004 +0000 @@ -1,6 +1,10 @@ +2004-09-25 Stefan <monnier@iro.umontreal.ca> + + * files.el (insert-directory): Obey --dired even with symlinks. + 2004-09-25 Lars Hansen <larsh@math.ku.dk> - * 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 <storm@cua.dk> @@ -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.
--- a/lisp/files.el Sat Sep 25 14:57:07 2004 +0000 +++ b/lisp/files.el Sat Sep 25 15:29:35 2004 +0000 @@ -4376,7 +4376,8 @@ (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.