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

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

[elpa] externals/phps-mode 50d006852c 129/212: Fixed issue with indent b


From: Christian Johansson
Subject: [elpa] externals/phps-mode 50d006852c 129/212: Fixed issue with indent being dependent on position of point on current line
Date: Wed, 26 Jan 2022 01:51:12 -0500 (EST)

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

    Fixed issue with indent being dependent on position of point on current line
---
 phps-mode-indent.el           | 2 ++
 test/phps-mode-test-indent.el | 7 +++++++
 2 files changed, 9 insertions(+)

diff --git a/phps-mode-indent.el b/phps-mode-indent.el
index 5d7cfdc58e..7bf729de48 100644
--- a/phps-mode-indent.el
+++ b/phps-mode-indent.el
@@ -143,6 +143,8 @@
 
           (when initial-point
             (goto-char point))
+          (move-beginning-of-line nil)
+          (setq point (point))
 
           ;; Current line is line at initial point
           (setq
diff --git a/test/phps-mode-test-indent.el b/test/phps-mode-test-indent.el
index 3f0ace71da..de45caa306 100644
--- a/test/phps-mode-test-indent.el
+++ b/test/phps-mode-test-indent.el
@@ -22,6 +22,13 @@
   (goto-char (point-min))
   (phps-mode-indent-line)
   (while (search-forward "\n" nil t nil)
+    ;; Go to random point on line
+    (let ((line-min-position (line-beginning-position))
+          (line-max-position (line-end-position)))
+      (goto-char
+       (+
+        line-min-position
+        (random (- line-max-position line-min-position)))))
     (phps-mode-indent-line)))
 
 (defun phps-mode-test-indent--should-equal (string name)



reply via email to

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