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

[D . Goel]

Index: emacs/lisp/progmodes/vhdl-mode.el
diff -c emacs/lisp/progmodes/vhdl-mode.el:1.45 
emacs/lisp/progmodes/vhdl-mode.el:1.46
*** emacs/lisp/progmodes/vhdl-mode.el:1.45      Tue Sep 13 08:50:42 2005
--- emacs/lisp/progmodes/vhdl-mode.el   Sun Sep 18 12:31:28 2005
***************
*** 2157,2163 ****
  
  (defun vhdl-warning (string &optional nobeep)
    "Print out warning STRING and beep."
!   (message (concat "WARNING:  " string))
    (unless (or nobeep noninteractive) (beep)))
  
  (defun vhdl-print-warnings ()
--- 2157,2163 ----
  
  (defun vhdl-warning (string &optional nobeep)
    "Print out warning STRING and beep."
!   (message "WARNING:  %s" string)
    (unless (or nobeep noninteractive) (beep)))
  
  (defun vhdl-print-warnings ()
***************
*** 2165,2171 ****
    (let ((no-warnings (length vhdl-warnings)))
      (setq vhdl-warnings (nreverse vhdl-warnings))
      (while vhdl-warnings
!       (message (concat "WARNING:  " (car vhdl-warnings)))
        (setq vhdl-warnings (cdr vhdl-warnings)))
      (beep)
      (when (> no-warnings 1)
--- 2165,2171 ----
    (let ((no-warnings (length vhdl-warnings)))
      (setq vhdl-warnings (nreverse vhdl-warnings))
      (while vhdl-warnings
!       (message "WARNING:  %s" (car vhdl-warnings))
        (setq vhdl-warnings (cdr vhdl-warnings)))
      (beep)
      (when (> no-warnings 1)
***************
*** 10605,10611 ****
            (vhdl-template-invoked-by-hook t))
        (let ((caught (catch 'abort
                        (funcall func))))
!         (when (stringp caught) (message caught)))
        (when (= invoke-char ?-) (setq abbrev-start-location (point)))
        ;; delete CR which is still in event queue
        (if (fboundp 'enqueue-eval-event)
--- 10605,10611 ----
            (vhdl-template-invoked-by-hook t))
        (let ((caught (catch 'abort
                        (funcall func))))
!         (when (stringp caught) (message "%s" caught)))
        (when (= invoke-char ?-) (setq abbrev-start-location (point)))
        ;; delete CR which is still in event queue
        (if (fboundp 'enqueue-eval-event)
***************
*** 10768,10774 ****
  (defun vhdl-template-insert-fun (fun)
    "Call FUN to insert a built-in template."
    (let ((caught (catch 'abort (when fun (funcall fun)))))
!     (when (stringp caught) (message caught))))
  
  
  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 10768,10774 ----
  (defun vhdl-template-insert-fun (fun)
    "Call FUN to insert a built-in template."
    (let ((caught (catch 'abort (when fun (funcall fun)))))
!     (when (stringp caught) (message "%s" caught))))
  
  
  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
***************
*** 11695,11701 ****
        (setq arch-buffer (current-buffer))
        (when ent-buffer (set-buffer ent-buffer) (save-buffer))
        (set-buffer arch-buffer) (save-buffer))
!       (message
         (concat (format "Pasting port as testbench \"%s(%s)\"...done"
                       ent-name arch-name)
               (and ent-file-name
--- 11695,11701 ----
        (setq arch-buffer (current-buffer))
        (when ent-buffer (set-buffer ent-buffer) (save-buffer))
        (set-buffer arch-buffer) (save-buffer))
!       (message "%s"
         (concat (format "Pasting port as testbench \"%s(%s)\"...done"
                       ent-name arch-name)
               (and ent-file-name
***************
*** 15498,15504 ****
      (setq arch-buffer (current-buffer))
      (when ent-buffer (set-buffer ent-buffer) (save-buffer))
      (set-buffer arch-buffer) (save-buffer)
!     (message
       (concat (format "Creating component \"%s(%s)\"...done" ent-name 
arch-name)
             (and ent-file-name
                  (format "\n  File created: \"%s\"" ent-file-name))
--- 15498,15504 ----
      (setq arch-buffer (current-buffer))
      (when ent-buffer (set-buffer ent-buffer) (save-buffer))
      (set-buffer arch-buffer) (save-buffer)
!     (message "%s"
       (concat (format "Creating component \"%s(%s)\"...done" ent-name 
arch-name)
             (and ent-file-name
                  (format "\n  File created: \"%s\"" ent-file-name))
***************
*** 16120,16126 ****
           (vhdl-template-footer)
         (vhdl-comment-display-line) (insert "\n"))
         (save-buffer))
!      (message
        (concat (format "Generating configuration \"%s\"...done" conf-name)
              (and conf-file-name
                   (format "\n  File created: \"%s\"" conf-file-name))))))
--- 16120,16126 ----
           (vhdl-template-footer)
         (vhdl-comment-display-line) (insert "\n"))
         (save-buffer))
!      (message "%s"
        (concat (format "Generating configuration \"%s\"...done" conf-name)
              (and conf-file-name
                   (format "\n  File created: \"%s\"" conf-file-name))))))