Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-28

[gnu-emacs] / lisp / progmodes / perl-mode.el

diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index 2bd30da0bfdf051bf4ebd771e1de4dbf9225bea9..841c62f51211b4575a6081b2361bf201e15c9a33 100644 (file)
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -296,7 +296,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)