# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1096126175 0
# Node ID fab51779f86b147640a62df1f015edb720f4c2a9
# Parent  772bf327eec1b4385d9a3d470e56289422a4ef70
(insert-directory): Obey --dired even with symlinks.

diff -r 772bf327eec1 -r fab51779f86b lisp/ChangeLog
--- 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.
 
diff -r 772bf327eec1 -r fab51779f86b lisp/files.el
--- 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.