diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-08-16 23:20:21 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-08-16 23:20:21 +0000 |
| commit | 7a55c78b36ce856c2387c59a934097c99d7b6e97 (patch) | |
| tree | bb26716c76c56a002f7f6df069abad3ba5a07078 /lisp/progmodes/cperl-mode.el | |
| parent | 8c777c8de1a3270d3053235491f51a5cf8e6955b (diff) | |
| download | emacs-7a55c78b36ce856c2387c59a934097c99d7b6e97.tar.gz | |
* progmodes/cperl-mode.el (cperl-electric-paren): Don't expand
abbrev (Bug#3943).
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index a6f322145f5..d2b3c5d3791 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -2154,8 +2154,9 @@ See `cperl-electric-parens'." ;;(not (save-excursion (search-backward "#" beg t))) (if (eq last-command-event ?<) (progn - (and abbrev-mode ; later it is too late, may be after `for' - (expand-abbrev)) + ;; This code is too electric, see Bug#3943. + ;; (and abbrev-mode ; later it is too late, may be after `for' + ;; (expand-abbrev)) (cperl-after-expr-p nil "{;(,:=")) 1)) (progn |