martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Juanma Barranquero
2005-06-16 14:40:46 +00:00
parent 2ae2e81e9b
commit ec3ec9cc72
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/net/zone-mode.el
View File

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

6
lisp/progmodes/vhdl-mode.el
View File

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