(vip-replace-string, vip-search-forward, vip-search-backward): Delete format call...

diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index e9283fb30a2bf2d28c025fa3559b13425df8a1a5..8a7f0757b6d93f6e599b43bdb5c1b3a6a417bafa 100644 (file)
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -939,9 +939,9 @@ the query replace mode will toggle between string replace and regexp replace."
     (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 @@ giving null search string."
     (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 @@ giving null search string."
     (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