[nongnu] elpa/raku-mode c2105da136 131/253: Better code formatting

[ELPA Syncer]

branch: elpa/raku-mode
commit c2105da136e12ce85f5c2ad7e4fc24cd5521a141
Author: Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>
Commit: Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>

    Better code formatting
---
 perl6-font-lock.el | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index f1fd380d80..12acf7c5c3 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -385,24 +385,25 @@ OPEN-ANGLES is the opening delimiter (e.g. \"«\" or 
\"<<\")."
            (close-angle (matching-paren open-angle))
            (quote-beg (- (point) angle-length))
            (line-beg (point-at-bol)))
-      (unless (or (looking-at "[-=]")
-                  (looking-back (rx-to-string `(and (char "+~=!") 
,open-angle)) 2))
-        (when (or (or (not (looking-at "[\s\n]"))
-                      (not (looking-back (rx-to-string `(and (char "\s\n") 
,open-angle)) 2)))
-                  (looking-at (rx-to-string `(and ,open-angle (1+ (char 
"\s\n")) ,close-angle)))
-                  (looking-back (rx-to-string `(and "=" (1+ space) 
,open-angle)) line-beg)
-                  (looking-back (rx-to-string `(and "\(" (0+ space) 
,open-angle)) line-beg)
-                  (or (looking-at "\s*$")
-                      (looking-back (rx-to-string `(and line-start (0+ space) 
,open-angle)) line-beg))
-                  (looking-back (rx-to-string `(and symbol-start (or "enum" 
"for" "any" "all" "none")
-                                          (0+ space) (opt "\)") (0+ space) 
,open-angle)) line-beg))
+      (when
+          (and (not (or (looking-at "[-=]")
+                        (looking-back (rx-to-string `(and (char "+~=!") 
,open-angle)) 2)))
+               (or (not (looking-at "[\s\n]"))
+                   (not (looking-back (rx-to-string `(and (char "\s\n") 
,open-angle)) 2))
+                   (looking-at (rx-to-string `(and ,open-angle (1+ (char 
"\s\n")) ,close-angle)))
+                   (looking-back (rx-to-string `(and "=" (1+ space) 
,open-angle)) line-beg)
+                   (looking-back (rx-to-string `(and "\(" (0+ space) 
,open-angle)) line-beg)
+                   (looking-at "\s*$")
+                   (looking-back (rx-to-string `(and line-start (0+ space) 
,open-angle)) line-beg)
+                   (looking-back (rx-to-string `(and symbol-start (or "enum" 
"for" "any" "all" "none")
+                                                     (0+ space) (opt "\)") (0+ 
space) ,open-angle)) line-beg)))
           (put-text-property quote-beg (1+ quote-beg)
                              'syntax-table (string-to-syntax "|"))
           (perl6-forward-brackets open-angle close-angle angle-length)
           (let ((quote-end (- (point) 1)))
             (put-text-property quote-beg quote-end 'syntax-multiline t)
             (put-text-property quote-end (1+ quote-end)
-                               'syntax-table (string-to-syntax "|"))))))))
+                               'syntax-table (string-to-syntax "|")))))))
 
 (defun perl6-syntax-propertize-backslash ()
   (when (eq (perl6-syntax-context) nil)