From: "Herbert Euler" <herberteuler@hotmail.com>
Cc: rudalics@gmx.at, monnier@iro.umontreal.ca, emacs-devel@gnu.org
Subject: Re: Patch: Syntax and Hard Newlines
Date: Thu, 23 Nov 2006 11:27:57 +0800 [thread overview]
Message-ID: <BAY112-F2102DBBFA58CDD774DDC3FDAE20@phx.gbl> (raw)
In-Reply-To: <E1Gmrx0-0004WJ-1a@fencepost.gnu.org>
>I don't think that is a real test, because merely enabling Emacs Lisp
>mode does not parse anything. You need to do some parsing
>across the buffer.
What about this? The same file with 4185181 lines, totally 204MB.
(let (time-diff
state)
(save-window-excursion
(let (old-time)
(switch-to-buffer "large_file")
(emacs-lisp-mode)
(setq parse-sexp-lookup-properties nil
old-time (current-time))
(goto-char (point-max))
(setq state (syntax-ppss (point))
time-diff (time-subtract (current-time)
old-time))))
(pp state)
time-diff)
-| (0 nil 213444184 nil nil nil 0 nil nil nil)
=> (0 25 882543)
(let (time-diff
state)
(save-window-excursion
(let (old-time)
(switch-to-buffer "large_file")
(emacs-lisp-mode)
(setq parse-sexp-lookup-properties t
old-time (current-time))
(goto-char (point-max))
(setq state (syntax-ppss (point))
time-diff (time-subtract (current-time)
old-time))))
(pp state)
time-diff)
-| (0 nil nil nil t nil 0 nil 1 nil)
=> (0 20 81466)
(let (time-diff
state)
(save-window-excursion
(let (old-time)
(switch-to-buffer "large_file")
(emacs-lisp-mode)
(setq parse-sexp-lookup-properties nil
old-time (current-time))
(goto-char (point-max))
(setq state (syntax-ppss (point))
time-diff (time-subtract (current-time)
old-time))))
(pp state)
time-diff)
-| (0 nil 213444184 nil nil nil 0 nil nil nil)
=> (0 26 100278)
(let (time-diff
state)
(save-window-excursion
(let (old-time)
(switch-to-buffer "large_file")
(emacs-lisp-mode)
(setq parse-sexp-lookup-properties t
old-time (current-time))
(goto-char (point-max))
(setq state (syntax-ppss (point))
time-diff (time-subtract (current-time)
old-time))))
(pp state)
time-diff)
-| (0 nil nil nil t nil 0 nil 1 nil)
=> (0 20 88486)
(let (time-diff
state)
(save-window-excursion
(let (old-time)
(switch-to-buffer "large_file")
(emacs-lisp-mode)
(setq parse-sexp-lookup-properties nil
old-time (current-time))
(goto-char (point-max))
(setq state (syntax-ppss (point))
time-diff (time-subtract (current-time)
old-time))))
(pp state)
time-diff)
-| (0 nil 213444184 nil nil nil 0 nil nil nil)
=> (0 25 897448)
(let (time-diff
state)
(save-window-excursion
(let (old-time)
(switch-to-buffer "large_file")
(emacs-lisp-mode)
(setq parse-sexp-lookup-properties t
old-time (current-time))
(goto-char (point-max))
(setq state (syntax-ppss (point))
time-diff (time-subtract (current-time)
old-time))))
(pp state)
time-diff)
-| (0 nil nil nil t nil 0 nil 1 nil)
=> (0 20 48766)
I surprisedly found that it is faster of setting
`parse-sexp-lookup-properties' to t than setting it to nil.
Regards,
Guanpeng Xu
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
next prev parent reply other threads:[~2006-11-23 3:27 UTC|newest]
Thread overview: 94+ messages / expand[flat|nested] mbox.gz Atom feed top
2006-11-13 5:24 Patch: Syntax and Hard Newlines Herbert Euler
2006-11-13 5:52 ` Herbert Euler
2006-11-13 10:12 ` Herbert Euler
2006-11-13 20:15 ` Richard Stallman
2006-11-14 1:35 ` Herbert Euler
2006-11-15 3:14 ` Richard Stallman
2006-11-13 19:43 ` Stefan Monnier
2006-11-14 1:19 ` Herbert Euler
2006-11-14 6:51 ` Stefan Monnier
2006-11-14 7:35 ` Herbert Euler
2006-11-14 15:00 ` Stefan Monnier
2006-11-15 1:32 ` Herbert Euler
2006-11-15 3:58 ` Stefan Monnier
2006-11-15 4:24 ` Herbert Euler
2006-11-16 6:22 ` Richard Stallman
2006-11-30 6:36 ` Herbert Euler
2006-11-30 14:52 ` Stefan Monnier
2006-12-02 17:56 ` Richard Stallman
2006-12-07 18:46 ` Stefan Monnier
2006-12-08 5:04 ` Richard Stallman
2006-12-08 7:44 ` Stefan Monnier
2006-12-09 1:25 ` Richard Stallman
2006-12-09 3:50 ` Stefan Monnier
2006-12-09 18:25 ` Richard Stallman
2006-11-15 4:37 ` Herbert Euler
2006-11-15 7:26 ` Miles Bader
2006-11-15 14:03 ` Stefan Monnier
2006-11-15 15:47 ` Johan Bockgård
2006-11-15 16:37 ` Stefan Monnier
2006-11-16 15:01 ` Richard Stallman
2006-11-16 15:01 ` Richard Stallman
2006-11-23 9:33 ` Johan Bockgård
2006-11-14 12:27 ` Richard Stallman
2006-11-14 15:08 ` Stefan Monnier
2006-11-15 22:58 ` Richard Stallman
2006-11-13 20:15 ` Richard Stallman
2006-11-14 1:42 ` Herbert Euler
2006-11-14 8:36 ` Herbert Euler
2006-11-14 11:38 ` Herbert Euler
2006-11-14 15:03 ` Stefan Monnier
2006-11-16 6:23 ` Herbert Euler
2006-11-16 8:42 ` martin rudalics
2006-11-16 10:47 ` Herbert Euler
2006-11-16 12:18 ` martin rudalics
2006-11-16 12:37 ` Herbert Euler
2006-11-16 12:57 ` martin rudalics
2006-11-16 15:12 ` Herbert Euler
2006-11-16 16:03 ` martin rudalics
2006-11-17 1:24 ` Herbert Euler
2006-11-17 2:27 ` Stefan Monnier
2006-11-17 1:36 ` Herbert Euler
2006-11-16 14:22 ` Stefan Monnier
2006-11-17 6:30 ` Herbert Euler
2006-11-17 18:39 ` martin rudalics
2006-11-18 0:51 ` Herbert Euler
2006-11-18 14:34 ` martin rudalics
2006-11-18 15:21 ` Miles Bader
2006-11-19 11:11 ` martin rudalics
2006-11-19 18:14 ` Stefan Monnier
2006-11-20 1:37 ` Richard Stallman
2006-11-20 3:04 ` Stefan Monnier
2006-11-20 23:57 ` Richard Stallman
2006-11-21 0:03 ` David Kastrup
2006-11-22 13:15 ` Richard Stallman
2006-11-22 13:50 ` David Kastrup
2006-11-24 22:49 ` Richard Stallman
2006-11-26 11:42 ` Kim F. Storm
2006-11-26 12:08 ` David Kastrup
2006-11-26 18:32 ` Kim F. Storm
2006-11-26 19:53 ` David Kastrup
2006-12-05 17:43 ` David Reitter
2006-12-06 14:24 ` Richard Stallman
2006-12-08 9:03 ` David Reitter
2006-11-20 7:39 ` martin rudalics
2006-11-20 10:13 ` David Kastrup
2006-11-20 7:09 ` Herbert Euler
2006-11-20 8:03 ` martin rudalics
2006-11-19 0:58 ` Stefan Monnier
2006-11-19 12:47 ` Richard Stallman
2006-11-19 18:09 ` Stefan Monnier
2006-11-20 12:59 ` Richard Stallman
2006-11-21 3:45 ` Herbert Euler
2006-11-22 13:15 ` Richard Stallman
2006-11-23 3:27 ` Herbert Euler [this message]
2006-11-26 2:01 ` Richard Stallman
2006-11-27 1:10 ` Stefan Monnier
2006-11-29 4:06 ` Herbert Euler
2006-11-29 4:08 ` Herbert Euler
2006-11-29 4:57 ` Stefan Monnier
2006-11-29 7:36 ` Herbert Euler
2006-11-29 11:28 ` Stefan Monnier
2006-11-30 3:20 ` Richard Stallman
2006-11-29 8:13 ` David Kastrup
2006-11-19 7:59 ` Richard Stallman
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=BAY112-F2102DBBFA58CDD774DDC3FDAE20@phx.gbl \
--to=herberteuler@hotmail.com \
--cc=emacs-devel@gnu.org \
--cc=monnier@iro.umontreal.ca \
--cc=rudalics@gmx.at \
/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).