procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(occur-accumulate-lines, occur-engine):

Browse source 
Make forcing deferred font-lock fontification jit-specific.
This commit is contained in:
Juri Linkov 2004-12-17 16:58:54 +00:00
parent 132cf96dff
commit 2c13e47b06
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2004-12-17 Juri Linkov <juri@jurta.org>
* replace.el (occur-accumulate-lines, occur-engine):
Make forcing deferred font-lock fontification jit-specific.
2004-12-17 Kim F. Storm <storm@cua.dk>
* mouse.el (mouse-1-click-follows-link): New defcustom.

8
lisp/replace.el
View file

@ -799,9 +799,9 @@ If the value is nil, don't highlight the buffer names specially."
(setq count (+ count (if forwardp -1 1)))
(setq beg (line-beginning-position)
end (line-end-position))
(if (and keep-props font-lock-mode
(if (and keep-props (boundp 'jit-lock-mode) jit-lock-mode
(text-property-not-all beg end 'fontified t))
(font-lock-fontify-region beg end))
(jit-lock-fontify-now beg end))
(push
(funcall (if keep-props
#'buffer-substring
@ -1008,9 +1008,9 @@ See also `multi-occur'."
endpt (line-end-position)))
(setq marker (make-marker))
(set-marker marker matchbeg)
(if (and keep-props font-lock-mode
(if (and keep-props (boundp 'jit-lock-mode) jit-lock-mode
(text-property-not-all begpt endpt 'fontified t))
(font-lock-fontify-region begpt endpt))
(jit-lock-fontify-now begpt endpt))
(setq curstring (buffer-substring begpt endpt))
;; Depropertize the string, and maybe
;; highlight the matches