+2009-01-28 Eli Zaretskii <eliz@gnu.org>
+
+ * ls-lisp.el (ls-lisp-classify): Propertize file name before
+ concatenating the type indicating character.
+ (ls-lisp-format): Don't propertize file-name only if
+ ls-lisp-classify already did.
+
2009-01-28 Michael Albinus <michael.albinus@gmx.de>
* net/dbus.el (dbus-event-error-hooks): Fix docstring. Describe
(type (cadr filedata)))
(cond (type
(cons
- (concat file-name (if (eq type t) "/" "@"))
+ (concat (propertize file-name 'dired-filename t)
+ (if (eq type t) "/" "@"))
(cdr filedata)))
((string-match "x" (nth 9 filedata))
(cons
- (concat file-name "*")
+ (concat (propertize file-name 'dired-filename t) "*")
(cdr filedata)))
- (t filedata))))
+ (t
+ (cons
+ (propertize file-name 'dired-filename t)
+ (cdr filedata))))))
(defun ls-lisp-extension (filename)
"Return extension of FILENAME (ignoring any version extension)
" "
(ls-lisp-format-time file-attr time-index now)
" "
- (propertize file-name 'dired-filename t)
+ (if (not (memq ?F switches)) ; ls-lisp-classify already did that
+ (propertize file-name 'dired-filename t)
+ file-name)
(if (stringp file-type) ; is a symbolic link
(concat " -> " file-type))
"\n"