# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 953343193 0
# Node ID 6d1e3113c08e93c2fbdd4a9286a73c9a041b0f0e
# Parent  b65709e0ea05c39a2dc1e2eafc15c083b78a6f9a
(font-lock-apply-syntactic-highlight): if VALUE
is a string, convert it to a syntax cell using string-to-syntax.

diff -r b65709e0ea05 -r 6d1e3113c08e lisp/font-lock.el
--- a/lisp/font-lock.el	Sat Mar 18 01:06:46 2000 +0000
+++ b/lisp/font-lock.el	Sat Mar 18 01:33:13 2000 +0000
@@ -532,9 +532,10 @@
 
  (MATCH SYNTAX OVERRIDE LAXMATCH)
 
-where SYNTAX can be of the form (SYNTAX-CODE . MATCHING-CHAR), the name of a
-syntax table, or an expression whose value is such a form or a syntax table.
-OVERRIDE cannot be `prepend' or `append'.
+where SYNTAX can be of the form (SYNTAX-CODE . MATCHING-CHAR) (see
+also `string-to-syntax'), the name of a syntax table, or an expression
+whose value is such a form or a syntax table.  OVERRIDE cannot be
+`prepend' or `append'.
 
 For example, an element of the form highlights syntactically:
 
@@ -1391,8 +1392,10 @@
 	 (start (match-beginning match)) (end (match-end match))
 	 (value (nth 1 highlight))
 	 (override (nth 2 highlight)))
-    (unless (numberp (car-safe value))
-      (setq value (eval value)))
+    (cond ((stringp value)
+	   (setq value (string-to-syntax value)))
+	  ((not (numberp (car-safe value)))
+	   (setq value (eval value))))
     (cond ((not start)
 	   ;; No match but we might not signal an error.
 	   (or (nth 3 highlight)