From: Lars Hansen <larsh@soem.dk>
Date: Sat, 25 Sep 2004 06:56:03 +0000 (+0000)
Subject: (ls-lisp-format): Mark file names with poperty dired-filename.
X-Git-Tag: ttn-vms-21-2-B4~4814
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3df990b2d6338f160d418af8937686bedba9d53;p=emacs.git

(ls-lisp-format): Mark file names with poperty dired-filename.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6671dc67fb6..a77f2206e58 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-25  Lars Hansen  <larsh@math.ku.dk>
+
+	* ls-lisp.el (ls-lisp-format): Mark file names with poperty
+	dired-filename.
+
 2004-09-25  Kim F. Storm  <storm@cua.dk>
 
 	* ido.el (ido-max-directory-size): New defcustom.
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 521729b764f..8944d4c20c0 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -534,7 +534,7 @@ SWITCHES, TIME-INDEX and NOW give the full switch list and time data."
 	    " "
 	    (ls-lisp-format-time file-attr time-index now)
 	    " "
-	    file-name
+	    (propertize file-name 'dired-filename t)
 	    (if (stringp file-type)	; is a symbolic link
 		(concat " -> " file-type))
 	    "\n"