# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822531519 0
# Node ID ad54c20b5e6288877be93041f7e55e104c9c9196
# Parent  8b24fff422f4646ceb0e268cdffb0f820b87cadf
(ex-map-read-args, ex-unmap-read-args, vip-record-kbd-macro): Pass proper format string to message.

diff -r 8b24fff422f4 -r ad54c20b5e62 lisp/emulation/viper-macs.el
--- a/lisp/emulation/viper-macs.el	Thu Jan 25 00:58:31 1996 +0000
+++ b/lisp/emulation/viper-macs.el	Thu Jan 25 00:58:39 1996 +0000
@@ -154,7 +154,7 @@
 		 variant (if (> (length key-seq) 0)
 			     (prin1-to-string (vip-display-macro key-seq))
 			   "")))
-	(message message)
+	(message "%s" message)
 	(setq event (vip-read-key))
 	;;(setq event (vip-read-event))
 	(setq key
@@ -229,7 +229,7 @@
 				  (prin1-to-string
 				   (vip-display-macro key-seq))
 				"")))
-	(message message)
+	(message "%s" message)
 	(setq event (vip-read-key))
 	;;(setq event (vip-read-event))
 	(setq key
@@ -409,7 +409,7 @@
 		       scope) 
 	       vip-custom-file-name))
 	  
-	  (message msg)
+	  (message "%s" msg)
 	  ))
 	
     (setq new-elt