# HG changeset patch # User Juri Linkov # Date 1214854797 0 # Node ID 40356b7a4808897f3a90b65eeca431edf9509efa # Parent 4dbdccc0a0289a22a332b7f6d04eb3c777c96a20 Bind global keys to ctl-x-r-map in autoload cookies. diff -r 4dbdccc0a028 -r 40356b7a4808 lisp/register.el --- a/lisp/register.el Mon Jun 30 19:39:22 2008 +0000 +++ b/lisp/register.el Mon Jun 30 19:39:57 2008 +0000 @@ -28,6 +28,22 @@ ;; pieces of buffer state to named variables. The entry points are ;; documented in the Emacs user's manual. +;;; Global key bindings + +;;;###autoload (define-key ctl-x-r-map "\C-@" 'point-to-register) +;;;###autoload (define-key ctl-x-r-map [?\C-\ ] 'point-to-register) +;;;###autoload (define-key ctl-x-r-map " " 'point-to-register) +;;;###autoload (define-key ctl-x-r-map "j" 'jump-to-register) +;;;###autoload (define-key ctl-x-r-map "s" 'copy-to-register) +;;;###autoload (define-key ctl-x-r-map "x" 'copy-to-register) +;;;###autoload (define-key ctl-x-r-map "i" 'insert-register) +;;;###autoload (define-key ctl-x-r-map "g" 'insert-register) +;;;###autoload (define-key ctl-x-r-map "r" 'copy-rectangle-to-register) +;;;###autoload (define-key ctl-x-r-map "n" 'number-to-register) +;;;###autoload (define-key ctl-x-r-map "+" 'increment-register) +;;;###autoload (define-key ctl-x-r-map "w" 'window-configuration-to-register) +;;;###autoload (define-key ctl-x-r-map "f" 'frame-configuration-to-register) + ;;; Code: (defvar register-alist nil