Mercurial > hg > xemacs-beta

comparison lisp/font-lock.el @ 531:0493e9f3c27f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-12 11:16:12 by ben] event-msw.c: eliminate cygwin warnings. dired.c, syswindows.h, win32.c: find the Net* functions the hard way to avoid errors on win 9x. find-paths.el: fix error with null EXCLUDE-REGEXP. font-lock.el: fix problem reported by hrvoje with buffers starting with a space. lib-complete.el: add a variable to control where `find-library' looks, analogous to `find-function-source-path'. etags.c: new version from Francesco. Makefile.in.in: i'm getting real tired of incomplete commits. is this getting worse or something?
author ben
date Sat, 12 May 2001 11:16:25 +0000
parents 7039e6323819
children e62e90435c57
comparison
equal deleted inserted replaced
530:c948643d954f 531:0493e9f3c27f
902 (let ((on-p (if arg (> (prefix-numeric-value arg) 0) (not font-lock-mode))) 902 (let ((on-p (if arg (> (prefix-numeric-value arg) 0) (not font-lock-mode)))
903 (maximum-size (if (not (consp font-lock-maximum-size)) 903 (maximum-size (if (not (consp font-lock-maximum-size))
904 font-lock-maximum-size 904 font-lock-maximum-size
905 (cdr (or (assq major-mode font-lock-maximum-size) 905 (cdr (or (assq major-mode font-lock-maximum-size)
906 (assq t font-lock-maximum-size)))))) 906 (assq t font-lock-maximum-size))))))
907 ;; Font-lock mode will refuse to turn itself on if in batch mode, or if 907 ;; Font-lock mode will refuse to turn itself on if in batch mode
908 ;; the current buffer is "invisible". The latter is because packages 908 ;; to avoid potential (probably not actual, though) slowdown. We
909 ;; sometimes put their temporary buffers into some particular major mode 909 ;; used to try to "be nice" by avoiding doing this in temporary
910 ;; to get syntax tables and variables and whatnot, but we don't want the 910 ;; buffers. But with the deferral code we don't need this, and it
911 ;; fact that the user has font-lock-mode on a mode hook to slow these 911 ;; definitely screws some things up.
912 ;; things down. 912 (if (noninteractive)
913 (if (or noninteractive (eq (aref (buffer-name) 0) ?\ ))
914 (setq on-p nil))
915 (if (equal (buffer-name) " *Compiler Input*") ; hack for bytecomp...
916 (setq on-p nil)) 913 (setq on-p nil))
917 (cond (on-p 914 (cond (on-p
918 (make-local-hook 'after-change-functions) 915 (make-local-hook 'after-change-functions)
919 (add-hook 'after-change-functions 916 (add-hook 'after-change-functions
920 'font-lock-after-change-function nil t) 917 'font-lock-after-change-function nil t)