X-Git-Url: http://gitweb.michael.orlitzky.com/?p=nagios-mode.git;a=blobdiff_plain;f=nagios-mode.el;h=90cd09f779c22f0e09b6f00709187a3edc223479;hp=5745f10482fb7334e1d54f4aaa11ee6634b940c3;hb=ae9271f002adeb7337b826aa0e44b39d84e1a938;hpb=a515f52d47af90f1db1cb3b01a968027154f962c diff --git a/nagios-mode.el b/nagios-mode.el index 5745f10..90cd09f 100644 --- a/nagios-mode.el +++ b/nagios-mode.el @@ -36,6 +36,7 @@ (defun nagios-indent-line(&optional flag) "Indents a line, taking nesting into account." + (interactive) (nagios-indent-to (nagios-calculate-indent)) ) @@ -58,7 +59,7 @@ ) ) -(defun pos-offset() +(defun point-offset() ;; How far are we from the beginning of the line? (- (point) (beginning-of-line-pos)) ) @@ -67,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") ) ) @@ -78,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)))