diff options
| author | Karl Heuer | 1996-01-25 00:58:39 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-25 00:58:39 +0000 |
| commit | 91227bb2069b5b1ed60ebd7e8acf086256147380 (patch) | |
| tree | c35e58b15ad80e55021840e5b6028c2ecabd86f4 | |
| parent | b32e84552ef4a448c97594e03e19c641dc03c510 (diff) | |
| download | emacs-91227bb2069b5b1ed60ebd7e8acf086256147380.tar.gz emacs-91227bb2069b5b1ed60ebd7e8acf086256147380.zip | |
(ex-map-read-args, ex-unmap-read-args, vip-record-kbd-macro): Pass proper format string to message.
| -rw-r--r-- | lisp/emulation/viper-macs.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el index 3554aba8666..a32ee12c6fb 100644 --- a/lisp/emulation/viper-macs.el +++ b/lisp/emulation/viper-macs.el | |||
| @@ -154,7 +154,7 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g., | |||
| 154 | variant (if (> (length key-seq) 0) | 154 | variant (if (> (length key-seq) 0) |
| 155 | (prin1-to-string (vip-display-macro key-seq)) | 155 | (prin1-to-string (vip-display-macro key-seq)) |
| 156 | ""))) | 156 | ""))) |
| 157 | (message message) | 157 | (message "%s" message) |
| 158 | (setq event (vip-read-key)) | 158 | (setq event (vip-read-key)) |
| 159 | ;;(setq event (vip-read-event)) | 159 | ;;(setq event (vip-read-event)) |
| 160 | (setq key | 160 | (setq key |
| @@ -229,7 +229,7 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g., | |||
| 229 | (prin1-to-string | 229 | (prin1-to-string |
| 230 | (vip-display-macro key-seq)) | 230 | (vip-display-macro key-seq)) |
| 231 | ""))) | 231 | ""))) |
| 232 | (message message) | 232 | (message "%s" message) |
| 233 | (setq event (vip-read-key)) | 233 | (setq event (vip-read-key)) |
| 234 | ;;(setq event (vip-read-event)) | 234 | ;;(setq event (vip-read-event)) |
| 235 | (setq key | 235 | (setq key |
| @@ -409,7 +409,7 @@ If SCOPE is nil, the user is asked to specify the scope." | |||
| 409 | scope) | 409 | scope) |
| 410 | vip-custom-file-name)) | 410 | vip-custom-file-name)) |
| 411 | 411 | ||
| 412 | (message msg) | 412 | (message "%s" msg) |
| 413 | )) | 413 | )) |
| 414 | 414 | ||
| 415 | (setq new-elt | 415 | (setq new-elt |