diff options
| author | Juanma Barranquero | 2003-02-14 09:58:50 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-02-14 09:58:50 +0000 |
| commit | 07cb2aa33cf1722bb671dbcff800b26c2fd0b0a5 (patch) | |
| tree | 8a8cbfcc526add08a869e320d8fd51bbfc8b99c9 | |
| parent | babce063274ac2896cad94f47bd2c937da25e4e9 (diff) | |
| download | emacs-07cb2aa33cf1722bb671dbcff800b26c2fd0b0a5.tar.gz emacs-07cb2aa33cf1722bb671dbcff800b26c2fd0b0a5.zip | |
(cperl-next-bad-style): Fix use of character constant.
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index a7c17720126..bde44cbea91 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el | |||
| @@ -5980,7 +5980,7 @@ Currently it is tuned to C and Perl syntax." | |||
| 5980 | (and (eq (following-char) ?\-) | 5980 | (and (eq (following-char) ?\-) |
| 5981 | (save-excursion | 5981 | (save-excursion |
| 5982 | (skip-chars-backward " \t\n") | 5982 | (skip-chars-backward " \t\n") |
| 5983 | (memq (preceding-char) '(?\= ?\> ?\< ?\, ?\(, ?\[, ?\{)))) | 5983 | (memq (preceding-char) '(?\= ?\> ?\< ?\, ?\( ?\[ ?\{)))) |
| 5984 | ;; Now check for syntax type | 5984 | ;; Now check for syntax type |
| 5985 | (save-match-data | 5985 | (save-match-data |
| 5986 | (setq found (point)) | 5986 | (setq found (point)) |