# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1063216268 0
# Node ID b8b6645d859335b568161aa90b2cd6da53602db7
# Parent  fd954cd9d7706c30a7d6465fd6116d29b844ae36
(sh-font-lock-syntactic-face-function): Use characterp.

diff -r fd954cd9d770 -r b8b6645d8593 lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Wed Sep 10 17:50:37 2003 +0000
+++ b/lisp/progmodes/sh-script.el	Wed Sep 10 17:51:08 2003 +0000
@@ -936,7 +936,7 @@
 
 (defun sh-font-lock-syntactic-face-function (state)
   (if (nth 3 state)
-      (if (char-valid-p (nth 3 state))
+      (if (characterp (nth 3 state))
 	  font-lock-string-face
 	sh-heredoc-face)
     font-lock-comment-face))