bug#5867: [Aquamacs-bugs] Re: OSX:

[Richard Stallman]

Does this fix it?

*** vhdl-mode.el        27 May 2005 10:21:39 -0400      1.30
--- vhdl-mode.el        30 May 2005 08:49:30 -0400      
***************
*** 7484,7490 ****
      (while (re-search-forward 
"\\(--.*\n\\|\"[^\"\n]*[\"\n]\\)\\|\\(\\([^/:<>=]\\)\\(:\\|=\\|<\\|>\\|:=\\|<=\\|>=\\|=>\\|/=\\)\\([^=>]\\|$\\)\\)"
 end t)
        (if (match-string 1)
          (goto-char (match-end 1))
!       (replace-match "\\3 \\4 \\5")
        (goto-char (match-end 4))))
      ;; eliminate multiple spaces and spaces at end of line
      (goto-char beg)
--- 7484,7496 ----
      (while (re-search-forward 
"\\(--.*\n\\|\"[^\"\n]*[\"\n]\\)\\|\\(\\([^/:<>=]\\)\\(:\\|=\\|<\\|>\\|:=\\|<=\\|>=\\|=>\\|/=\\)\\([^=>]\\|$\\)\\)"
 end t)
        (if (match-string 1)
          (goto-char (match-end 1))
!       (save-excursion
!         (goto-char (match-beginning 4))
!         (unless (eq (preceding-char) ?\ )
!           (insert " "))
!         (goto-char (match-end 4))
!         (unless (eq (following-char) ?\ )
!           (insert " ")))
        (goto-char (match-end 4))))
      ;; eliminate multiple spaces and spaces at end of line
      (goto-char beg)