From a55f0340c8c83de79772f262ddad72e38b041a79 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Fri, 20 Aug 2010 23:41:36 -0400 Subject: [PATCH] Fix 9db78f (two commits ago) so that it actually works. --- nagios-mode.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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)) ) ) ) -- 2.44.2