From 373889138435067d59b22271ea48c38fa0e4214e Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 10 Sep 2003 17:51:33 +0000 Subject: [PATCH] (perl-font-lock-syntactic-face-function): Use characterp. --- lisp/progmodes/perl-mode.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.2