@@ 462,13 462,6 @@ The default argument is equivalent to 2 (just exchange point and mark)."
(goto-char new-point)
nil))))
-;;;; Rectangle hax.
-
-(defun rgr-fill-rectangle (start end)
- "Replace the rectangle with the last char of the command typed."
- (interactive "r")
- (string-rectangle start end (string last-command-event)))
-
;;;; Other.
(defun rgr-summarize-tasks ()
@@ 565,9 558,6 @@ M-x buffer-menu)."
(global-set-key "\M-gc" 'goto-char)
(global-set-key "\M-g\M-s" 'rgr-view-sequence-at-point)
(global-set-key "\M-gs" 'rgr-view-sequence-at-point)
- ;; Some rectangle hackery.
- (global-set-key "\C-xr " 'rgr-fill-rectangle)
- (global-set-key "\C-xr*" 'rgr-fill-rectangle)
;; Task counting. [Could be in text-mode-map. -- rgr, 16-Dec-11.]
(global-set-key "\C-ct" 'rgr-summarize-tasks)
;; I keep typing "insert" by accident, and then overwrite stuff by accident.