(vip-execute-ex-command, ex-write): Fix error format string.

1 files changed, 4 insertions, 4 deletions

diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 8a7f0757b6d..ac2124f33f5 100644
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -2554,7 +2554,7 @@ a token has type \(command, address, end-mark\) and value."
              (string= ex-token "insert")
              (string= ex-token "open")
              )
-         (error (format "%s: no such command from VIP" ex-token)))
+         (error "%s: no such command from VIP" ex-token))
         ((or (string= ex-token "abbreviate")
              (string= ex-token "list")
              (string= ex-token "next")
@@ -2567,8 +2567,8 @@ a token has type \(command, address, end-mark\) and value."
              (string= ex-token "xit")
              (string= ex-token "z")
              )
-         (error (format "%s: not implemented in VIP" ex-token)))
-        (t (error (format "%s: Not an editor command" ex-token)))))
+         (error "%s: not implemented in VIP" ex-token))
+        (t (error "%s: Not an editor command" ex-token))))
 
 (defun ex-goto ()
   "ex goto command"
@@ -2984,7 +2984,7 @@ vip-s-string"
   (if (and (not (string= ex-file (buffer-file-name)))
            (file-exists-p ex-file)
            (not ex-variant))
-      (error (format "\"%s\" File exists - use w! to override" ex-file)))
+      (error "\"%s\" File exists - use w! to override" ex-file))
   (let ((end (car ex-addresses)) (beg (car (cdr ex-addresses))))
     (if (> beg end) (error "First address exceeds second"))
     (save-excursion