[elpa] externals/phps-mode 777c88da24 12/17: Fixed byte-compilation warning

[Christian Johansson]

branch: externals/phps-mode
commit 777c88da24ccbbced7cd56263e8aac30453765f2
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Fixed byte-compilation warning
---
 phps-mode-lexer.el | 53 ++++++++++++++++++++++++++---------------------------
 1 file changed, 26 insertions(+), 27 deletions(-)

diff --git a/phps-mode-lexer.el b/phps-mode-lexer.el
index 5d79de85fc..3abaa189f7 100644
--- a/phps-mode-lexer.el
+++ b/phps-mode-lexer.el
@@ -2043,33 +2043,32 @@
 
         (while (< lambda-i lambda-length)
           (let ((lambd (nth lambda-i lambdas)))
-            (let ((old-match-length phps-mode-lexer--match-length))
-
-              (let ((lambda-result
-                     (funcall (nth 0 lambd))))
-                (when lambda-result
-                  (let ((match-end (match-end 0))
-                        (match-beginning (match-beginning 0)))
-                    (let ((matching-length (- match-end match-beginning)))
-                      (when (> matching-length 0)
-                        (when (or
-                               (not phps-mode-lexer--match-length)
-                               (> matching-length 
phps-mode-lexer--match-length))
-                          (setq
-                           phps-mode-lexer--match-length matching-length)
-                          (setq
-                           phps-mode-lexer--match-body (nth 1 lambd))
-                          (setq
-                           phps-mode-lexer--match-data (match-data))
-                          ;; Debug new matches
-                          (phps-mode-debug-message
-                           (message
-                            "Found new match (%d) %s"
-                            phps-mode-lexer--match-length
-                            phps-mode-lexer--match-body))))))))
-
-              (when (fboundp 'thread-yield)
-                (thread-yield))))
+
+            (let ((lambda-result
+                   (funcall (nth 0 lambd))))
+              (when lambda-result
+                (let ((match-end (match-end 0))
+                      (match-beginning (match-beginning 0)))
+                  (let ((matching-length (- match-end match-beginning)))
+                    (when (> matching-length 0)
+                      (when (or
+                             (not phps-mode-lexer--match-length)
+                             (> matching-length phps-mode-lexer--match-length))
+                        (setq
+                         phps-mode-lexer--match-length matching-length)
+                        (setq
+                         phps-mode-lexer--match-body (nth 1 lambd))
+                        (setq
+                         phps-mode-lexer--match-data (match-data))
+                        ;; Debug new matches
+                        (phps-mode-debug-message
+                         (message
+                          "Found new match (%d) %s"
+                          phps-mode-lexer--match-length
+                          phps-mode-lexer--match-body))))))))
+
+            (when (fboundp 'thread-yield)
+              (thread-yield)))
           (setq lambda-i (1+ lambda-i)))))
 
     ;; Did we find a match?