[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Infinite loop in vhdl-fixup-whitespace-region
From: |
Lawrence Mitchell |
Subject: |
Infinite loop in vhdl-fixup-whitespace-region |
Date: |
Mon, 04 Apr 2005 23:28:50 +0100 |
User-agent: |
Gnus/5.110003 (No Gnus v0.3) Emacs/22.0.50 (gnu/linux) |
Trying to align a region in VHDL mode (using `vhdl-align-region')
results in an infinite loop when trying to fix the whitespace around
operator symbols. The culprit is an incorrect goto-char in
`vhdl-fixup-whitespace-region', the patch below fixes things
Index: lisp/progmodes/vhdl-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/vhdl-mode.el,v
retrieving revision 1.25
diff -u -r1.25 vhdl-mode.el
*** lisp/progmodes/vhdl-mode.el 25 Mar 2005 10:06:23 -0000 1.25
--- lisp/progmodes/vhdl-mode.el 4 Apr 2005 22:24:00 -0000
***************
*** 7480,7486 ****
(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)
(while (or (and (looking-at "--.*\n") (re-search-forward "--.*\n" end t))
--- 7480,7486 ----
(if (match-string 1)
(goto-char (match-end 1))
(replace-match "\\3 \\4 \\5")
! (goto-char (match-end 5))))
;; eliminate multiple spaces and spaces at end of line
(goto-char beg)
(while (or (and (looking-at "--.*\n") (re-search-forward "--.*\n" end t))
In GNU Emacs 22.0.50.2 (i686-pc-linux-gnu, GTK+ Version 2.6.2)
of 2005-03-28 on yam
Distributor `The XFree86 Project, Inc', version 11.0.40300001
configured using `configure '--with-gtk' '--without-xim' '--with-gif'
'--with-png' '--with-xpm' '--with-jpeg' '--with-tiff' '--without-pop'
'--with-x-toolkit=gtk' '--without-sound' '--prefix=/opt/sw/emacs/''
--
Lawrence Mitchell <address@hidden>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Infinite loop in vhdl-fixup-whitespace-region,
Lawrence Mitchell <=