diff options
author | Karl Heuer <[email protected]> | 1996-01-29 23:19:04 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1996-01-29 23:19:04 +0000 |
commit | 195b04a4bef49e2f69f6aed50af170c258c16606 (patch) | |
tree | d24abf758f28814b9c8457fbea3bc89cb8fb48eb | |
parent | e8a74167d7d499bfb4b8ee381e2f0643a09c6bf9 (diff) |
(vip-execute-ex-command, ex-write): Fix error format string.
-rw-r--r-- | lisp/emulation/vip.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index 8a7f0757b6..ac2124f33f 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 |