(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))
(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)
(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)))
(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
;; 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)) ?.))))