[Emacs-diffs] trunk r117503: Treat the perl keyword `constant' like `bless', `return' &c

[Sam Steingold]

------------------------------------------------------------
revno: 117503
revision-id: address@hidden
parent: address@hidden
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Wed 2014-07-09 10:51:52 -0400
message:
  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
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/cperl-mode.el   
cperlmode.el-20091113204419-o5vbwnq5f7feedwu-1253

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-09 02:20:21 +0000
+++ b/lisp/ChangeLog    2014-07-09 14:51:52 +0000
@@ -1,3 +1,8 @@
+2014-07-09  Sam Steingold  <address@hidden>
+
+       * progmodes/cperl-mode.el (cperl-block-p): Treat the perl keyword
+       `constant' like `bless', `return' &c
+
 2014-07-09  Stefan Monnier  <address@hidden>
 
        * rect.el (apply-on-rectangle): Check forward-line really moved to the

=== modified file 'lisp/progmodes/cperl-mode.el'
--- a/lisp/progmodes/cperl-mode.el      2014-01-16 06:24:06 +0000
+++ b/lisp/progmodes/cperl-mode.el      2014-07-09 14:51:52 +0000
@@ -4828,9 +4828,9 @@
       (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))