Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun cavd-upcase-rectangle-line (startcol endcol fill)
- (when (= (move-to-column startcol (if fill t 'coerce)) startcol)
- (upcase-region
- (point)
- (progn
- (move-to-column endcol 'coerce)
- (point)))))
- (defun cavd-upcase-rectangle (start end)
- "Upcase rectangle contents on each line."
- (interactive
- (progn (barf-if-buffer-read-only)
- (list
- (region-beginning)
- (region-end))))
- (goto-char
- (apply-on-rectangle 'cavd-upcase-rectangle-line start end nil)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement