This function heeds `dired-actual-switches'."
(set-buffer buffer)
- (insert find-lisp-line-indent
- (find-lisp-format
- (propertize file 'dired-filename t)
- (file-attributes file 'string)
- (or (and dired-actual-switches
- (split-string-and-unquote dired-actual-switches))
- (list ""))
- nil)))
+ (let ((pt (point)))
+ (insert find-lisp-line-indent
+ (find-lisp-format
+ (propertize file 'dired-filename t)
+ (file-attributes file 'string)
+ (or (and dired-actual-switches
+ (split-string-and-unquote dired-actual-switches))
+ (list ""))
+ nil))
+ (dired-insert-set-properties pt (point))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Lifted from ls-lisp. We don't want to require it, because that