Mercurial > emacs
comparison lisp/rect.el @ 96440:4dbdccc0a028
Bind global keys to ctl-x-r-map in autoload cookies.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Mon, 30 Jun 2008 19:39:22 +0000 |
parents | ee5932bf781d |
children | 225286546090 |
comparison
equal
deleted
inserted
replaced
96439:5fd9456fa70d | 96440:4dbdccc0a028 |
---|---|
29 ;; ### NOTE: this file has been almost completely rewritten by Didier Verna | 29 ;; ### NOTE: this file has been almost completely rewritten by Didier Verna |
30 ;; <didier@xemacs.org> in July 1999. The purpose of this rewrite is to be less | 30 ;; <didier@xemacs.org> in July 1999. The purpose of this rewrite is to be less |
31 ;; intrusive and fill lines with whitespaces only when needed. A few functions | 31 ;; intrusive and fill lines with whitespaces only when needed. A few functions |
32 ;; are untouched though, as noted above their definition. | 32 ;; are untouched though, as noted above their definition. |
33 | 33 |
34 ;;; Global key bindings | |
35 | |
36 ;;;###autoload (define-key ctl-x-r-map "c" 'clear-rectangle) | |
37 ;;;###autoload (define-key ctl-x-r-map "k" 'kill-rectangle) | |
38 ;;;###autoload (define-key ctl-x-r-map "d" 'delete-rectangle) | |
39 ;;;###autoload (define-key ctl-x-r-map "y" 'yank-rectangle) | |
40 ;;;###autoload (define-key ctl-x-r-map "o" 'open-rectangle) | |
41 ;;;###autoload (define-key ctl-x-r-map "t" 'string-rectangle) | |
34 | 42 |
35 ;;; Code: | 43 ;;; Code: |
36 | 44 |
37 ;;;###autoload | 45 ;;;###autoload |
38 (defun move-to-column-force (column &optional flag) | 46 (defun move-to-column-force (column &optional flag) |