Mercurial > emacs

changeset 4700:1d8de7410270

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-fontify-region): Put on `font-lock' property as well as `face' property. (font-lock-hack-keywords): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Sat, 11 Sep 1993 15:13:31 +0000
parents f57fe6dbf4a0
children 05f6a91c2801
files lisp/font-lock.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/font-lock.el	Sat Sep 11 10:45:25 1993 +0000
+++ b/lisp/font-lock.el	Sat Sep 11 15:13:31 1993 +0000
@@ -150,6 +150,7 @@
 			(nth 3 (parse-partial-sexp beg (point)
 						   nil nil state))))
 	    (put-text-property beg (point) 'face font-lock-string-face)
+	    (put-text-property beg (point) 'font-lock t)
 	    (setq state (parse-partial-sexp beg (point) nil nil state))))
       ;; Likewise for a comment.
       (if (or (nth 4 state) (nth 7 state))
@@ -162,6 +163,7 @@
 			(nth 3 (parse-partial-sexp beg (point)
 						   nil nil state))))
 	    (put-text-property beg (point) 'face font-lock-comment-face)
+	    (put-text-property beg (point) 'font-lock t)
 	    (setq state (parse-partial-sexp beg (point) nil nil state))))
       ;; Find each interesting place between here and END.
       (while (and (< (point) end)
@@ -191,6 +193,7 @@
 			(skip-chars-backward " \t"))
 		    (error (goto-char end))))
 		(put-text-property beg (point) 'face font-lock-comment-face)
+		(put-text-property beg (point) 'font-lock t)
 		(setq state (parse-partial-sexp here (point) nil nil state)))
 	    (if (nth 3 state)
 		(let ((beg (match-beginning 0)))
@@ -198,6 +201,7 @@
 			      (nth 3 (parse-partial-sexp here (point)
 							 nil nil state))))
 		  (put-text-property beg (point) 'face font-lock-string-face)
+		  (put-text-property beg (point) 'font-lock t)
 		  (setq state (parse-partial-sexp here (point) nil nil state))))
 	      ))
 	;; Make sure PREV is non-nil after the loop
@@ -300,7 +304,8 @@
 	;; don't fontify this keyword if we're already in some other context.
 	(or (if allow-overlap-p nil (font-lock-any-properties-p s e))
 	    (progn
-	      (put-text-property s e 'face face))))
+	      (put-text-property s e 'face face)
+	      (put-text-property s e 'font-lock t))))
       (if loudly (message "Fontifying %s... (regexps...%s)"
 			  (buffer-name)
 			  (make-string (setq count (1+ count)) ?.))))