help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: vhdl-mode problem


From: Tad Ashlock
Subject: Re: vhdl-mode problem
Date: 1 Sep 2004 06:42:42 -0700

taashlo@sandia.gov (Tad Ashlock) wrote in message 
news:<5917f4d0.0408311053.3ec9d96c@posting.google.com>...
> (Windows XP SP1, Emacs 21.3.50, vhdl-mode 3.32.20 and 3.32.12)
> 
> I've just started learning VHDL and I'm having a problem
> with emacs's vhdl-mode.
> 
> I put the cursor in an entity declaration and C-c C-p C-w
> to copy the port information.
> 
> -- Original Entity:
> entity Test is
>   port (
>     Clk : in std_logic ;
>     Rst : in std_logic
>     ) ;
> end Test ;
> 
> I then move the cursor to another vhdl source file and hit
> C-c C-p C-c to paste it as a component.  Emacs then goes
> unresponsive and I have to hit C-g to get it back.  When I
> do get it back, it appears that Emacs had been in an
> infinite loop inserting spaces.
> 
> -- Pasted Component (after C-g):
> component Test
>   port (
>     Clk     <<<1000's of spaces>>>    in std_logic;
>     Rst : in std_logic);
> 
> I also get the same results when I start emacs with
> "runemacs -q" (which uses the vhdl-mode[3.32.12] that came
> with emacs 21.3.50).  I also get similar results when
> pasting as an entity or as a testbench (I haven't tried
> others).
> 
> Thank you,
> 
> Tad Ashlock

Never mind.  I figured out the problem.  If anybody's interested,
the following patch fixes this problem.

*** c:/site-lisp/vhdl-mode/vhdl-mode.el    2004-09-01 06:58:30.778750000 -0600
--- c:/temp/vhdl-mode.el    2004-09-01 07:00:29.888125000 -0600
***************
*** 7520,7526 ****
        (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))
--- 7520,7526 ----
        (if (match-string 1)
        (goto-char (match-end 1))
      (replace-match "\\3 \\4 \\5")
!     (goto-char (match-end 2))))
      ;; eliminate multiple spaces and spaces at end of line
      (goto-char beg)
      (while (or (and (looking-at "--.*\n") (re-search-forward "--.*\n" end t))


Thank you,

Tad Ashlock

reply via email to

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