emacs-pretest-bug
[Top][All Lists]
Advanced

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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]