Mercurial > emacs
changeset 63490:65b21147737a
(zone-mode-update-serial): Don't use `format' on `error' arguments.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 16 Jun 2005 14:40:46 +0000 |
| parents | c57eafee8b09 |
| children | eb8609914b2b |
| files | lisp/net/zone-mode.el lisp/progmodes/vhdl-mode.el |
| diffstat | 2 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/zone-mode.el Thu Jun 16 14:38:12 2005 +0000 +++ b/lisp/net/zone-mode.el Thu Jun 16 14:40:46 2005 +0000 @@ -60,7 +60,7 @@ (old-serial (concat old-date old-seq)) (new-serial (concat cur-date new-seq))) (if (string-lessp new-serial old-serial) - (error (format "Serial numbers want to move backwards from %s to %s" old-serial new-serial)) + (error "Serial numbers want to move backwards from %s to %s" old-serial new-serial) (replace-match (concat cur-date new-seq old-flag) t t)))))) ;;;###autoload
--- a/lisp/progmodes/vhdl-mode.el Thu Jun 16 14:38:12 2005 +0000 +++ b/lisp/progmodes/vhdl-mode.el Thu Jun 16 14:40:46 2005 +0000 @@ -2305,7 +2305,7 @@ (progn (when file-opened (kill-buffer (current-buffer))) (set-buffer source-buffer) - (error (format "ERROR: File cannot be opened: \"%s\"" ,file-name))) + (error "ERROR: File cannot be opened: \"%s\"" ,file-name)) (vhdl-warning (format "File cannot be opened: \"%s\"" ,file-name) t) nil)))) (condition-case info @@ -15358,7 +15358,7 @@ (cons constant-name (if (match-string 1) (or (aget generic-alist (match-string 2) t) - (error (format "ERROR: Formal generic \"%s\" mismatch for instance \"%s\"" (match-string 2) inst-name))) + (error "ERROR: Formal generic \"%s\" mismatch for instance \"%s\"" (match-string 2) inst-name)) (cdar generic-alist)))) (setq constant-alist (cons constant-entry constant-alist)) (setq constant-name (downcase constant-name)) @@ -15378,7 +15378,7 @@ (setq signal-entry (cons signal-name (if (match-string 1) (or (aget port-alist (match-string 2) t) - (error (format "ERROR: Formal port \"%s\" mismatch for instance \"%s\"" (match-string 2) inst-name))) + (error "ERROR: Formal port \"%s\" mismatch for instance \"%s\"" (match-string 2) inst-name)) (cdar port-alist)))) (setq signal-alist (cons signal-entry signal-alist)) (setq signal-name (downcase signal-name))