[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/vhdl-mode.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/vhdl-mode.el |
Date: |
Thu, 16 Jun 2005 10:40:49 -0400 |
Index: emacs/lisp/progmodes/vhdl-mode.el
diff -c emacs/lisp/progmodes/vhdl-mode.el:1.33
emacs/lisp/progmodes/vhdl-mode.el:1.34
*** emacs/lisp/progmodes/vhdl-mode.el:1.33 Tue Jun 14 23:56:26 2005
--- emacs/lisp/progmodes/vhdl-mode.el Thu Jun 16 14:40:46 2005
***************
*** 2305,2311 ****
(progn
(when file-opened (kill-buffer (current-buffer)))
(set-buffer source-buffer)
! (error (format "ERROR: File cannot be opened:
\"%s\"" ,file-name)))
(vhdl-warning (format "File cannot be opened: \"%s\""
,file-name) t)
nil))))
(condition-case info
--- 2305,2311 ----
(progn
(when file-opened (kill-buffer (current-buffer)))
(set-buffer source-buffer)
! (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,15364 ****
(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)))
(cdar generic-alist))))
(setq constant-alist (cons constant-entry constant-alist))
(setq constant-name (downcase constant-name))
--- 15358,15364 ----
(cons constant-name
(if (match-string 1)
(or (aget generic-alist (match-string 2) t)
! (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,15384 ****
(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)))
(cdar port-alist))))
(setq signal-alist (cons signal-entry signal-alist))
(setq signal-name (downcase signal-name))
--- 15378,15384 ----
(setq signal-entry (cons signal-name
(if (match-string 1)
(or (aget port-alist (match-string 2) t)
! (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))