Permalink
Browse files

use builtin for moving point to beginning of text

  • Loading branch information...
1 parent 684a5c0 commit b8778ae525a074f7117055e2ec9dd9fbdf6f0fa8 @brianc brianc committed Apr 10, 2011
Showing with 2 additions and 5 deletions.
  1. +2 −5 sws-mode.el
View
7 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

0 comments on commit b8778ae

Please sign in to comment.