emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/phps-mode b4bf3caeb3 118/212: Added TODO note


From: Christian Johansson
Subject: [elpa] externals/phps-mode b4bf3caeb3 118/212: Added TODO note
Date: Wed, 26 Jan 2022 01:51:11 -0500 (EST)

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

    Added TODO note
---
 phps-mode-indent.el | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/phps-mode-indent.el b/phps-mode-indent.el
index 8a6cc8ff27..61ae9aea0b 100644
--- a/phps-mode-indent.el
+++ b/phps-mode-indent.el
@@ -763,6 +763,7 @@
                 (end-of-line)
                 (forward-char -1)
 
+                ;; TODO Need to determine if bracket started on assignment 
line or not
                 (let ((not-found t)
                       (is-assignment nil)
                       (is-string-doc)
@@ -789,21 +790,21 @@
                         (setq
                          not-found
                          nil))
-                       (t
-                        (when (string= match ")")
-                          (setq parenthesis-level (1- parenthesis-level)))
-                        (when (= parenthesis-level 0)
-                          (setq is-assignment (string= match "="))
-                          (setq is-bracket-less-command
-                                (string-match-p
-                                 "\\(echo[\t ]+\\|print[\t ]+\\)"
-                                 match))
-                          (setq not-found nil))
-
-                        (when (string= match "(")
-                          (setq
-                           parenthesis-level
-                           (1+ parenthesis-level)))))))
+                       ((string= match "(")
+                        (setq
+                         parenthesis-level
+                         (1+ parenthesis-level)))
+                       ((string= match ")")
+                        (setq
+                         parenthesis-level
+                         (1- parenthesis-level)))
+                       ((= parenthesis-level 0)
+                        (setq is-assignment (string= match "="))
+                        (setq is-bracket-less-command
+                              (string-match-p
+                               "\\(echo[\t ]+\\|print[\t ]+\\)"
+                               match))
+                        (setq not-found nil)))))
 
                   ;;     $var = <<<EOD
                   ;; OKASDOKASD



reply via email to

[Prev in Thread] Current Thread [Next in Thread]