Changeset 16549 for util

Show
Ignore:
Timestamp:
05/28/07 20:57:44 (18 months ago)
Author:
renormalist
Message:

- is extended|deep|also traits

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • util/cperl-mode.el

    r16535 r16549  
    69756975                                 (forward-sexp -1) 
    69766976                                 (looking-at "\\(coro\\|sub\\|method\\|submethod\\)[ \t\n\f#]")))))) ; perl6 
    6977                    (save-excursion ; perl6: return Type {} / is rw {} / is cached {} / ... 
     6977                   (save-excursion ; perl6: returns Type {} / is rw {} / is cached {} / ... 
    69786978                     (forward-sexp -2) 
    6979                      (looking-at "\\(returns\\|of\\|is\\|does[ \t]\\(rw\\|readonly\\|ref\\|copy\\|context\\|cached\\|signature\\|parsed\\|inline\\|tighter\\|looser\\|equiv\\|export\\|assoc\\)\\|will[ \t]do\\)\\>"))) 
     6979                     (looking-at "\\(returns\\|of\\|is\\|does[ \t]\\(rw\\|readonly\\|ref\\|copy\\|context\\|cached\\|signature\\|parsed\\|inline\\|tighter\\|looser\\|equiv\\|export\\|assoc\\|extended\\|deep\\|also\\)\\|will[ \t]do\\)\\>"))) 
    69806980                ;; What preceeds is not word...  XXXX Last statement in sub??? 
    69816981                (cperl-after-expr-p lim)) 
    … …  
    78777877              "Real\\|Scalar\\|int8\\|Socket\\|" 
    78787878              "rw\\|readonly\\|ref\\|copy\\|context\\|cached\\|signature\\|parsed\\|inline\\|" 
    7879               "tighter\\|looser\\|equiv\\|export" 
     7879              "tighter\\|looser\\|equiv\\|export\\|extended\\|deep\\|also" 
    78807880              "\\)\\>") 2 'font-lock-type-face) 
    78817881            ;; In what follows we use `other' style