From: Dave Love <fx@gnu.org>
Date: Wed, 10 Sep 2003 17:51:08 +0000 (+0000)
Subject: (sh-font-lock-syntactic-face-function): Use characterp.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1861
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=813f5534f54b5f1a66d1e1ac34600ac7bc4c6129;p=emacs.git

(sh-font-lock-syntactic-face-function): Use characterp.
---

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 341a0d179e7..2d332bae661 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -936,7 +936,7 @@ be indented (i.e. a <<- was used rather than just <<)."
 
 (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))