Mercurial > hg > xemacs-beta

comparison lisp/packages/font-lock.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 49a24b4fd526
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
654 ;; Remove any syntax highlighting on the characters in the range. 654 ;; Remove any syntax highlighting on the characters in the range.
655 (put-nonduplicable-text-property start end 'face nil) 655 (put-nonduplicable-text-property start end 'face nil)
656 (put-nonduplicable-text-property start end 'font-lock nil)) 656 (put-nonduplicable-text-property start end 'font-lock nil))
657 657
658 (defsubst font-lock-any-faces-p (start end) 658 (defsubst font-lock-any-faces-p (start end)
659 ;; Return non-nil if we've put any syntax highlighting on the 659 ;; Return non-nil if we've put any syntax highlighting on
660 ;; the characters in the range. 660 ;; the characters in the range.
661 ;; 661 ;;
662 ;; used to look for 'text-prop property, but this has problems if 662 ;; used to look for 'text-prop property, but this has problems if
663 ;; you put any other text properties in the vicinity. Simon 663 ;; you put any other text properties in the vicinity. Simon
664 ;; Marshall suggested looking for the 'face property (this is what 664 ;; Marshall suggested looking for the 'face property (this is what