diff options
| author | Karl Heuer | 1996-01-25 00:57:10 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-25 00:57:10 +0000 |
| commit | 6048fac7bf1d3dbfefe4359d051b283ddf368418 (patch) | |
| tree | bb2da107313e40d11f2db3e63bc74210a4569e8f /lisp/shell.el | |
| parent | f68f40e039931dc9c4ab223f7f8880cd3abdb629 (diff) | |
| download | emacs-6048fac7bf1d3dbfefe4359d051b283ddf368418.tar.gz emacs-6048fac7bf1d3dbfefe4359d051b283ddf368418.zip | |
(shell-dirstack-message): Pass proper format string to message.
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 7e7e17f39fb..06a7293af4a 100644 --- a/lisp/shell.el +++ b/lisp/shell.el | |||
| @@ -648,7 +648,7 @@ command again." | |||
| 648 | (setcar ds dir)) | 648 | (setcar ds dir)) |
| 649 | (setq msg (concat msg (directory-file-name dir) " ")) | 649 | (setq msg (concat msg (directory-file-name dir) " ")) |
| 650 | (setq ds (cdr ds)))) | 650 | (setq ds (cdr ds)))) |
| 651 | (message msg))) | 651 | (message "%s" msg))) |
| 652 | 652 | ||
| 653 | (defun shell-forward-command (&optional arg) | 653 | (defun shell-forward-command (&optional arg) |
| 654 | "Move forward across ARG shell command(s). Does not cross lines. | 654 | "Move forward across ARG shell command(s). Does not cross lines. |