# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 961788871 0
# Node ID 08e5e3740bf904160dcfd6f5c8c898e3cb994d0f
# Parent  ba47938269eb562352b63b5eb8a8b1143ad3e94f
(font-lock-fontify-anchored-keywords): Use line-beginning-position.
(font-lock-support-mode) <defgroup>: Add :version.
(global-font-lock-mode): Use mapc.

diff -r ba47938269eb -r 08e5e3740bf9 lisp/font-lock.el
--- 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)))