Mercurial > emacs

changeset 72933:cc737d1f33f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-compile-keywords): Rename optional arg to SYNTACTIC-KEYWORDS and reverse the sense. All callers changed.
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 Sep 2006 17:52:32 +0000
parents eea4777d0d23
children b193d9616957
files lisp/font-lock.el
diffstat 1 files changed, 10 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/font-lock.el	Sat Sep 16 17:43:35 2006 +0000
+++ b/lisp/font-lock.el	Sat Sep 16 17:52:32 2006 +0000
@@ -718,7 +718,7 @@
 	   ;; If the keywords were compiled before, compile them again.
 	   (if was-compiled
 	       (setq font-lock-keywords
-                     (font-lock-compile-keywords font-lock-keywords t)))))))
+                     (font-lock-compile-keywords font-lock-keywords)))))))
 
 (defun font-lock-update-removed-keyword-alist (mode keywords how)
   "Update `font-lock-removed-keywords-alist' when adding new KEYWORDS to MODE."
@@ -825,7 +825,7 @@
 	   ;; If the keywords were compiled before, compile them again.
 	   (if was-compiled
 	       (setq font-lock-keywords
-                     (font-lock-compile-keywords font-lock-keywords t)))))))
+                     (font-lock-compile-keywords font-lock-keywords)))))))
 
 ;;; Font Lock Support mode.
 
@@ -1414,7 +1414,8 @@
   ;; If `font-lock-syntactic-keywords' is not compiled, compile it.
   (unless (eq (car font-lock-syntactic-keywords) t)
     (setq font-lock-syntactic-keywords (font-lock-compile-keywords
-					font-lock-syntactic-keywords)))
+					font-lock-syntactic-keywords
+					t)))
   ;; Get down to business.
   (let ((case-fold-search font-lock-keywords-case-fold-search)
 	(keywords (cddr font-lock-syntactic-keywords))
@@ -1570,7 +1571,7 @@
 LOUDLY, if non-nil, allows progress-meter bar."
   (unless (eq (car font-lock-keywords) t)
     (setq font-lock-keywords
-	  (font-lock-compile-keywords font-lock-keywords t)))
+	  (font-lock-compile-keywords font-lock-keywords)))
   (let ((case-fold-search font-lock-keywords-case-fold-search)
 	(keywords (cddr font-lock-keywords))
 	(bufname (buffer-name)) (count 0)
@@ -1626,12 +1627,12 @@
 
 ;; Various functions.
 
-(defun font-lock-compile-keywords (keywords &optional regexp)
+(defun font-lock-compile-keywords (keywords &optional syntactic-keywords)
   "Compile KEYWORDS into the form (t KEYWORDS COMPILED...)
 Here each COMPILED is of the form (MATCHER HIGHLIGHT ...) as shown in the
 `font-lock-keywords' doc string.
-If REGEXP is non-nil, it means these keywords are used for
-`font-lock-keywords' rather than for `font-lock-syntactic-keywords'."
+If SYNTACTIC-KEYWORDS is non-nil, it means these keywords are used for
+`font-lock-syntactic-keywords' rather than for `font-lock-keywords'."
   (if (not font-lock-set-defaults)
       ;; This should never happen.  But some external packages sometimes
       ;; call font-lock in unexpected and incorrect ways.  It's important to
@@ -1644,7 +1645,7 @@
     (setq keywords
 	  (cons t (cons keywords
 			(mapcar 'font-lock-compile-keyword keywords))))
-    (if (and regexp
+    (if (and (not syntactic-keywords)
 	     (eq (or syntax-begin-function
 		     font-lock-beginning-of-syntax-function)
 		 'beginning-of-defun)
@@ -1774,7 +1775,7 @@
       ;; Now compile the keywords.
       (unless (eq (car font-lock-keywords) t)
 	(setq font-lock-keywords
-              (font-lock-compile-keywords font-lock-keywords t))))))
+              (font-lock-compile-keywords font-lock-keywords))))))
 
 ;;; Colour etc. support.