Changeset 17475 for util

Timestamp:

08/28/07 15:51:22 (15 months ago)

Author:

renormalist

Message:

- cperl-mode: differentiation between hash vs. blocks didn't work - comment out

Files:

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

util/cperl-mode.el

@@ -6914 +6914 @@
   ;; Positions is before ?\{.  Checks whether it starts a block.
   ;; No save-excursion!  This is more a distinguisher of a block/hash ref...
-  (or
-   (and ; perl6: it's never a hash if whitespace before brace
-    (cond (cperl-use-v6))
-    (memq (preceding-char) (append " \t" nil)))
+; ss5: 2007-08-27 seems not to work
+;  (or
+;   (and ; perl6: it's never a hash if whitespace before brace
+;    (cond (cperl-use-v6))
+;    (memq (preceding-char) (append " \t" nil)))
    (progn
      (cperl-backward-to-noncomment (point-min))
@@ -6941 +6942 @@
              (progn ; perl6: "if/elsif/unless/while/until/given/when/for/loop" without parens; just look at beginning of line
                (beginning-of-line)
-               (looking-at "\\s *}?\\s *\\(\\(els\\(e\\s +\\|\\)\\)?if\\|un\\(less\\|til\\)\\|given\\|wh\\(ile\\|en\\)\\|for\\|loop\\)\\>")))))))
+               (looking-at "\\s *}?\\s *\\(\\(els\\(e\\s +\\|\\)\\)?if\\|un\\(less\\|til\\)\\|given\\|wh\\(ile\\|en\\)\\|for\\|loop\\)\\>")))))
+; corresponding to ss5: 2007-08-27 seems not to work
+;)
+)
 
 ;;; What is the difference of (cperl-after-block-p lim t) and (cperl-block-p)?