Mercurial > emacs
changeset 14431:d1b9ec5dc9fc
(vip-execute-ex-command, ex-write): Fix error format string.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 29 Jan 1996 23:19:04 +0000 |
| parents | 408eeedc18cd |
| children | 12f164226ba7 |
| files | lisp/emulation/vip.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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