]> gitweb.michael.orlitzky.com - nagios-mode.git/commitdiff
Fix 9db78f (two commits ago) so that it actually works.
authorMichael Orlitzky <michael@orlitzky.com>
Sat, 21 Aug 2010 03:41:36 +0000 (23:41 -0400)
committerMichael Orlitzky <michael@orlitzky.com>
Sat, 21 Aug 2010 03:41:36 +0000 (23:41 -0400)
nagios-mode.el

index 33a5742dce47478b8105706afbc9fa866e16b676..8482abee94e397159ff728546d5a8d9c39d52d84 100644 (file)
       (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.
       ;; 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)
+         (goto-char (+ (beginning-of-line-pos) indent-column))
       )
     )
   )