# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822532381 0
# Node ID e37ae69fce109a98b32623645a106f9dc2932483
# Parent  1e97bcb05a16ab23bd3e06dbef53335ab2470ec7
(vip-replace-string, vip-search-forward, vip-search-backward): Delete format call inside message.

diff -r 1e97bcb05a16 -r e37ae69fce10 lisp/emulation/vip.el
--- a/lisp/emulation/vip.el	Thu Jan 25 01:03:29 1996 +0000
+++ b/lisp/emulation/vip.el	Thu Jan 25 01:13:01 1996 +0000
@@ -939,9 +939,9 @@
     (if (string= str "")
 	(progn
 	  (setq vip-re-replace (not vip-re-replace))
-	  (message (format "Replace mode changed to %s."
-			   (if vip-re-replace "regexp replace"
-			     "string replace"))))
+	  (message "Replace mode changed to %s."
+		   (if vip-re-replace "regexp replace"
+		     "string replace")))
       (if vip-re-replace
 	  ;; (replace-regexp
 	  ;;  str
@@ -1460,9 +1460,9 @@
     (if (string= vip-s-string "")
 	(progn
 	  (setq vip-re-search (not vip-re-search))
-	  (message (format "Search mode changed to %s search."
-			   (if vip-re-search "regular expression"
-			     "vanilla"))))
+	  (message "Search mode changed to %s search."
+		   (if vip-re-search "regular expression"
+		     "vanilla")))
       (vip-search vip-s-string t val)
       (if com
 	  (progn
@@ -1480,9 +1480,9 @@
     (if (string= vip-s-string "")
 	(progn
 	  (setq vip-re-search (not vip-re-search))
-	  (message (format "Search mode changed to %s search."
-			   (if vip-re-search "regular expression"
-			     "vanilla"))))
+	  (message "Search mode changed to %s search."
+		   (if vip-re-search "regular expression"
+		     "vanilla")))
       (vip-search vip-s-string nil val)
       (if com
 	  (progn