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

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

diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index 7017ac0d299..4b0440321f8 100644
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -295,7 +295,7 @@ The expansion is entirely correct because it uses the C preprocessor."
      ((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)