Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 12:27:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

Comment out Oct 18 change to font-lock-after-change-function

Browse source
This commit is contained in:
Simon Marshall 1994-12-05 13:38:11 +00:00
parent ef94699862
commit 9e116f87ad
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/font-lock.el
View file

@ -474,12 +474,14 @@ the face is also set; its value is the face name."
(if font-lock-no-comments
(remove-text-properties beg end '(face nil))
(font-lock-fontify-region beg end))
;; Now scan for keywords, but not if we are inside a comment now.
(or (and (not font-lock-no-comments)
(let ((state (parse-partial-sexp beg end nil nil
font-lock-cache-state)))
(or (nth 4 state) (nth 7 state))))
(font-lock-hack-keywords beg end)))))
(font-lock-hack-keywords beg end))))
; ;; Now scan for keywords, but not if we are inside a comment now.
; (or (and (not font-lock-no-comments)
; (let ((state (parse-partial-sexp beg end nil nil
; font-lock-cache-state)))
; (or (nth 4 state) (nth 7 state))))
; (font-lock-hack-keywords beg end))
;;; Fontifying arbitrary patterns
@ -721,7 +723,7 @@ This does fairly subdued highlighting.")
'("\\\\\\\\\\[\\([^]\\\n]+\\)]" 1 font-lock-reference-face t)
;;
;; Words inside `' which tend to be function names
(let ((word-char "[-+a-zA-Z0-9_.*]"))
(let ((word-char "[-+a-zA-Z0-9_:*]"))
(list (concat "`\\(" word-char word-char "+\\)'")
1 'font-lock-reference-face t))
;;