diff options
| author | Sam Steingold <sds@gnu.org> | 2014-07-09 10:51:52 -0400 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2014-07-09 10:51:52 -0400 |
| commit | 140ea213dbb3760cbd16304c102e8d154a75a239 (patch) | |
| tree | 321f232ecdb84c0e3732bd6823b67f7bb5d33cae /lisp | |
| parent | 205ededbb23f8f1b182d9ae7c01d89b6e67e5736 (diff) | |
| download | emacs-140ea213dbb3760cbd16304c102e8d154a75a239.tar.gz | |
Treat the perl keyword `constant' like `bless', `return' &c
* lisp/progmodes/cperl-mode.el (cperl-block-p): Tread the perl keyword
`constant' like `bless', `return' &c
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ce4c371aeed..d14a3a8584b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-07-09 Sam Steingold <sds@gnu.org> + + * progmodes/cperl-mode.el (cperl-block-p): Treat the perl keyword + `constant' like `bless', `return' &c + 2014-07-09 Stefan Monnier <monnier@iro.umontreal.ca> * rect.el (apply-on-rectangle): Check forward-line really moved to the diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index c4f2b9ffe51..cd60475974c 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -4828,9 +4828,9 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', (and (memq (char-syntax (preceding-char)) '(?w ?_)) (progn (backward-sexp) - ;; sub {BLK}, print {BLK} $data, but NOT `bless', `return', `tr' + ;; sub {BLK}, print {BLK} $data, but NOT `bless', `return', `tr', `constant' (or (and (looking-at "[a-zA-Z0-9_:]+[ \t\n\f]*[{#]") ; Method call syntax - (not (looking-at "\\(bless\\|return\\|q[wqrx]?\\|tr\\|[smy]\\)\\>"))) + (not (looking-at "\\(bless\\|return\\|q[wqrx]?\\|tr\\|[smy]\\|constant\\)\\>"))) ;; sub bless::foo {} (progn (cperl-backward-to-noncomment (point-min)) |