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)))