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

sequences it could contain.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aefa123399d22d7f1911d322c134a0c9c0cb6678..a2f8ce2bb09c786af0bd1768f62dc63b9ca7c276 100644 (file)
--- 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 c20888f7da122c579927fc62eb96f4435a3eecd7..09ad9f9a677a7b9f276d595408ca7310045a52ac 100644 (file)
--- 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)