a guest Oct 21st, 2019 69 Never
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)
- (move-to-column endcol 'coerce)
- (defun cavd-upcase-rectangle (start end)
- "Upcase rectangle contents on each line."
- (progn (barf-if-buffer-read-only)
- (apply-on-rectangle 'cavd-upcase-rectangle-line start end nil)))
RAW Paste Data