Mercurial > emacs
changeset 29919:08e5e3740bf9
(font-lock-fontify-anchored-keywords): Use line-beginning-position.
(font-lock-support-mode) <defgroup>: Add :version.
(global-font-lock-mode): Use mapc.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 23 Jun 2000 19:34:31 +0000 |
| parents | ba47938269eb |
| children | 106dbd5fec26 |
| files | lisp/font-lock.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/font-lock.el Fri Jun 23 17:45:03 2000 +0000 +++ b/lisp/font-lock.el Fri Jun 23 19:34:31 2000 +0000 @@ -954,10 +954,10 @@ (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 @@ (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 @@ (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)))