(zone-mode-update-serial): Don't use `format' on `error' arguments.

diff --git a/lisp/net/zone-mode.el b/lisp/net/zone-mode.el
index c799961..0189b2d 100644 (file)
--- 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 9885e9a..736400b 100644 (file)
--- 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))