Merge from emacs--devo--0

[gnu-emacs] / lisp / progmodes / sh-script.el

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index f94b93ffacf0b6b121fce3ea23d7e74295a6a0fe..de2a00c3ad7cc39291c0dec9f255ce2c05349015 100644 (file)
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -1101,7 +1101,7 @@ This is used to flag quote characters in subshell constructs inside strings
 (defun sh-font-lock-syntactic-face-function (state)
   (let ((q (nth 3 state)))
     (if q
-        (if (char-valid-p q)
+        (if (characterp q)
             (if (eq q ?\`) 'sh-quoted-exec font-lock-string-face)
           sh-heredoc-face)
       font-lock-comment-face)))