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)