mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(vip-execute-ex-command, ex-write): Fix error format string.

Browse Source
This commit is contained in:
Karl Heuer 1996-01-29 23:19:04 +00:00
parent e8a74167d7
commit 195b04a4be
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/emulation/vip.el
View File

@ -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