* bug#10095: 24.0.50; cperl-mode highlight bug
@ 2011-11-21 10:10 wd
2012-04-02 19:37 ` wd
0 siblings, 1 reply; 6+ messages in thread
From: wd @ 2011-11-21 10:10 UTC (permalink / raw)
To: 10095
This bug report will be sent to the Bug-GNU-Emacs mailing list
and the GNU bug tracker at debbugs.gnu.org. Please check that
the From: line contains a valid email address. After a delay of up
to one day, you should receive an acknowledgement at that address.
Please write in English if possible, as the Emacs maintainers
usually do not have translators for other languages.
Please describe exactly what actions triggered the bug, and
the precise symptoms of the bug. If you can, give a recipe
starting from `emacs -Q':
1. Write a perl file named as 'a.pl', and past the following code
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use POSIX qw/strftime mktime/;
use Getopt::Long;
use DBI;
use JSON;
sub main {
}
sub log {
my $msg = shift;
print localtime() . " $msg\n" if $v;
}
sub get_all_teams {
# we only can process temas that begin_time greater than
2011-09-07, since refund_log only start at that time
my $sql = qq/
select
id,
to_timestamp(begin_time)::date as begin_time,
to_timestamp(end_time)::date as end_time,
cost_price,
payment_method,
ZuiHouGuiTuan_date,
N,
XiaoFeiQuanQuanBuLuRu_date,
ShangHuQuanXiaoFeiDaoQi_date,
KuaiDiQuanBuLuRu_date
from
public.team
where
to_timestamp(begin_time)::date >= '2011-09-07'
and to_timestamp(end_time)::date <= '$dt'
and payment_method > 0
and id not in ( select team_id from
report.tuan_balance_history where finish = 1 )
/;
my $r = $dbh->selectall_arrayref($sql);
for(@$r) {
my ( $team_id, $begin_time, $end_time, $cost_price,
$payment_method, $zhgt_date, $N, $xfqqblr_date, $shqxfdq_date,
$kdqblr_date ) = @$_;
$teams_hash{ $team_id } = {
begin_time => $begin_time,
end_time => $end_time,
cost_price => $cost_price,
payment_method => $payment_method,
balanced_count => 0,
balanced_money => 0,
other_tuan_quantity => 0,
other_tuan_refund_quantity => 0,
other_tuan_coupon_consumed_count => 0,
quantity => 0,
refund_quantity => 0,
real_quantity => 0,
vendor_fee => 0,
coupon_consumed_count => 0,
coupon_consumed_percent => 0,
coupon_is_expire => 0,
vendor_fee => 0,
zhgt_date => $zhgt_date,
xfqqblr_date => $xfqqblr_date,
N => $N,
kdqblr_date => $kdqblr_date,
shqxfdq_date => $shqxfdq_date,
balanced_dates => [],
expressed_count => 0,
through_coupon_consumed_count => 0
};
}
}
2. Open 'a.pl' use 'emacs -Q a.pl', emacs will use perl-mode open this
file, type 'M-x cperl-mode', type C-v to page down, you will see 'my $r' and
the following lines will not highlight as expect.
If Emacs crashed, and you have the Emacs process in the gdb debugger,
please include the output from the following gdb commands:
`bt full' and `xbacktrace'.
For information about debugging Emacs, please read the file
/usr/share/emacs/24.0.50/etc/DEBUG.
In GNU Emacs 24.0.50.1 (i686-pc-linux-gnu, GTK+ Version 2.24.5)
of 2011-08-02 on tux
Windowing system distributor `The X.Org Foundation', version 11.0.11102000
configured using `configure '--prefix=/usr'
'--build=i686-pc-linux-gnu' '--host=i686-pc-linux-gnu'
'--mandir=/usr/share/man' '--infodir=/usr/share/info'
'--datadir=/usr/share' '--sysconfdir=/etc' '--localstatedir=/var/lib'
'--disable-dependency-tracking' '--program-suffix=-emacs-24'
'--infodir=/usr/share/info/emacs-24'
'--with-crt-dir=/usr/lib/gcc/i686-pc-linux-gnu/4.5.2/../../..'
'--with-gameuser=games' '--without-compress-info' '--without-hesiod'
'--without-kerberos' '--without-kerberos5' '--with-gpm' '--with-dbus'
'--without-gnutls' '--without-selinux' '--with-sound' '--with-x'
'--without-xml2' '--without-toolkit-scroll-bars' '--without-wide-int'
'--with-gif' '--with-jpeg' '--with-png' '--with-rsvg' '--with-tiff'
'--with-xpm' '--without-imagemagick' '--without-gsettings'
'--without-gconf' '--with-xft' '--without-libotf' '--without-m17n-flt'
'--with-x-toolkit=gtk' 'build_alias=i686-pc-linux-gnu'
'host_alias=i686-pc-linux-gnu' 'CFLAGS=-O2 -march=prescott -pipe'
'LDFLAGS=-Wl,-O1 -Wl,--as-needed''
Important settings:
value of $LC_ALL: nil
value of $LC_COLLATE: nil
value of $LC_CTYPE: zh_CN.UTF-8
value of $LC_MESSAGES: nil
value of $LC_MONETARY: nil
value of $LC_NUMERIC: nil
value of $LC_TIME: nil
value of $LANG: en_US.UTF-8
value of $XMODIFIERS: @im=ibus
locale-coding-system: utf-8-unix
default enable-multibyte-characters: t
Major mode: CPerl
Minor modes in effect:
tooltip-mode: t
mouse-wheel-mode: t
tool-bar-mode: t
menu-bar-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
font-lock-mode: t
blink-cursor-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
line-number-mode: t
transient-mark-mode: t
Recent input:
M-x c p e r l - m o d e <return> C-v C-x C-f C-g M-x
r e p o r t - b u <tab> <return>
Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.
Quit
Load-path shadows:
/usr/share/emacs/site-lisp/flim/hex-util hides
/usr/share/emacs/24.0.50/lisp/hex-util
/usr/share/emacs/site-lisp/flim/md4 hides /usr/share/emacs/24.0.50/lisp/md4
/usr/share/emacs/site-lisp/flim/sasl-cram hides
/usr/share/emacs/24.0.50/lisp/net/sasl-cram
/usr/share/emacs/site-lisp/flim/sasl-digest hides
/usr/share/emacs/24.0.50/lisp/net/sasl-digest
/usr/share/emacs/site-lisp/flim/sasl hides
/usr/share/emacs/24.0.50/lisp/net/sasl
/usr/share/emacs/site-lisp/flim/ntlm hides
/usr/share/emacs/24.0.50/lisp/net/ntlm
/usr/share/emacs/site-lisp/flim/sasl-ntlm hides
/usr/share/emacs/24.0.50/lisp/net/sasl-ntlm
/usr/share/emacs/site-lisp/flim/hmac-md5 hides
/usr/share/emacs/24.0.50/lisp/net/hmac-md5
/usr/share/emacs/site-lisp/flim/hmac-def hides
/usr/share/emacs/24.0.50/lisp/net/hmac-def
/usr/share/emacs/site-lisp/semi/smime hides
/usr/share/emacs/24.0.50/lisp/gnus/smime
/usr/share/emacs/site-lisp/emms/tq hides
/usr/share/emacs/24.0.50/lisp/emacs-lisp/tq
/usr/share/emacs/site-lisp/semi/pgg hides
/usr/share/emacs/24.0.50/lisp/obsolete/pgg
/usr/share/emacs/site-lisp/semi/pgg-def hides
/usr/share/emacs/24.0.50/lisp/obsolete/pgg-def
/usr/share/emacs/site-lisp/semi/pgg-gpg hides
/usr/share/emacs/24.0.50/lisp/obsolete/pgg-gpg
/usr/share/emacs/site-lisp/semi/pgg-pgp hides
/usr/share/emacs/24.0.50/lisp/obsolete/pgg-pgp
/usr/share/emacs/site-lisp/semi/pgg-parse hides
/usr/share/emacs/24.0.50/lisp/obsolete/pgg-parse
/usr/share/emacs/site-lisp/semi/pgg-pgp5 hides
/usr/share/emacs/24.0.50/lisp/obsolete/pgg-pgp5
Features:
(shadow sort gnus-util mail-extr message format-spec rfc822 mml mml-sec
mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045
ietf-drums mm-util mail-prsvr mailabbrev mail-utils gmm-utils mailheader
emacsbug cperl-mode easymenu perl-mode time-date china-util tooltip
ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd
fontset image fringe lisp-mode register page menu-bar rfn-eshadow timer
select scroll-bar mouse jit-lock font-lock syntax facemenu font-core
frame cham georgian utf-8-lang misc-lang vietnamese tibetan thai
tai-viet lao korean japanese hebrew greek romanian slovak czech european
ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook help
simple abbrev minibuffer loaddefs button faces cus-face files
text-properties overlay sha1 md5 base64 format env code-pages mule
custom widget hashtable-print-readable backquote make-network-process
dbusbind dynamic-setting font-render-setting move-toolbar gtk x-toolkit
x multi-tty emacs)
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#10095: 24.0.50; cperl-mode highlight bug
2011-11-21 10:10 bug#10095: 24.0.50; cperl-mode highlight bug wd
@ 2012-04-02 19:37 ` wd
2012-04-27 9:29 ` wd
0 siblings, 1 reply; 6+ messages in thread
From: wd @ 2012-04-02 19:37 UTC (permalink / raw)
To: 10095
This bug still exists in emacs 24.0.94.1, both gnus/linux and macos.
GNU Emacs 24.0.94.1 (i386-apple-darwin11.3.0, NS apple-appkit-1138.32)
of 2012-03-03 on localhost
On Mon, Nov 21, 2011 at 6:10 PM, wd <wd@wdicc.com> wrote:
> This bug report will be sent to the Bug-GNU-Emacs mailing list
> and the GNU bug tracker at debbugs.gnu.org. Please check that
> the From: line contains a valid email address. After a delay of up
> to one day, you should receive an acknowledgement at that address.
>
> Please write in English if possible, as the Emacs maintainers
> usually do not have translators for other languages.
>
> Please describe exactly what actions triggered the bug, and
> the precise symptoms of the bug. If you can, give a recipe
> starting from `emacs -Q':
>
>
> 1. Write a perl file named as 'a.pl', and past the following code
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use Data::Dumper;
> use POSIX qw/strftime mktime/;
> use Getopt::Long;
> use DBI;
>
> use JSON;
>
> sub main {
> }
>
> sub log {
> my $msg = shift;
> print localtime() . " $msg\n" if $v;
> }
>
> sub get_all_teams {
> # we only can process temas that begin_time greater than
> 2011-09-07, since refund_log only start at that time
> my $sql = qq/
> select
> id,
> to_timestamp(begin_time)::date as begin_time,
> to_timestamp(end_time)::date as end_time,
> cost_price,
> payment_method,
> ZuiHouGuiTuan_date,
> N,
> XiaoFeiQuanQuanBuLuRu_date,
> ShangHuQuanXiaoFeiDaoQi_date,
> KuaiDiQuanBuLuRu_date
> from
> public.team
> where
> to_timestamp(begin_time)::date >= '2011-09-07'
> and to_timestamp(end_time)::date <= '$dt'
> and payment_method > 0
> and id not in ( select team_id from
> report.tuan_balance_history where finish = 1 )
> /;
>
> my $r = $dbh->selectall_arrayref($sql);
> for(@$r) {
> my ( $team_id, $begin_time, $end_time, $cost_price,
> $payment_method, $zhgt_date, $N, $xfqqblr_date, $shqxfdq_date,
> $kdqblr_date ) = @$_;
> $teams_hash{ $team_id } = {
> begin_time => $begin_time,
> end_time => $end_time,
> cost_price => $cost_price,
> payment_method => $payment_method,
> balanced_count => 0,
> balanced_money => 0,
> other_tuan_quantity => 0,
> other_tuan_refund_quantity => 0,
> other_tuan_coupon_consumed_count => 0,
> quantity => 0,
> refund_quantity => 0,
> real_quantity => 0,
> vendor_fee => 0,
> coupon_consumed_count => 0,
> coupon_consumed_percent => 0,
> coupon_is_expire => 0,
> vendor_fee => 0,
> zhgt_date => $zhgt_date,
> xfqqblr_date => $xfqqblr_date,
> N => $N,
> kdqblr_date => $kdqblr_date,
> shqxfdq_date => $shqxfdq_date,
> balanced_dates => [],
> expressed_count => 0,
> through_coupon_consumed_count => 0
> };
> }
> }
>
> 2. Open 'a.pl' use 'emacs -Q a.pl', emacs will use perl-mode open this
> file, type 'M-x cperl-mode', type C-v to page down, you will see 'my $r' and
> the following lines will not highlight as expect.
>
>
> If Emacs crashed, and you have the Emacs process in the gdb debugger,
> please include the output from the following gdb commands:
> `bt full' and `xbacktrace'.
> For information about debugging Emacs, please read the file
> /usr/share/emacs/24.0.50/etc/DEBUG.
>
>
> In GNU Emacs 24.0.50.1 (i686-pc-linux-gnu, GTK+ Version 2.24.5)
> of 2011-08-02 on tux
> Windowing system distributor `The X.Org Foundation', version 11.0.11102000
> configured using `configure '--prefix=/usr'
> '--build=i686-pc-linux-gnu' '--host=i686-pc-linux-gnu'
> '--mandir=/usr/share/man' '--infodir=/usr/share/info'
> '--datadir=/usr/share' '--sysconfdir=/etc' '--localstatedir=/var/lib'
> '--disable-dependency-tracking' '--program-suffix=-emacs-24'
> '--infodir=/usr/share/info/emacs-24'
> '--with-crt-dir=/usr/lib/gcc/i686-pc-linux-gnu/4.5.2/../../..'
> '--with-gameuser=games' '--without-compress-info' '--without-hesiod'
> '--without-kerberos' '--without-kerberos5' '--with-gpm' '--with-dbus'
> '--without-gnutls' '--without-selinux' '--with-sound' '--with-x'
> '--without-xml2' '--without-toolkit-scroll-bars' '--without-wide-int'
> '--with-gif' '--with-jpeg' '--with-png' '--with-rsvg' '--with-tiff'
> '--with-xpm' '--without-imagemagick' '--without-gsettings'
> '--without-gconf' '--with-xft' '--without-libotf' '--without-m17n-flt'
> '--with-x-toolkit=gtk' 'build_alias=i686-pc-linux-gnu'
> 'host_alias=i686-pc-linux-gnu' 'CFLAGS=-O2 -march=prescott -pipe'
> 'LDFLAGS=-Wl,-O1 -Wl,--as-needed''
>
> Important settings:
> value of $LC_ALL: nil
> value of $LC_COLLATE: nil
> value of $LC_CTYPE: zh_CN.UTF-8
> value of $LC_MESSAGES: nil
> value of $LC_MONETARY: nil
> value of $LC_NUMERIC: nil
> value of $LC_TIME: nil
> value of $LANG: en_US.UTF-8
> value of $XMODIFIERS: @im=ibus
> locale-coding-system: utf-8-unix
> default enable-multibyte-characters: t
>
> Major mode: CPerl
>
> Minor modes in effect:
> tooltip-mode: t
> mouse-wheel-mode: t
> tool-bar-mode: t
> menu-bar-mode: t
> file-name-shadow-mode: t
> global-font-lock-mode: t
> font-lock-mode: t
> blink-cursor-mode: t
> auto-composition-mode: t
> auto-encryption-mode: t
> auto-compression-mode: t
> line-number-mode: t
> transient-mark-mode: t
>
> Recent input:
> M-x c p e r l - m o d e <return> C-v C-x C-f C-g M-x
> r e p o r t - b u <tab> <return>
>
> Recent messages:
> For information about GNU Emacs and the GNU system, type C-h C-a.
> Quit
>
> Load-path shadows:
> /usr/share/emacs/site-lisp/flim/hex-util hides
> /usr/share/emacs/24.0.50/lisp/hex-util
> /usr/share/emacs/site-lisp/flim/md4 hides /usr/share/emacs/24.0.50/lisp/md4
> /usr/share/emacs/site-lisp/flim/sasl-cram hides
> /usr/share/emacs/24.0.50/lisp/net/sasl-cram
> /usr/share/emacs/site-lisp/flim/sasl-digest hides
> /usr/share/emacs/24.0.50/lisp/net/sasl-digest
> /usr/share/emacs/site-lisp/flim/sasl hides
> /usr/share/emacs/24.0.50/lisp/net/sasl
> /usr/share/emacs/site-lisp/flim/ntlm hides
> /usr/share/emacs/24.0.50/lisp/net/ntlm
> /usr/share/emacs/site-lisp/flim/sasl-ntlm hides
> /usr/share/emacs/24.0.50/lisp/net/sasl-ntlm
> /usr/share/emacs/site-lisp/flim/hmac-md5 hides
> /usr/share/emacs/24.0.50/lisp/net/hmac-md5
> /usr/share/emacs/site-lisp/flim/hmac-def hides
> /usr/share/emacs/24.0.50/lisp/net/hmac-def
> /usr/share/emacs/site-lisp/semi/smime hides
> /usr/share/emacs/24.0.50/lisp/gnus/smime
> /usr/share/emacs/site-lisp/emms/tq hides
> /usr/share/emacs/24.0.50/lisp/emacs-lisp/tq
> /usr/share/emacs/site-lisp/semi/pgg hides
> /usr/share/emacs/24.0.50/lisp/obsolete/pgg
> /usr/share/emacs/site-lisp/semi/pgg-def hides
> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-def
> /usr/share/emacs/site-lisp/semi/pgg-gpg hides
> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-gpg
> /usr/share/emacs/site-lisp/semi/pgg-pgp hides
> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-pgp
> /usr/share/emacs/site-lisp/semi/pgg-parse hides
> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-parse
> /usr/share/emacs/site-lisp/semi/pgg-pgp5 hides
> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-pgp5
>
> Features:
> (shadow sort gnus-util mail-extr message format-spec rfc822 mml mml-sec
> mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045
> ietf-drums mm-util mail-prsvr mailabbrev mail-utils gmm-utils mailheader
> emacsbug cperl-mode easymenu perl-mode time-date china-util tooltip
> ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd
> fontset image fringe lisp-mode register page menu-bar rfn-eshadow timer
> select scroll-bar mouse jit-lock font-lock syntax facemenu font-core
> frame cham georgian utf-8-lang misc-lang vietnamese tibetan thai
> tai-viet lao korean japanese hebrew greek romanian slovak czech european
> ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook help
> simple abbrev minibuffer loaddefs button faces cus-face files
> text-properties overlay sha1 md5 base64 format env code-pages mule
> custom widget hashtable-print-readable backquote make-network-process
> dbusbind dynamic-setting font-render-setting move-toolbar gtk x-toolkit
> x multi-tty emacs)
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#10095: 24.0.50; cperl-mode highlight bug
2012-04-02 19:37 ` wd
@ 2012-04-27 9:29 ` wd
2012-07-11 11:59 ` Vincent Lefevre
0 siblings, 1 reply; 6+ messages in thread
From: wd @ 2012-04-27 9:29 UTC (permalink / raw)
To: 10095
Exists in GNU Emacs 24.0.95.1 (i686-pc-linux-gnu) Gentoo.
On Tue, Apr 3, 2012 at 3:37 AM, wd <wd@wdicc.com> wrote:
> This bug still exists in emacs 24.0.94.1, both gnus/linux and macos.
>
> GNU Emacs 24.0.94.1 (i386-apple-darwin11.3.0, NS apple-appkit-1138.32)
> of 2012-03-03 on localhost
>
>
> On Mon, Nov 21, 2011 at 6:10 PM, wd <wd@wdicc.com> wrote:
>> This bug report will be sent to the Bug-GNU-Emacs mailing list
>> and the GNU bug tracker at debbugs.gnu.org. Please check that
>> the From: line contains a valid email address. After a delay of up
>> to one day, you should receive an acknowledgement at that address.
>>
>> Please write in English if possible, as the Emacs maintainers
>> usually do not have translators for other languages.
>>
>> Please describe exactly what actions triggered the bug, and
>> the precise symptoms of the bug. If you can, give a recipe
>> starting from `emacs -Q':
>>
>>
>> 1. Write a perl file named as 'a.pl', and past the following code
>> #!/usr/bin/perl
>>
>> use strict;
>> use warnings;
>> use Data::Dumper;
>> use POSIX qw/strftime mktime/;
>> use Getopt::Long;
>> use DBI;
>>
>> use JSON;
>>
>> sub main {
>> }
>>
>> sub log {
>> my $msg = shift;
>> print localtime() . " $msg\n" if $v;
>> }
>>
>> sub get_all_teams {
>> # we only can process temas that begin_time greater than
>> 2011-09-07, since refund_log only start at that time
>> my $sql = qq/
>> select
>> id,
>> to_timestamp(begin_time)::date as begin_time,
>> to_timestamp(end_time)::date as end_time,
>> cost_price,
>> payment_method,
>> ZuiHouGuiTuan_date,
>> N,
>> XiaoFeiQuanQuanBuLuRu_date,
>> ShangHuQuanXiaoFeiDaoQi_date,
>> KuaiDiQuanBuLuRu_date
>> from
>> public.team
>> where
>> to_timestamp(begin_time)::date >= '2011-09-07'
>> and to_timestamp(end_time)::date <= '$dt'
>> and payment_method > 0
>> and id not in ( select team_id from
>> report.tuan_balance_history where finish = 1 )
>> /;
>>
>> my $r = $dbh->selectall_arrayref($sql);
>> for(@$r) {
>> my ( $team_id, $begin_time, $end_time, $cost_price,
>> $payment_method, $zhgt_date, $N, $xfqqblr_date, $shqxfdq_date,
>> $kdqblr_date ) = @$_;
>> $teams_hash{ $team_id } = {
>> begin_time => $begin_time,
>> end_time => $end_time,
>> cost_price => $cost_price,
>> payment_method => $payment_method,
>> balanced_count => 0,
>> balanced_money => 0,
>> other_tuan_quantity => 0,
>> other_tuan_refund_quantity => 0,
>> other_tuan_coupon_consumed_count => 0,
>> quantity => 0,
>> refund_quantity => 0,
>> real_quantity => 0,
>> vendor_fee => 0,
>> coupon_consumed_count => 0,
>> coupon_consumed_percent => 0,
>> coupon_is_expire => 0,
>> vendor_fee => 0,
>> zhgt_date => $zhgt_date,
>> xfqqblr_date => $xfqqblr_date,
>> N => $N,
>> kdqblr_date => $kdqblr_date,
>> shqxfdq_date => $shqxfdq_date,
>> balanced_dates => [],
>> expressed_count => 0,
>> through_coupon_consumed_count => 0
>> };
>> }
>> }
>>
>> 2. Open 'a.pl' use 'emacs -Q a.pl', emacs will use perl-mode open this
>> file, type 'M-x cperl-mode', type C-v to page down, you will see 'my $r' and
>> the following lines will not highlight as expect.
>>
>>
>> If Emacs crashed, and you have the Emacs process in the gdb debugger,
>> please include the output from the following gdb commands:
>> `bt full' and `xbacktrace'.
>> For information about debugging Emacs, please read the file
>> /usr/share/emacs/24.0.50/etc/DEBUG.
>>
>>
>> In GNU Emacs 24.0.50.1 (i686-pc-linux-gnu, GTK+ Version 2.24.5)
>> of 2011-08-02 on tux
>> Windowing system distributor `The X.Org Foundation', version 11.0.11102000
>> configured using `configure '--prefix=/usr'
>> '--build=i686-pc-linux-gnu' '--host=i686-pc-linux-gnu'
>> '--mandir=/usr/share/man' '--infodir=/usr/share/info'
>> '--datadir=/usr/share' '--sysconfdir=/etc' '--localstatedir=/var/lib'
>> '--disable-dependency-tracking' '--program-suffix=-emacs-24'
>> '--infodir=/usr/share/info/emacs-24'
>> '--with-crt-dir=/usr/lib/gcc/i686-pc-linux-gnu/4.5.2/../../..'
>> '--with-gameuser=games' '--without-compress-info' '--without-hesiod'
>> '--without-kerberos' '--without-kerberos5' '--with-gpm' '--with-dbus'
>> '--without-gnutls' '--without-selinux' '--with-sound' '--with-x'
>> '--without-xml2' '--without-toolkit-scroll-bars' '--without-wide-int'
>> '--with-gif' '--with-jpeg' '--with-png' '--with-rsvg' '--with-tiff'
>> '--with-xpm' '--without-imagemagick' '--without-gsettings'
>> '--without-gconf' '--with-xft' '--without-libotf' '--without-m17n-flt'
>> '--with-x-toolkit=gtk' 'build_alias=i686-pc-linux-gnu'
>> 'host_alias=i686-pc-linux-gnu' 'CFLAGS=-O2 -march=prescott -pipe'
>> 'LDFLAGS=-Wl,-O1 -Wl,--as-needed''
>>
>> Important settings:
>> value of $LC_ALL: nil
>> value of $LC_COLLATE: nil
>> value of $LC_CTYPE: zh_CN.UTF-8
>> value of $LC_MESSAGES: nil
>> value of $LC_MONETARY: nil
>> value of $LC_NUMERIC: nil
>> value of $LC_TIME: nil
>> value of $LANG: en_US.UTF-8
>> value of $XMODIFIERS: @im=ibus
>> locale-coding-system: utf-8-unix
>> default enable-multibyte-characters: t
>>
>> Major mode: CPerl
>>
>> Minor modes in effect:
>> tooltip-mode: t
>> mouse-wheel-mode: t
>> tool-bar-mode: t
>> menu-bar-mode: t
>> file-name-shadow-mode: t
>> global-font-lock-mode: t
>> font-lock-mode: t
>> blink-cursor-mode: t
>> auto-composition-mode: t
>> auto-encryption-mode: t
>> auto-compression-mode: t
>> line-number-mode: t
>> transient-mark-mode: t
>>
>> Recent input:
>> M-x c p e r l - m o d e <return> C-v C-x C-f C-g M-x
>> r e p o r t - b u <tab> <return>
>>
>> Recent messages:
>> For information about GNU Emacs and the GNU system, type C-h C-a.
>> Quit
>>
>> Load-path shadows:
>> /usr/share/emacs/site-lisp/flim/hex-util hides
>> /usr/share/emacs/24.0.50/lisp/hex-util
>> /usr/share/emacs/site-lisp/flim/md4 hides /usr/share/emacs/24.0.50/lisp/md4
>> /usr/share/emacs/site-lisp/flim/sasl-cram hides
>> /usr/share/emacs/24.0.50/lisp/net/sasl-cram
>> /usr/share/emacs/site-lisp/flim/sasl-digest hides
>> /usr/share/emacs/24.0.50/lisp/net/sasl-digest
>> /usr/share/emacs/site-lisp/flim/sasl hides
>> /usr/share/emacs/24.0.50/lisp/net/sasl
>> /usr/share/emacs/site-lisp/flim/ntlm hides
>> /usr/share/emacs/24.0.50/lisp/net/ntlm
>> /usr/share/emacs/site-lisp/flim/sasl-ntlm hides
>> /usr/share/emacs/24.0.50/lisp/net/sasl-ntlm
>> /usr/share/emacs/site-lisp/flim/hmac-md5 hides
>> /usr/share/emacs/24.0.50/lisp/net/hmac-md5
>> /usr/share/emacs/site-lisp/flim/hmac-def hides
>> /usr/share/emacs/24.0.50/lisp/net/hmac-def
>> /usr/share/emacs/site-lisp/semi/smime hides
>> /usr/share/emacs/24.0.50/lisp/gnus/smime
>> /usr/share/emacs/site-lisp/emms/tq hides
>> /usr/share/emacs/24.0.50/lisp/emacs-lisp/tq
>> /usr/share/emacs/site-lisp/semi/pgg hides
>> /usr/share/emacs/24.0.50/lisp/obsolete/pgg
>> /usr/share/emacs/site-lisp/semi/pgg-def hides
>> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-def
>> /usr/share/emacs/site-lisp/semi/pgg-gpg hides
>> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-gpg
>> /usr/share/emacs/site-lisp/semi/pgg-pgp hides
>> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-pgp
>> /usr/share/emacs/site-lisp/semi/pgg-parse hides
>> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-parse
>> /usr/share/emacs/site-lisp/semi/pgg-pgp5 hides
>> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-pgp5
>>
>> Features:
>> (shadow sort gnus-util mail-extr message format-spec rfc822 mml mml-sec
>> mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045
>> ietf-drums mm-util mail-prsvr mailabbrev mail-utils gmm-utils mailheader
>> emacsbug cperl-mode easymenu perl-mode time-date china-util tooltip
>> ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd
>> fontset image fringe lisp-mode register page menu-bar rfn-eshadow timer
>> select scroll-bar mouse jit-lock font-lock syntax facemenu font-core
>> frame cham georgian utf-8-lang misc-lang vietnamese tibetan thai
>> tai-viet lao korean japanese hebrew greek romanian slovak czech european
>> ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook help
>> simple abbrev minibuffer loaddefs button faces cus-face files
>> text-properties overlay sha1 md5 base64 format env code-pages mule
>> custom widget hashtable-print-readable backquote make-network-process
>> dbusbind dynamic-setting font-render-setting move-toolbar gtk x-toolkit
>> x multi-tty emacs)
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#10095: 24.0.50; cperl-mode highlight bug
2012-04-27 9:29 ` wd
@ 2012-07-11 11:59 ` Vincent Lefevre
2012-08-06 15:48 ` Stefan Monnier
0 siblings, 1 reply; 6+ messages in thread
From: Vincent Lefevre @ 2012-07-11 11:59 UTC (permalink / raw)
To: wd; +Cc: 10095
On 2012-04-27 17:29:57 +0800, wd wrote:
> Exists in GNU Emacs 24.0.95.1 (i686-pc-linux-gnu) Gentoo.
It still exists in GNU Emacs 24.1.1. I actually noticed the problem
on the following code, and I believe it's the same bug. It seems
that CPerl doesn't detect the end of a long qq or qw.
#!/usr/bin/env perl
# -*- mode: cperl -*-
# Open with "emacs -Q -nw cperl-qw".
my @groups =
qw(
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah
);
my $foo;
# bar
--
Vincent Lefèvre <vincent@vinc17.net> - Web: <http://www.vinc17.net/>
100% accessible validated (X)HTML - Blog: <http://www.vinc17.net/blog/>
Work: CR INRIA - computer arithmetic / AriC project (LIP, ENS-Lyon)
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#10095: 24.0.50; cperl-mode highlight bug
2012-07-11 11:59 ` Vincent Lefevre
@ 2012-08-06 15:48 ` Stefan Monnier
2012-08-06 17:41 ` Stefan Monnier
0 siblings, 1 reply; 6+ messages in thread
From: Stefan Monnier @ 2012-08-06 15:48 UTC (permalink / raw)
To: Vincent Lefevre; +Cc: wd, 10095
> It still exists in GNU Emacs 24.1.1. I actually noticed the problem
> on the following code, and I believe it's the same bug. It seems
> that CPerl doesn't detect the end of a long qq or qw.
Thanks for the test case, I can reproduce it here with the trunk, so
it's not yet fixed.
Stefan
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#10095: 24.0.50; cperl-mode highlight bug
2012-08-06 15:48 ` Stefan Monnier
@ 2012-08-06 17:41 ` Stefan Monnier
0 siblings, 0 replies; 6+ messages in thread
From: Stefan Monnier @ 2012-08-06 17:41 UTC (permalink / raw)
To: Vincent Lefevre; +Cc: wd, 10095-done
Version: 24.2
>> It still exists in GNU Emacs 24.1.1. I actually noticed the problem
>> on the following code, and I believe it's the same bug. It seems
>> that CPerl doesn't detect the end of a long qq or qw.
> Thanks for the test case, I can reproduce it here with the trunk, so
> it's not yet fixed.
I've just installed the patch below in the `emacs-24' branch. I believe
it fixes your problem. Thanks for the good test case,
Stefan
=== modified file 'lisp/progmodes/cperl-mode.el'
--- lisp/progmodes/cperl-mode.el 2012-07-18 09:33:09 +0000
+++ lisp/progmodes/cperl-mode.el 2012-08-06 17:20:25 +0000
@@ -1838,7 +1838,13 @@
(set (make-local-variable 'cperl-syntax-done-to) nil)
(set (make-local-variable 'syntax-propertize-function)
(lambda (start end)
- (goto-char start) (cperl-fontify-syntaxically end))))
+ (goto-char start)
+ ;; Even if cperl-fontify-syntaxically has already gone
+ ;; beyond `start', syntax-propertize has just removed
+ ;; syntax-table properties between start and end, so we have
+ ;; to re-apply them.
+ (setq cperl-syntax-done-to start)
+ (cperl-fontify-syntaxically end))))
(make-local-variable 'parse-sexp-lookup-properties)
;; Do not introduce variable if not needed, we check it!
(set 'parse-sexp-lookup-properties t)
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2012-08-06 17:41 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-11-21 10:10 bug#10095: 24.0.50; cperl-mode highlight bug wd
2012-04-02 19:37 ` wd
2012-04-27 9:29 ` wd
2012-07-11 11:59 ` Vincent Lefevre
2012-08-06 15:48 ` Stefan Monnier
2012-08-06 17:41 ` Stefan Monnier
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).