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

diff -r b8b6645d8593 -r 9280279b6356 lisp/progmodes/perl-mode.el
--- a/lisp/progmodes/perl-mode.el	Wed Sep 10 17:51:08 2003 +0000
+++ b/lisp/progmodes/perl-mode.el	Wed Sep 10 17:51:33 2003 +0000
@@ -295,7 +295,7 @@
      ((not char)
       ;; Comment or docstring.
       (if (nth 7 state) font-lock-doc-face font-lock-comment-face))
-     ((and (char-valid-p char) (eq (char-syntax (nth 3 state)) ?\"))
+     ((and (characterp char) (eq (char-syntax (nth 3 state)) ?\"))
       ;; Normal string.
       font-lock-string-face)
      ((eq (nth 3 state) ?\n)