branch: elpa/jade-mode
commit 33bad1d74e0e82f80f1ba04f79190458c3be44ee
Merge: 2d8a3013c4 40efeb499a
Author: Brian C <[email protected]>
Commit: Brian C <[email protected]>
Merge pull request #28 from Sterlingg/DedentFix
Backtabbing highlighted text hangs emacs (Jade-mode)
---
sws-mode.el | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/sws-mode.el b/sws-mode.el
index 094211490b..902d1aac1f 100644
--- a/sws-mode.el
+++ b/sws-mode.el
@@ -82,17 +82,19 @@
(defun sws-move-region (begin end prog)
"Moves left is dir is null, otherwise right. prog is '+ or '-"
(save-excursion
- (let (first-indent indent-diff)
+ (let ((first-indent indent-diff)
+ (num-lines-indented (count-lines-region begin end))
+ )
(goto-char begin)
(setq first-indent (current-indentation))
(sws-indent-to
(funcall prog first-indent sws-tab-width))
(setq indent-diff (- (current-indentation) first-indent))
+ (forward-line 1)
;; move other lines based on movement of first line
- (while (< (point) end)
- (forward-line 1)
- (if (< (point) end)
- (sws-indent-to (+ (current-indentation) indent-diff)))))))
+ (dotimes (i (- num-lines-indented 1))
+ (sws-indent-to (+ (current-indentation) indent-diff))
+ (forward-line 1)))))
(defun sws-indent-region (begin end)
"Indents the selected region"
