X-Git-Url: http://gitweb.michael.orlitzky.com/?p=nagios-mode.git;a=blobdiff_plain;f=nagios-mode.el;h=61cf412b64dba9745273b1b06efab7e626ab1ac4;hp=3e869461782acc820a132be3b7446bbf7b428072;hb=9db78fde3b4a50cf4aa3aa207c157f74118dbef1;hpb=a752ddc739d752cd88c24d0498d6ed2c3383bdb8

diff --git a/nagios-mode.el b/nagios-mode.el
index 3e86946..61cf412 100644
--- a/nagios-mode.el
+++ b/nagios-mode.el
@@ -68,7 +68,8 @@
   ;; How far is the first character on this line
   ;; from the beginning of the line?
   (save-excursion
-    (+ (pos-offset) (skip-chars-forward " \t"))
+    (beginning-of-line)
+    (skip-chars-forward " \t")
   )
 )
 
@@ -79,7 +80,6 @@
 
 (defun nagios-indent-to(indent-column)
   "Indent the current line to column indent-column."
-
   ;; Store the point in orig-pos.
   (let ((orig-point (point)))
 
@@ -102,6 +102,12 @@
       (let ((text-delta (- (first-char-offset) orig-first-char-offset)))
 	(goto-char (+ orig-point text-delta))
       )
+
+      ;; The point should never wind up to the left of indent-column, so
+      ;; if it's there, move it over to indent-column.
+      (if (< (point-offset) indent-column)
+	  (goto-char indent-column)
+      )
     )
   )
 )