Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 01:34:21 +00:00
Code Issues Projects Releases Packages Wiki Activity

(font-lock-fontify-anchored-keywords): Use line-beginning-position.

Browse source 
(font-lock-support-mode) <defgroup>: Add :version.
(global-font-lock-mode): Use mapc.
This commit is contained in:
Dave Love 2000-06-23 19:37:14 +00:00
parent 511c7541c9
commit c69e5fcdae
2 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2000-06-23 Dave Love <fx@gnu.org>
* font-lock.el (font-lock-support-mode) <defgroup>: Add :version.
(font-lock-fontify-anchored-keywords): Use
line-beginning-position.
(global-font-lock-mode): Use mapc.
2000-06-23 Stefan Monnier <monnier@cs.yale.edu>
* eshell/esh-module.el: Require CL when compiling.

11
lisp/font-lock.el
View file

@ -954,10 +954,10 @@ turned on in a buffer if its major mode is one of `font-lock-global-modes'."
(setq font-lock-buffers (buffer-list)))
(t
(remove-hook 'find-file-hooks 'turn-on-font-lock-if-enabled)
(mapcar (function (lambda (buffer)
(with-current-buffer buffer
(when font-lock-mode
(font-lock-mode)))))
(mapc (function (lambda (buffer)
(with-current-buffer buffer
(when font-lock-mode
(font-lock-mode)))))
(buffer-list))))
(when message
(message "Global Font Lock mode %s." (if on-p "enabled" "disabled")))
@ -1072,6 +1072,7 @@ The value of this variable is used when Font Lock mode is turned on."
(const :tag "lazy lock" lazy-lock-mode)
(const :tag "JIT lock" jit-lock-mode)))
))
:version "21.1"
:group 'font-lock)
(defvar fast-lock-mode nil)
@ -1582,7 +1583,7 @@ LIMIT can be modified by the value of its PRE-MATCH-FORM."
(when (and font-lock-multiline
(funcall (if (eq font-lock-multiline t) '>= '>)
pre-match-value
(save-excursion (forward-line 1) (point))))
(line-beginning-position 2)))
;; this is a multiline anchored match
(setq font-lock-multiline t)
(put-text-property (point) limit 'font-lock-multiline t)))