From 09c0132341493612361442371f4e1019883345c7 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sun, 20 Sep 2009 18:22:37 +0000 Subject: [PATCH] (ctl-x-r-map): Define the keys here instead of using autoload. --- lisp/ChangeLog | 4 ++++ lisp/ldefs-boot.el | 18 ------------------ lisp/register.el | 26 +++++++++++++------------- 3 files changed, 17 insertions(+), 31 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 16eea2af93e..9efe3f36197 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-09-20 Dan Nicolaescu + + * register.el (ctl-x-r-map): Define the keys here instead of using autoload. + 2009-09-20 Thierry Volpiatto * bookmark.el (bookmark-write-file): Avoid calling `pp' with large diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 6d5126ee150..f2dea83b624 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -23228,24 +23228,6 @@ This means the number of non-shy regexp grouping constructs \(fn REGEXP)" nil nil) -;;;*** - -;;;### (autoloads nil "register" "register.el" (18961 38375)) -;;; Generated autoloads from register.el - (define-key ctl-x-r-map "\C-@" 'point-to-register) - (define-key ctl-x-r-map [?\C-\ ] 'point-to-register) - (define-key ctl-x-r-map " " 'point-to-register) - (define-key ctl-x-r-map "j" 'jump-to-register) - (define-key ctl-x-r-map "s" 'copy-to-register) - (define-key ctl-x-r-map "x" 'copy-to-register) - (define-key ctl-x-r-map "i" 'insert-register) - (define-key ctl-x-r-map "g" 'insert-register) - (define-key ctl-x-r-map "r" 'copy-rectangle-to-register) - (define-key ctl-x-r-map "n" 'number-to-register) - (define-key ctl-x-r-map "+" 'increment-register) - (define-key ctl-x-r-map "w" 'window-configuration-to-register) - (define-key ctl-x-r-map "f" 'frame-configuration-to-register) - ;;;*** ;;;### (autoloads (remember-diary-extract-entries remember-clipboard diff --git a/lisp/register.el b/lisp/register.el index a5e1cff2da4..4144bba7d0b 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -30,19 +30,19 @@ ;;; 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) +(define-key ctl-x-r-map "\C-@" 'point-to-register) +(define-key ctl-x-r-map [?\C-\ ] 'point-to-register) +(define-key ctl-x-r-map " " 'point-to-register) +(define-key ctl-x-r-map "j" 'jump-to-register) +(define-key ctl-x-r-map "s" 'copy-to-register) +(define-key ctl-x-r-map "x" 'copy-to-register) +(define-key ctl-x-r-map "i" 'insert-register) +(define-key ctl-x-r-map "g" 'insert-register) +(define-key ctl-x-r-map "r" 'copy-rectangle-to-register) +(define-key ctl-x-r-map "n" 'number-to-register) +(define-key ctl-x-r-map "+" 'increment-register) +(define-key ctl-x-r-map "w" 'window-configuration-to-register) +(define-key ctl-x-r-map "f" 'frame-configuration-to-register) ;;; Code: -- 2.39.2