Mercurial > hg > xemacs-beta

comparison lisp/packages/font-lock.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 360340f9fd5f
children 9b50b4588a93
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
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
2267 (list (concat "\\<\\(package\\|import\\)\\>\\s *" 2269 (list (concat "\\<\\(package\\|import\\)\\>\\s *"
2268 java-font-lock-identifier-regexp) 2270 java-font-lock-identifier-regexp)
2269 '(2 font-lock-reference-face) 2271 '(2 font-lock-reference-face)
2270 (list (concat 2272 (list (concat
2271 "\\=\\.\\(" java-font-lock-identifier-regexp "\\)") 2273 "\\=\\.\\(" java-font-lock-identifier-regexp "\\)")
2272 nil nil '(1 (if (= (char-after (match-end 0)) ?.) 2274 nil nil '(1 (let ((c (char-after (match-end 0))))
2273 'font-lock-reference-face 2275 (if (and (characterp c)
2274 'font-lock-type-face)))) 2276 (= c ?.))
2277 'font-lock-reference-face
2278 'font-lock-type-face)))))
2275 2279
2276 ;; Constructors: 2280 ;; Constructors:
2277 (list (concat 2281 (list (concat
2278 "^\\s *\\(" java-modifier-regexp "\\s +\\)*" 2282 "^\\s *\\(" java-modifier-regexp "\\s +\\)*"
2279 java-font-lock-class-name-regexp "\\s *\(") 2283 java-font-lock-class-name-regexp "\\s *\(")