Mercurial > emacs

changeset 14780:1d10e4a2fb51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Treat font-lock-keywords of (t) the same as nil. xvc
author Simon Marshall <simon@gnu.org>
date Thu, 07 Mar 1996 13:47:46 +0000
parents afbd0214f6ec
children b4879ed5b5c3
files lisp/font-lock.el
diffstat 1 files changed, 45 insertions(+), 46 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/font-lock.el	Thu Mar 07 10:38:29 1996 +0000
+++ b/lisp/font-lock.el	Thu Mar 07 13:47:46 1996 +0000
@@ -97,7 +97,7 @@
 
 ;;;###autoload
 (defvar font-lock-maximum-decoration nil
-  "*If non-nil, the maximum decoration level for fontifying.
+  "*Maximum decoration level for fontification.
 If nil, use the default decoration (typically the minimum available).
 If t, use the maximum decoration available.
 If a number, use that level of decoration (or if not available the maximum).
@@ -109,7 +109,7 @@
 
 ;;;###autoload
 (defvar font-lock-maximum-size (* 250 1024)
-  "*If non-nil, the maximum size for buffers for fontifying.
+  "*Maximum size of a buffer for buffer fontification.
 Only buffers less than this can be fontified when Font Lock mode is turned on.
 If nil, means size is irrelevant.
 If a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE),
@@ -516,12 +516,12 @@
 ;; `major-mode-hook' is simpler), but maybe someone can come up with another
 ;; solution? --sm.
 
-(defvar font-lock-cache-buffers nil)		; For remembering buffers.
-(defvar change-major-mode-hook nil)		; Make sure it's not void.
+(defvar font-lock-buffers nil)		; For remembering buffers.
+(defvar change-major-mode-hook nil)	; Make sure it's not void.
 
 ;;;###autoload
 (defvar font-lock-global-modes t
-  "*List of modes for which Font Lock mode is automatically turned on.
+  "*Modes for which Font Lock mode is automatically turned on.
 Global Font Lock mode is controlled by the `global-font-lock-mode' command.
 If nil, means no modes have Font Lock mode automatically turned on.
 If t, all modes that support Font Lock mode have it automatically turned on.
@@ -546,7 +546,7 @@
 	(remove-hook 'change-major-mode-hook 'font-lock-change-major-mode)
       (add-hook 'change-major-mode-hook 'font-lock-change-major-mode)
       (add-hook 'post-command-hook 'turn-on-font-lock-if-enabled)
-      (setq font-lock-cache-buffers (buffer-list)))
+      (setq font-lock-buffers (buffer-list)))
     (if message
 	(message "Global Font Lock mode is now %s." (if off-p "OFF" "ON")))
     (not off-p)))
@@ -557,23 +557,23 @@
   ;; major mode is being changed.  Run `turn-on-font-lock-if-enabled' after the
   ;; current command has finished.
   (add-hook 'post-command-hook 'turn-on-font-lock-if-enabled)
-  (add-to-list 'font-lock-cache-buffers (current-buffer)))
+  (add-to-list 'font-lock-buffers (current-buffer)))
 
 (defun turn-on-font-lock-if-enabled ()
   ;; Gross hack warning: Delicate readers should avert eyes now.
   ;; Turn on Font Lock mode if it's one of `font-lock-global-modes'.
   (remove-hook 'post-command-hook 'turn-on-font-lock-if-enabled)
-  (while font-lock-cache-buffers
-    (if (buffer-live-p (car font-lock-cache-buffers))
+  (while font-lock-buffers
+    (if (buffer-live-p (car font-lock-buffers))
 	(save-excursion
-	  (set-buffer (car font-lock-cache-buffers))
+	  (set-buffer (car font-lock-buffers))
 	  (if (or (eq font-lock-global-modes t)
 		  (if (eq (car-safe font-lock-global-modes) 'not)
 		      (not (memq major-mode (cdr font-lock-global-modes)))
 		    (memq major-mode font-lock-global-modes)))
 	      (let (inhibit-quit)
 		(turn-on-font-lock)))))
-    (setq font-lock-cache-buffers (cdr font-lock-cache-buffers))))
+    (setq font-lock-buffers (cdr font-lock-buffers))))
 
 ;; End of Global Font Lock mode.
 
