(cperl-next-bad-style): Fix use of character constant.

This commit is contained in:
Juanma Barranquero 2003-02-14 09:58:50 +00:00
parent babce06327
commit 07cb2aa33c

View file

@ -5980,7 +5980,7 @@ Currently it is tuned to C and Perl syntax."
(and (eq (following-char) ?\-)
(save-excursion
(skip-chars-backward " \t\n")
(memq (preceding-char) '(?\= ?\> ?\< ?\, ?\(, ?\[, ?\{))))
(memq (preceding-char) '(?\= ?\> ?\< ?\, ?\( ?\[ ?\{))))
;; Now check for syntax type
(save-match-data
(setq found (point))