)
)
-(defun pos-offset()
+(defun point-offset()
;; How far are we from the beginning of the line?
(- (point) (beginning-of-line-pos))
)
;; 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")
)
)
(defun nagios-indent-to(indent-column)
"Indent the current line to column indent-column."
-
;; Store the point in orig-pos.
(let ((orig-point (point)))