# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822531430 0
# Node ID 8871d870be84b68cd1678b31d220fe18cc2727c2
# Parent  5d0e329a44d8ed81162b5815efadef299850c611
(shell-dirstack-message): Pass proper format string to message.

diff -r 5d0e329a44d8 -r 8871d870be84 lisp/shell.el
--- a/lisp/shell.el	Thu Jan 25 00:57:01 1996 +0000
+++ b/lisp/shell.el	Thu Jan 25 00:57:10 1996 +0000
@@ -648,7 +648,7 @@
 	     (setcar ds dir))
 	(setq msg (concat msg (directory-file-name dir) " "))
 	(setq ds (cdr ds))))
-    (message msg)))
+    (message "%s" msg)))
 
 (defun shell-forward-command (&optional arg)
   "Move forward across ARG shell command(s).  Does not cross lines.