dwchapin

;; elisp functions for underlining things in text mode
;;
;; dwchapin 27-Nov-07

(defun underline-previous-line (char)
  (interactive)
  (forward-line -1)
  (beginning-of-line)
  (setq beg (point))
  (end-of-line)
  (setq count (- (point) beg ))
  (beginning-of-line)
  (forward-line 1)
  (dotimes (i count)
    (insert char))
  (newline))

(defun underline-previous-line-with-dash ()
  (interactive)
  (underline-previous-line "-"))

(defun underline-previous-line-with-equals ()
  (interactive)
  (underline-previous-line "="))


(global-set-key [(control ?-)] 'underline-previous-line-with-dash)
(global-set-key [(control ?=)] 'underline-previous-line-with-equals)