# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1037015045 0
# Node ID ae3c8e5ff8a98a07f7c327fc1c19f93c2e6146e7
# Parent  b534f5704525ce836955d9ae6c22d07dfd7044b1
(dired-show-file-type): Format filename with "%s" to escape any format-like
sequences it could contain.

diff -r b534f5704525 -r ae3c8e5ff8a9 lisp/dired-aux.el
--- a/lisp/dired-aux.el	Mon Nov 11 10:51:58 2002 +0000
+++ b/lisp/dired-aux.el	Mon Nov 11 11:44:05 2002 +0000
@@ -2033,7 +2033,7 @@
       (call-process "file" nil t t "--" file))
     (when (bolp)
       (backward-delete-char 1))
-    (message (buffer-string))))
+    (message "%s" (buffer-string))))
 
 (provide 'dired-aux)