From 195b04a4bef49e2f69f6aed50af170c258c16606 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 29 Jan 1996 23:19:04 +0000 Subject: [PATCH] (vip-execute-ex-command, ex-write): Fix error format string. --- lisp/emulation/vip.el | 8 ++++---- 1 file 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 -- 2.39.2