Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;; 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)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement