mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(jit-lock-fontify-now): Move jit-lock-context-unfontify-pos.

Browse Source
This commit is contained in:
Stefan Monnier 2005-10-17 15:15:31 +00:00
parent c1bed3aa3a
commit c4ac63d085
2 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2005-10-17 Stefan Monnier <monnier@iro.umontreal.ca>
* jit-lock.el (jit-lock-fontify-now):
Move jit-lock-context-unfontify-pos to avoid wasted work.
2005-10-17 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-completion-mode): New defvar. Used in
@ -33,7 +38,7 @@
* savehist.el: Don't require CL at runtime.
(savehist-xemacs): Remove.
(savehist-coding-system): Use utf-8 if available, regardless of religion.
(savehist-coding-system): Use utf-8 if present, regardless of religion.
(savehist-no-conversion): Use (featurep 'xemacs).
(savehist-load): Check existence of start-itimer rather than XEmacs.
Use an idle timer.
@ -156,14 +161,13 @@
* toolbar/gud-up.*: Moved to etc/images/gud/up.*.
* toolbar/gud-watch.*: Moved to etc/images/gud/watch.*.
* progmodes/gud.el (gud-tool-bar-map): Renamed the images
* progmodes/gud.el (gud-tool-bar-map): Rename the images
appropriately (for example, gud-break to gud/break).
2005-10-14 Chong Yidong <cyd@stupidchicken.com>
* longlines.el (longlinges-search-function)
(longlines-search-forward, longlines-search-backward): New
functions.
(longlines-search-forward, longlines-search-backward): New functions.
(longlines-mode): Set isearch-search-fun-function to
longlinges-search-function.

17
lisp/jit-lock.el
View File

@ -349,6 +349,16 @@ Defaults to the whole buffer. END can be out of bounds."
(goto-char next) (setq next (line-beginning-position 2))
(goto-char start) (setq start (line-beginning-position))
;; Make sure the contextual refontification doesn't re-refontify
;; what's already been refontified.
(when jit-lock-context-unfontify-pos
(if (and (< jit-lock-context-unfontify-pos next)
(when (and jit-lock-context-unfontify-pos
(< jit-lock-context-unfontify-pos next)
(>= jit-lock-context-unfontify-pos start))
(setq jit-lock-context-unfontify-pos next)))
(setq jit-lock-context-unfontify-pos next))
;; Fontify the chunk, and mark it as fontified.
;; We mark it first, to make sure that we don't indefinitely
;; re-execute this fontification if an error occurs.
@ -566,9 +576,14 @@ will take place when text is fontified stealthily."
;; Mark the change for deferred contextual refontification.
(when jit-lock-context-unfontify-pos
(setq jit-lock-context-unfontify-pos
;; Here we use `start' because nothing guarantees that the
;; text between start and end will be otherwise refontified:
;; usually it will be refontified by virtue of being
;; displayed, but if it's outside of any displayed area in the
;; buffer, only jit-lock-context-* will re-fontify it.
(min jit-lock-context-unfontify-pos start))))))
(provide 'jit-lock)
;;; arch-tag: 56b5de6e-f581-453b-bb97-49c39372ff9e
;; arch-tag: 56b5de6e-f581-453b-bb97-49c39372ff9e
;;; jit-lock.el ends here