Mercurial > emacs
comparison lisp/emulation/viper-macs.el @ 14335:ad54c20b5e62
(ex-map-read-args, ex-unmap-read-args, vip-record-kbd-macro): Pass proper format string to message.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 25 Jan 1996 00:58:39 +0000 |
| parents | 83f275dcd93a |
| children | 854325337547 |
comparison
equal
deleted
inserted
replaced
| 14334:8b24fff422f4 | 14335:ad54c20b5e62 |
|---|---|
| 152 (setq message | 152 (setq message |
| 153 (format ":map%s %s" | 153 (format ":map%s %s" |
| 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 |
| 161 (if (vip-mouse-event-p event) | 161 (if (vip-mouse-event-p event) |
| 162 (progn | 162 (progn |
| 227 (format ":unmap%s %s" | 227 (format ":unmap%s %s" |
| 228 variant (if (> (length key-seq) 0) | 228 variant (if (> (length key-seq) 0) |
| 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 |
| 236 (if (vip-mouse-event-p event) | 236 (if (vip-mouse-event-p event) |
| 237 (progn | 237 (progn |
| 407 (format "%S" macro-body) | 407 (format "%S" macro-body) |
| 408 macro-body) | 408 macro-body) |
| 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 |
| 416 (cons macro-name | 416 (cons macro-name |
| 417 (cond ((eq scope t) (list nil nil (cons t nil))) | 417 (cond ((eq scope t) (list nil nil (cons t nil))) |