Permalink
Browse files

require whitespace-mode

  • Loading branch information...
1 parent 63f6e54 commit 684a5c0fba5539f3bf5ea3d93ddaae42eaac5712 @brianc brianc committed Apr 10, 2011
Showing with 3 additions and 1 deletion.
  1. +3 −1 sws-mode.el
View
@@ -49,6 +49,7 @@
(defun sws-at-bol-p ()
"If point is at beginning of line"
+ (interactive)
(= (point) (point-at-bol)))
(defun sws-at-bot-p ()
@@ -98,6 +99,7 @@
(sws-move-region (region-beginning) (region-end) '-)
(if (sws-at-bol-p)
(progn
+ (message "at mother fucking bol")
(delete-horizontal-space)
(indent-to (sws-max-indent)))
(let ((ci (current-indentation)))
@@ -127,7 +129,7 @@
;; keymap
(use-local-map sws-mode-map)
-
+ (whitespace-mode)
(setq major-mode 'sws-mode))
(provide 'sws-mode)

0 comments on commit 684a5c0

Please sign in to comment.