[Emacs-diffs] Changes to emacs/lisp/progmodes/vhdl-mode.el

[Juanma Barranquero]

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