From ec3ec9cc722cafd2f6ff51d0290404eee48284e5 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 16 Jun 2005 14:40:46 +0000 Subject: [PATCH] (zone-mode-update-serial): Don't use `format' on `error' arguments. --- lisp/net/zone-mode.el | 2 +- lisp/progmodes/vhdl-mode.el | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/net/zone-mode.el b/lisp/net/zone-mode.el index c7999616375..0189b2d1eca 100644 --- a/lisp/net/zone-mode.el +++ b/lisp/net/zone-mode.el @@ -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 diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index 9885e9ae039..736400bcde2 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -2305,7 +2305,7 @@ old environment. Used for consistent searching." (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 @@ component instantiation." (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 @@ component instantiation." (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)) -- 2.39.2