@@ -1051,41 +1051,40 @@
   (font-lock-make-faces)
   ;; Set fontification defaults.
   (make-local-variable 'font-lock-fontified)
-  (if font-lock-keywords
-      nil
-    (let* ((defaults (or font-lock-defaults
-			 (cdr (assq major-mode font-lock-defaults-alist))))
-	   (keywords
-	    (font-lock-choose-keywords (nth 0 defaults)
-	     (font-lock-value-in-major-mode font-lock-maximum-decoration))))
-      ;; Regexp fontification?
-      (setq font-lock-keywords (if (fboundp keywords)
-				   (funcall keywords)
-				 (eval keywords)))
-      ;; Syntactic fontification?
-      (if (nth 1 defaults)
-	  (set (make-local-variable 'font-lock-keywords-only) t))
-      ;; Case fold during regexp fontification?
-      (if (nth 2 defaults)
-	  (set (make-local-variable 'font-lock-keywords-case-fold-search) t))
-      ;; Syntax table for regexp and syntactic fontification?
-      (if (nth 3 defaults)
-	  (let ((slist (nth 3 defaults)))
-	    (set (make-local-variable 'font-lock-syntax-table)
-		 (copy-syntax-table (syntax-table)))
-	    (while slist
-	      (modify-syntax-entry (car (car slist)) (cdr (car slist))
-				   font-lock-syntax-table)
-	      (setq slist (cdr slist)))))
-      ;; Syntax function for syntactic fontification?
-      (if (nth 4 defaults)
-	  (set (make-local-variable 'font-lock-beginning-of-syntax-function)
-	       (nth 4 defaults)))
-      ;; Variable alist?
-      (let ((alist (nthcdr 5 defaults)))
-	(while alist
-	  (set (make-local-variable (car (car alist))) (cdr (car alist)))
-	  (setq alist (cdr alist)))))))
+  (if (member font-lock-keywords '(nil (t)))
+      (let* ((defaults (or font-lock-defaults
+			   (cdr (assq major-mode font-lock-defaults-alist))))
+	     (keywords
+	      (font-lock-choose-keywords (nth 0 defaults)
+	       (font-lock-value-in-major-mode font-lock-maximum-decoration))))
+	;; Regexp fontification?
+	(setq font-lock-keywords (if (fboundp keywords)
+				     (funcall keywords)
+				   (eval keywords)))
+	;; Syntactic fontification?
+	(if (nth 1 defaults)
+	    (set (make-local-variable 'font-lock-keywords-only) t))
+	;; Case fold during regexp fontification?
+	(if (nth 2 defaults)
+	    (set (make-local-variable 'font-lock-keywords-case-fold-search) t))
+	;; Syntax table for regexp and syntactic fontification?
+	(if (nth 3 defaults)
+	    (let ((slist (nth 3 defaults)))
+	      (set (make-local-variable 'font-lock-syntax-table)
+		   (copy-syntax-table (syntax-table)))
+	      (while slist
+		(modify-syntax-entry (car (car slist)) (cdr (car slist))
+				     font-lock-syntax-table)
+		(setq slist (cdr slist)))))
+	;; Syntax function for syntactic fontification?
+	(if (nth 4 defaults)
+	    (set (make-local-variable 'font-lock-beginning-of-syntax-function)
+		 (nth 4 defaults)))
+	;; Variable alist?
+	(let ((alist (nthcdr 5 defaults)))
+	  (while alist
+	    (set (make-local-variable (car (car alist))) (cdr (car alist)))
+	    (setq alist (cdr alist)))))))
 
 (defun font-lock-unset-defaults ()
   "Unset fontification defaults.  See `font-lock-set-defaults'."