From: wd <wd@wdicc.com>
To: 10095@debbugs.gnu.org
Subject: bug#10095: 24.0.50; cperl-mode highlight bug
Date: Tue, 3 Apr 2012 03:37:01 +0800 [thread overview]
Message-ID: <CABexzmgQ3YjhD503fWRhFE2YxrxS_YSAdBaWJsFn0eS4NtguBg@mail.gmail.com> (raw)
In-Reply-To: <CABexzmiFHFACgYXyHQNU2ycRg8T6zA6y7k16V=cySV8Po=0dqA@mail.gmail.com>
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)
next prev parent reply other threads:[~2012-04-02 19:37 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-11-21 10:10 bug#10095: 24.0.50; cperl-mode highlight bug wd
2012-04-02 19:37 ` wd [this message]
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
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=CABexzmgQ3YjhD503fWRhFE2YxrxS_YSAdBaWJsFn0eS4NtguBg@mail.gmail.com \
--to=wd@wdicc.com \
--cc=10095@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.