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

(font-lock-fontify-region): Put on `font-lock'

Browse source 
property as well as `face' property.
(font-lock-hack-keywords): Likewise.
This commit is contained in:
Richard M. Stallman 1993-09-11 15:13:31 +00:00
parent 9fa7bfe524
commit 522779f4c6
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/font-lock.el
View file

@ -150,6 +150,7 @@ slow things down!")
(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 @@ slow things down!")
(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 @@ slow things down!")
(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 @@ slow things down!")
(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 @@ slow things down!")
;; 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)) ?.))))