X-Git-Url: http://gitweb.michael.orlitzky.com/?p=nagios-mode.git;a=blobdiff_plain;f=nagios-mode.el;h=8482abee94e397159ff728546d5a8d9c39d52d84;hp=33a5742dce47478b8105706afbc9fa866e16b676;hb=a55f0340c8c83de79772f262ddad72e38b041a79;hpb=5fa275977e46b64c6336523696558049a8a7157d diff --git a/nagios-mode.el b/nagios-mode.el index 33a5742..8482abe 100644 --- a/nagios-mode.el +++ b/nagios-mode.el @@ -93,9 +93,11 @@ (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. @@ -106,7 +108,7 @@ ;; 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)) ) ) )