[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#5867: [Aquamacs-bugs] Re: OSX:
From: |
Richard Stallman |
Subject: |
bug#5867: [Aquamacs-bugs] Re: OSX: |
Date: |
Thu, 08 Apr 2010 17:03:13 -0000 |
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)