[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Re: vhdl-mode problem,
Tad Ashlock <=