From 9e116f87adf9862a18a0ea0faee36f2b32ca9fee Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Mon, 5 Dec 1994 13:38:11 +0000 Subject: [PATCH] Comment out Oct 18 change to font-lock-after-change-function --- lisp/font-lock.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 5782fb0522f..5c23041c3a6 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -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)) ;; -- 2.39.5