diff options
| author | Dave Love | 2003-09-10 17:51:33 +0000 |
|---|---|---|
| committer | Dave Love | 2003-09-10 17:51:33 +0000 |
| commit | 373889138435067d59b22271ea48c38fa0e4214e (patch) | |
| tree | 322801abacb32620bb661dc8bacba4a4b2b84660 | |
| parent | 813f5534f54b5f1a66d1e1ac34600ac7bc4c6129 (diff) | |
| download | emacs-373889138435067d59b22271ea48c38fa0e4214e.tar.gz emacs-373889138435067d59b22271ea48c38fa0e4214e.zip | |
(perl-font-lock-syntactic-face-function): Use characterp.
| -rw-r--r-- | lisp/progmodes/perl-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 295 | ((not char) | 295 | ((not char) |
| 296 | ;; Comment or docstring. | 296 | ;; Comment or docstring. |
| 297 | (if (nth 7 state) font-lock-doc-face font-lock-comment-face)) | 297 | (if (nth 7 state) font-lock-doc-face font-lock-comment-face)) |
| 298 | ((and (char-valid-p char) (eq (char-syntax (nth 3 state)) ?\")) | 298 | ((and (characterp char) (eq (char-syntax (nth 3 state)) ?\")) |
| 299 | ;; Normal string. | 299 | ;; Normal string. |
| 300 | font-lock-string-face) | 300 | font-lock-string-face) |
| 301 | ((eq (nth 3 state) ?\n) | 301 | ((eq (nth 3 state) ?\n) |