diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-29 23:19:04 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-29 23:19:04 +0000 |
| commit | d6259f17a8307569b8d7ada80d3aa1fab57bd70b (patch) | |
| tree | 50f4173eb15f681ade16d7b23402138215186f65 | |
| parent | 3d8ccb9120975ae0fd97d6251f9e5f1b732fa6e5 (diff) | |
| download | emacs-d6259f17a8307569b8d7ada80d3aa1fab57bd70b.tar.gz | |
(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 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 |