(dired-show-file-type): Format filename with "%s" to escape any format-like

sequences it could contain.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aefa123399d..a2f8ce2bb09 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-11  Fabrice Bauzac  <fabrice.bauzac@wanadoo.fr>  (tiny change)
+
+        * dired-aux.el (dired-show-file-type): Format filename with "%s" to
+        escape any format-like sequences it could contain.
+
 2002-11-11  Per Abrahamsen  <abraham@dina.kvl.dk>
 
         * cus-edit.el (custom-save-delete): Force emacs-lisp-mode.
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index c20888f7da1..09ad9f9a677 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2033,7 +2033,7 @@ true then the type of the file linked to by FILE is printed instead."
       (call-process "file" nil t t "--" file))
     (when (bolp)
       (backward-delete-char 1))
-    (message (buffer-string))))
+    (message "%s" (buffer-string))))
 
 (provide 'dired-aux)