From: martin rudalics <rudalics@gmx.at>
Cc: Chong Yidong <cyd@stupidchicken.com>, emacs-devel@gnu.org
Subject: Re: cperl + isearch + font-lock-multiline sometimes very slow
Date: Sat, 21 Oct 2006 17:57:39 +0200 [thread overview]
Message-ID: <453A4373.7060807@gmx.at> (raw)
In-Reply-To: <q5gac3rchw3.fsf@sfsw51.de.lucent.com>
[-- Attachment #1: Type: text/plain, Size: 312 bytes --]
> With these 3 lines I can still observe the problem.
> 1. Start emacs with .emacs containing the 3 lines above
> 2. load a Perl file (not too small), I use perl5db.pl from the Perl distribution
> 3. Watch emacs CPU usage
Before digging into this any further: Can you reproduce the bug with
the attached patch?
[-- Attachment #2: cperl.patch --]
[-- Type: text/plain, Size: 2181 bytes --]
*** cperl-mode.el Sat Oct 21 11:36:32 2006
--- cperl-mode.el Sat Oct 21 17:53:32 2006
***************
*** 2822,2828 ****
(skip-chars-backward " \t")
(looking-at "[ \t]*[a-zA-Z_][a-zA-Z_0-9]*[ \t]*:")))
(get-text-property (point) 'first-format-line)))
!
;; Look at previous line that's at column 0
;; to determine whether we are in top-level decls
;; or function's arg decls. Set basic-indent accordingly.
--- 2822,2828 ----
(skip-chars-backward " \t")
(looking-at "[ \t]*[a-zA-Z_][a-zA-Z_0-9]*[ \t]*:")))
(get-text-property (point) 'first-format-line)))
!
;; Look at previous line that's at column 0
;; to determine whether we are in top-level decls
;; or function's arg decls. Set basic-indent accordingly.
***************
*** 5708,5714 ****
(defun cperl-windowed-init ()
"Initialization under windowed version."
! (if (or (featurep 'ps-print) cperl-faces-init)
;; Need to init anyway:
(or cperl-faces-init (cperl-init-faces))
(add-hook 'font-lock-mode-hook
--- 5708,5715 ----
(defun cperl-windowed-init ()
"Initialization under windowed version."
! (if (or ; (featurep 'ps-print)
! cperl-faces-init)
;; Need to init anyway:
(or cperl-faces-init (cperl-init-faces))
(add-hook 'font-lock-mode-hook
***************
*** 5717,5726 ****
(if (memq major-mode '(perl-mode cperl-mode))
(progn
(or cperl-faces-init (cperl-init-faces)))))))
! (if (fboundp 'eval-after-load)
! (eval-after-load
! "ps-print"
! '(or cperl-faces-init (cperl-init-faces))))))
(defvar cperl-font-lock-keywords-1 nil
"Additional expressions to highlight in Perl mode. Minimal set.")
--- 5718,5728 ----
(if (memq major-mode '(perl-mode cperl-mode))
(progn
(or cperl-faces-init (cperl-init-faces)))))))
! ;;; (if (fboundp 'eval-after-load)
! ;;; (eval-after-load
! ;;; "ps-print"
! ;;; '(or cperl-faces-init (cperl-init-faces))))
! ))
(defvar cperl-font-lock-keywords-1 nil
"Additional expressions to highlight in Perl mode. Minimal set.")
[-- Attachment #3: Type: text/plain, Size: 142 bytes --]
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
next prev parent reply other threads:[~2006-10-21 15:57 UTC|newest]
Thread overview: 16+ messages / expand[flat|nested] mbox.gz Atom feed top
2006-10-19 6:21 cperl + isearch + font-lock-multiline sometimes very slow Klaus Zeitler
2006-10-19 7:48 ` Richard Stallman
2006-10-19 11:26 ` Kim F. Storm
2006-10-20 6:06 ` Richard Stallman
2006-10-20 3:45 ` Chong Yidong
2006-10-20 12:05 ` Klaus Zeitler
2006-10-20 12:50 ` Chong Yidong
2006-10-20 22:52 ` Chong Yidong
2006-10-21 15:57 ` martin rudalics [this message]
2006-10-22 17:31 ` Chong Yidong
2006-10-22 20:34 ` martin rudalics
2006-10-22 21:01 ` Chong Yidong
2006-10-23 8:37 ` Klaus Zeitler
2006-10-23 20:25 ` Stefan Monnier
2006-10-23 20:52 ` Stefan Monnier
2006-10-22 9:57 ` martin rudalics
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
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=453A4373.7060807@gmx.at \
--to=rudalics@gmx.at \
--cc=cyd@stupidchicken.com \
--cc=emacs-devel@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 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).