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

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

[nongnu] elpa/jade-mode b8778ae525 015/128: use builtin for moving point


From: ELPA Syncer
Subject: [nongnu] elpa/jade-mode b8778ae525 015/128: use builtin for moving point to beginning of text
Date: Sat, 29 Jan 2022 08:24:42 -0500 (EST)

branch: elpa/jade-mode
commit b8778ae525a074f7117055e2ec9dd9fbdf6f0fa8
Author: Brian Carlson <brian.m.carlson@gmail.com>
Commit: Brian Carlson <brian.m.carlson@gmail.com>

    use builtin for moving point to beginning of text
---
 sws-mode.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/sws-mode.el b/sws-mode.el
index aadd3e15ce..75d417b4eb 100644
--- a/sws-mode.el
+++ b/sws-mode.el
@@ -22,10 +22,7 @@
 
 (defun sws-point-to-bot ()
   "Moves point to beginning of text"
-  (let ((ci (current-indentation)))
-    (beginning-of-line)
-    (delete-horizontal-space)
-    (indent-to ci)))
+  (beginning-of-line-text))
 
 (defun sws-do-indent-line ()
   "Performs line indentation"
@@ -77,7 +74,7 @@
     (let (first-indent indent-diff)
       (goto-char begin)
       (setq first-indent (current-indentation))
-      (sws-indent-to     
+      (sws-indent-to
        (funcall prog first-indent sws-tab-width))
       (setq indent-diff (- (current-indentation) first-indent))
       ;; move other lines based on movement of first line



reply via email to

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