From: storm@cua.dk (Kim F. Storm)
Cc: emacs-devel@gnu.org
Subject: Re: jit-lock timer etc.
Date: Mon, 21 Aug 2006 13:39:55 +0200 [thread overview]
Message-ID: <m3ejvaqpv8.fsf@kfs-l.imdomain.dk> (raw)
In-Reply-To: <E1GF7hJ-0001W9-40@fencepost.gnu.org> (Richard Stallman's message of "Mon, 21 Aug 2006 07:12:01 -0400")
Richard Stallman <rms@gnu.org> writes:
> Here's my patch to make the jit-lock timer reschedule itself
> instead of waiting. It uses current-idle-time, which I have tested
> and checked in, but I can't easily tell whether steath fontification
> is working. So I would like someone to test this before I check it in.
>
> I have not yet tried to read the other proposed change to this code.
> I was too tired when I saw it.
I strongly prefer the other change proposed by Martin Rudalics which
avoids calling sit-for at all in the timer handler. I have installed
Martin's patch, and I haven't seen the "cursor disappearing" bug since!
However, the approach taken by Martin can be improved by using your
new current-idle-time to install a proper idle timer to resume jit-lock.
Martin, would you like to try to update your patch ?
>
> *** jit-lock.el 17 Aug 2006 11:21:10 -0400 1.54
> --- jit-lock.el 18 Aug 2006 07:57:36 -0400
> ***************
> *** 171,176 ****
> --- 171,180 ----
>
> (defvar jit-lock-stealth-timer nil
> "Timer for stealth fontification in Just-in-time Lock mode.")
> + (defvar jit-lock-stealth-resume-timer nil
> + "Timer for resuming stealth fontification in Just-in-time Lock mode.
> + When time stealth fontification finishes one batch, it reschedules
> + itself using this timer.")
> (defvar jit-lock-context-timer nil
> "Timer for context fontification in Just-in-time Lock mode.")
> (defvar jit-lock-defer-timer nil
> ***************
> *** 225,230 ****
> --- 229,241 ----
> (run-with-idle-timer jit-lock-stealth-time t
> 'jit-lock-stealth-fontify)))
>
> + ;; Set up an idle timer for stealth fontification to resume,
> + ;; but don't activate it now.
> + (when (and jit-lock-stealth-time (null jit-lock-stealth-timer))
> + (setq jit-lock-stealth-resume-timer (timer-create))
> + (timer-set-function jit-lock-stealth-resume-timer
> + 'jit-lock-stealth-fontify))
> +
> ;; Init deferred fontification timer.
> (when (and jit-lock-defer-time (null jit-lock-defer-timer))
> (setq jit-lock-defer-timer
> ***************
> *** 449,454 ****
> --- 460,466 ----
> This functions is called after Emacs has been idle for
> `jit-lock-stealth-time' seconds."
> ;; I used to check `inhibit-read-only' here, but I can't remember why. -stef
> + (cancel-timer jit-lock-stealth-resume-timer)
> (unless (or executing-kbd-macro
> memory-full
> (window-minibuffer-p (selected-window)))
> ***************
> *** 457,512 ****
> minibuffer-auto-raise
> message-log-max)
> (with-local-quit
> ! (while (and buffers (not (input-pending-p)))
> (with-current-buffer (pop buffers)
> ! (when jit-lock-mode
> ! ;; This is funny. Calling sit-for with 3rd arg non-nil
> ! ;; so that it doesn't redisplay, internally calls
> ! ;; wait_reading_process_input also with a parameter
> ! ;; saying "don't redisplay." Since this function here
> ! ;; is called periodically, this effectively leads to
> ! ;; process output not being redisplayed at all because
> ! ;; redisplay_internal is never called. (That didn't
> ! ;; work in the old redisplay either.) So, we learn that
> ! ;; we mustn't call sit-for that way here. But then, we
> ! ;; have to be cautious not to call sit-for in a widened
> ! ;; buffer, since this could display hidden parts of that
> ! ;; buffer. This explains the seemingly weird use of
> ! ;; save-restriction/widen here.
> !
> ! (with-temp-message (if jit-lock-stealth-verbose
> ! (concat "JIT stealth lock "
> ! (buffer-name)))
> !
> ! ;; In the following code, the `sit-for' calls cause a
> ! ;; redisplay, so it's required that the
> ! ;; buffer-modified flag of a buffer that is displayed
> ! ;; has the right value---otherwise the mode line of
> ! ;; an unmodified buffer would show a `*'.
> ! (let (start
> ! (nice (or jit-lock-stealth-nice 0))
> ! (point (point-min)))
> ! (while (and (setq start
> ! (jit-lock-stealth-chunk-start point))
> ! ;; In case sit-for runs any timers,
> ! ;; give them the expected current buffer.
> ! (with-current-buffer outer-buffer
> ! (sit-for nice)))
> !
> ! ;; fontify a block.
> ! (jit-lock-fontify-now start (+ start jit-lock-chunk-size))
> ! ;; If stealth jit-locking is done backwards, this leads to
> ! ;; excessive O(n^2) refontification. -stef
> ! ;; (when (>= jit-lock-context-unfontify-pos start)
> ! ;; (setq jit-lock-context-unfontify-pos end))
> !
> ! ;; Wait a little if load is too high.
> ! (when (and jit-lock-stealth-load
> ! (> (car (load-average)) jit-lock-stealth-load))
> ! ;; In case sit-for runs any timers,
> ! ;; give them the expected current buffer.
> ! (with-current-buffer outer-buffer
> ! (sit-for (or jit-lock-stealth-time 30))))))))))))))
>
>
> \f
> --- 469,527 ----
> minibuffer-auto-raise
> message-log-max)
> (with-local-quit
> ! (when (and jit-lock-mode buffers (not (input-pending-p)))
> (with-current-buffer (pop buffers)
> ! ;; This is funny. Calling sit-for with 3rd arg non-nil
> ! ;; so that it doesn't redisplay, internally calls
> ! ;; wait_reading_process_input also with a parameter
> ! ;; saying "don't redisplay." Since this function here
> ! ;; is called periodically, this effectively leads to
> ! ;; process output not being redisplayed at all because
> ! ;; redisplay_internal is never called. (That didn't
> ! ;; work in the old redisplay either.) So, we learn that
> ! ;; we mustn't call sit-for that way here. But then, we
> ! ;; have to be cautious not to call sit-for in a widened
> ! ;; buffer, since this could display hidden parts of that
> ! ;; buffer. This explains the seemingly weird use of
> ! ;; save-restriction/widen here.
> !
> ! (with-temp-message (if jit-lock-stealth-verbose
> ! (concat "JIT stealth lock "
> ! (buffer-name)))
> !
> ! ;; In the following code, the `sit-for' calls cause a
> ! ;; redisplay, so it's required that the
> ! ;; buffer-modified flag of a buffer that is displayed
> ! ;; has the right value---otherwise the mode line of
> ! ;; an unmodified buffer would show a `*'.
> ! (let (start
> ! (nice (or jit-lock-stealth-nice 0))
> ! (point (point-min)))
> ! (while (and (setq start
> ! (jit-lock-stealth-chunk-start point))
> ! ;; In case sit-for runs any timers,
> ! ;; give them the expected current buffer.
> ! (with-current-buffer outer-buffer
> ! (sit-for nice)))
> !
> ! ;; fontify a block.
> ! (jit-lock-fontify-now start (+ start jit-lock-chunk-size))
> ! ;; If stealth jit-locking is done backwards, this leads to
> ! ;; excessive O(n^2) refontification. -stef
> ! ;; (when (>= jit-lock-context-unfontify-pos start)
> ! ;; (setq jit-lock-context-unfontify-pos end))
> !
> ! ;; Wait a little if load is too high.
> ! (when (and jit-lock-stealth-load
> ! (> (car (load-average)) jit-lock-stealth-load))
> ! ;; Make this timer resume jit-lock in a few
> ! ;; seconds. Compute an idleness time suitably
> ! ;; larger than the current one.
> ! (timer-set-idle-time jit-lock-stealth-resume-timer
> ! (current-idle-time))
> ! (timer-inc-time (or jit-lock-stealth-time 30))
> ! (timer-activate-when-idle
> ! jit-lock-stealth-resume-timer t)))))))))))
>
>
> \f
--
Kim F. Storm <storm@cua.dk> http://www.cua.dk
next prev parent reply other threads:[~2006-08-21 11:39 UTC|newest]
Thread overview: 43+ messages / expand[flat|nested] mbox.gz Atom feed top
2006-08-21 11:12 jit-lock timer etc Richard Stallman
2006-08-21 11:39 ` Kim F. Storm [this message]
2006-08-21 16:57 ` martin rudalics
2006-08-21 18:51 ` Chong Yidong
2006-08-21 22:22 ` martin rudalics
2006-08-21 23:26 ` Chong Yidong
2006-08-22 7:18 ` Kim F. Storm
2006-08-22 15:41 ` Richard Stallman
2006-08-23 12:27 ` martin rudalics
2006-08-23 13:09 ` Kim F. Storm
2006-08-24 5:20 ` Richard Stallman
2006-08-24 7:47 ` Kim F. Storm
2006-08-24 7:58 ` Kim F. Storm
2006-08-24 9:07 ` Kim F. Storm
2006-08-24 14:47 ` Chong Yidong
2006-08-25 20:23 ` Richard Stallman
2006-08-25 22:45 ` Kim F. Storm
2006-08-25 20:23 ` Richard Stallman
2006-08-25 21:27 ` Chong Yidong
2006-08-26 12:22 ` Richard Stallman
2006-08-24 9:10 ` Kim F. Storm
2006-08-24 12:23 ` martin rudalics
2006-08-24 12:54 ` Kim F. Storm
2006-08-24 13:07 ` Kim F. Storm
2006-08-24 13:11 ` Kim F. Storm
2006-08-24 13:34 ` Kim F. Storm
2006-08-24 18:11 ` martin rudalics
2006-08-24 20:11 ` Kim F. Storm
2006-08-24 23:41 ` Chong Yidong
2006-08-25 7:17 ` Kim F. Storm
2006-08-24 14:16 ` Chong Yidong
2006-08-24 5:20 ` Richard Stallman
2006-08-24 7:48 ` Kim F. Storm
2006-08-24 12:21 ` martin rudalics
2006-08-24 15:27 ` Chong Yidong
2006-08-24 15:40 ` Chong Yidong
2006-08-24 18:09 ` martin rudalics
2006-08-24 19:16 ` Stefan Monnier
2006-08-24 19:20 ` Stefan Monnier
2006-08-24 16:18 ` martin rudalics
2006-08-24 16:34 ` Chong Yidong
2006-08-24 19:48 ` Chong Yidong
2006-08-25 6:00 ` 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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m3ejvaqpv8.fsf@kfs-l.imdomain.dk \
--to=storm@cua.dk \
--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 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.