changeset 10116:a8cdb7630b1c

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

--- a/lisp/font-lock.el	Mon Dec 05 11:01:40 1994 +0000
+++ b/lisp/font-lock.el	Mon Dec 05 13:38:11 1994 +0000
@@ -474,12 +474,14 @@
       (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 @@
     '("\\\\\\\\\\[\\([^]\\\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))
     ;;