# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822957544 0
# Node ID d1b9ec5dc9fcbaeb6e7a2e9ef170de6ab2eec8e3
# Parent  408eeedc18cd023350d8f34d7e5d807c6584a91a
(vip-execute-ex-command, ex-write): Fix error format string.

diff -r 408eeedc18cd -r d1b9ec5dc9fc lisp/emulation/vip.el
--- a/lisp/emulation/vip.el	Mon Jan 29 23:18:47 1996 +0000
+++ b/lisp/emulation/vip.el	Mon Jan 29 23:19:04 1996 +0000
@@ -2554,7 +2554,7 @@
 	     (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 @@
 	     (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 @@
   (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