Changeset 16577 for util

Timestamp:

05/31/07 10:17:20 (18 months ago)

Author:

renormalist

Message:

- cperl-mode.el: is reparsed trait + minor comment fixes

Files:

• util/cperl-mode.el (modified) (5 diffs)

util/cperl-mode.el

@@ -6553 +6553 @@
                                                          ;; XXXX: what if u is delim?
                                                          "\\|"
-                                                         "[)^|$.*?+]"
+                                                         "[)^|$.*?+]" ;; perl6: HIER SPECIAL VARIABLES??
                                                          "\\|"
                                                          "{[0-9]+}"
@@ -6982 +6982 @@
                    (save-excursion ; perl6: returns Type {} / is rw {} / is cached {} / ...
                      (forward-sexp -2)
-                     (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\\)\\>")))
+                     (looking-at "\\(returns\\|of\\|is\\|does[ \t]\\(rw\\|readonly\\|ref\\|copy\\|context\\|cached\\|signature\\|parsed\\|reparsed\\|inline\\|tighter\\|looser\\|equiv\\|export\\|assoc\\|extended\\|deep\\|also\\)\\|will[ \t]do\\)\\>")))
                 ;; What preceeds is not word...  XXXX Last statement in sub???
                 (cperl-after-expr-p lim))
@@ -7881 +7881 @@
               "Object\\|Grammar\\|List\\|Lazy\\|Eager\\|"
               "Real\\|Scalar\\|int8\\|Socket\\|"
-              "rw\\|readonly\\|ref\\|copy\\|context\\|cached\\|signature\\|parsed\\|inline\\|"
+              "rw\\|readonly\\|ref\\|copy\\|context\\|cached\\|signature\\|parsed\\|reparsed\\|inline\\|"
               "tighter\\|looser\\|equiv\\|export\\|extended\\|deep\\|also"
               "\\)\\>") 2 'font-lock-type-face)
@@ -8083 +8083 @@
                    cperl-array-face)
                  t)                   ; arrays and hashes
-                                ("\\(\\([$@]+\\)[a-zA-Z_:.^*+?=!][a-zA-Z0-9_:]*\\)\\([[{]\\)" ; perl6: Twigils %.name %:name %^name, %*name, %+name, %?name, %=name, %!name
+                                ("\\(\\([$@]+\\)[a-zA-Z_:.^*+?=!][a-zA-Z0-9_:]*\\)\\([[{]\\)" ; perl6: Twigils $.name $:name $^name, $*name, $+name, $?name, $=name, $!name
                                  1
                                  (if (= (- (match-end 2) (match-beginning 2)) 1)
@@ -8095 +8095 @@
               (setq t-font-lock-keywords-1
                     (append t-font-lock-keywords-1
-                            (list '("[$*][{:.^*+?=!]?\\(\\sw+\\)" 1 ; perl6: Twigils %.name %:name %^name, %*name, %+name, %?name, %=name, %!name
+                            (list '("[$*][{:.^*+?=!]?\\(\\sw+\\)" 1 ; perl6: Twigils $.name $:name $^name, $*name, $+name, $?name, $=name, $!name
                                     font-lock-variable-name-face)))))
           (setq perl-font-lock-keywords-1