branch: elpa/jade-mode
commit b8778ae525a074f7117055e2ec9dd9fbdf6f0fa8
Author: Brian Carlson <[email protected]>
Commit: Brian Carlson <[email protected]>
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
