X-Git-Url: http://gitweb.michael.orlitzky.com/?p=nagios-mode.git;a=blobdiff_plain;f=nagios-mode.el;h=8482abee94e397159ff728546d5a8d9c39d52d84;hp=90cd09f779c22f0e09b6f00709187a3edc223479;hb=a55f0340c8c83de79772f262ddad72e38b041a79;hpb=ae9271f002adeb7337b826aa0e44b39d84e1a938

diff --git a/nagios-mode.el b/nagios-mode.el
index 90cd09f..8482abe 100644
--- a/nagios-mode.el
+++ b/nagios-mode.el
@@ -93,15 +93,23 @@
       (beginning-of-line)
 
       ;; Now insert indent-column spaces.
-      (while (< 0 indent-column)
-	(insert " ")
-	(setq indent-column (- indent-column 1)))
+      (let ((indent-remaining indent-column))
+	(while (< 0 indent-remaining)
+	  (insert " ")
+	  (setq indent-remaining (- indent-remaining 1)))
+      )
 
       ;; The text on the current line just moved left/right some amount;
       ;; call it text-delta. We want to move the point that same distance.
       (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 (+ (beginning-of-line-pos) indent-column))
+      )
     )
   )
 )
@@ -152,12 +160,12 @@
 
 (defun nagios-calculate-indent()
   "Calculate the level of indentation."
-  ;; We're either inside a block, or we aren't.
 
+  ;; We're either inside a block, or we aren't.
   ;; Initialize the indent variable to either nagios-indent-level
   ;; or 0 depending on whether or not we're in a block.
   (let ((indent (if (nagios-in-block)
-		    (setq indent nagios-indent-level)
+		    nagios-indent-level
 		    0)
 	)
        )