Mercurial > hg > xemacs-beta

comparison lisp/packages/font-lock.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents ec9a17fef872
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
768 font-lock-old-len))) 768 font-lock-old-len)))
769 (detach-extent font-lock-old-extent) 769 (detach-extent font-lock-old-extent)
770 (setq font-lock-old-extent nil))) 770 (setq font-lock-old-extent nil)))
771 771
772 (defun font-lock-pre-idle-hook () 772 (defun font-lock-pre-idle-hook ()
773 (if font-lock-old-extent 773 (condition-case nil
774 (font-lock-fontify-glumped-region))) 774 (if font-lock-old-extent
775 (font-lock-fontify-glumped-region))
776 (error (warn "Error caught in `font-lock-pre-idle-hook'"))))
775 777
776 (defvar font-lock-always-fontify-immediately nil 778 (defvar font-lock-always-fontify-immediately nil
777 "Set this to non-nil to disable font-lock deferral.") 779 "Set this to non-nil to disable font-lock deferral.")
778 780
779 ;;; called when any modification is made to buffer text. This function 781 ;;; called when any modification is made to buffer text. This function
2259 (list (concat "\\<\\(package\\|import\\)\\>\\s *" 2261 (list (concat "\\<\\(package\\|import\\)\\>\\s *"
2260 java-font-lock-identifier-regexp) 2262 java-font-lock-identifier-regexp)
2261 '(2 font-lock-reference-face) 2263 '(2 font-lock-reference-face)
2262 (list (concat 2264 (list (concat
2263 "\\=\\.\\(" java-font-lock-identifier-regexp "\\)") 2265 "\\=\\.\\(" java-font-lock-identifier-regexp "\\)")
2264 nil nil '(1 (if (= (char-after (match-end 0)) ?.) 2266 nil nil '(1 (let ((c (char-after (match-end 0))))
2265 'font-lock-reference-face 2267 (if (and (characterp c)
2266 'font-lock-type-face)))) 2268 (= c ?.))
2269 'font-lock-reference-face
2270 'font-lock-type-face)))))
2267 2271
2268 ;; Constructors: 2272 ;; Constructors:
2269 (list (concat 2273 (list (concat
2270 "^\\s *\\(" java-modifier-regexp "\\s +\\)*" 2274 "^\\s *\\(" java-modifier-regexp "\\s +\\)*"
2271 java-font-lock-class-name-regexp "\\s *\(") 2275 java-font-lock-class-name-regexp "\\s *\(")