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