Bind global keys to ctl-x-r-map in autoload cookies.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2297d1c35b5f024918c7b75ee0531cb4adae19a4..4136083f19383bddc2131add3a7bb4c92e8426cd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,47 @@
+2008-06-30  Juri Linkov  <juri@jurta.org>
+
+       * faces.el (face-name-history): New variable.
+       (make-face, make-empty-face): Replace interactive spec "S"
+       with `read-from-minibuffer' where `read' arg is t and
+       `hist' arg is `face-name-history'.
+       (read-face-name): Set `hist' arg of `completing-read-multiple'
+       to `face-name-history'.
+       (list-faces-display): Use `read-regexp' instead of `read-string'
+       to read regexp.
+
+       * hi-lock.el (hi-lock-regexp-history): Make it an obsolete alias
+       to `regexp-history'.
+       (hi-lock-face-history): Rename to `hi-lock-face-defaults' and
+       make it an obsolete alias to it.
+       (hi-lock-face-defaults): New variable renamed from
+       `hi-lock-face-history'.
+       (hi-lock-line-face-buffer, hi-lock-face-buffer)
+       (hi-lock-face-phrase-buffer): Use `read-regexp' instead of
+       `read-from-minibuffer'.  Doc fix.
+       (hi-lock-read-face-name): Replace `hi-lock-face-history' with
+       `hi-lock-face-defaults'.  Remove `mapcar (lambda (f) (cons f f))'.
+       Set `hist' arg of `completing-read' to `face-name-history'.
+       Put a list of default faces to `default' arg instead of `hist' arg.
+
+       * bindings.el (abbrev-map, narrow-map): New variables.
+       Bind `C-x a' to `abbrev-map' and `C-x n' to `narrow-map'.
+       Rebind related commands to these new maps.
+       (ctl-x-r-map): New variable for rectangle, register and bookmark
+       keys.  Move rectangle keybindings to rect.el and register
+       keybindings to register.el.
+       (next-buffer, previous-buffer): Remove C-x prefix and move
+       keybindings to ctl-x-map.
+
+       * bookmark.el: Rebind three global `C-x r' keys "b", "m", "l"
+       to the new map `ctl-x-r-map'  in autoload cookies.
+
+       * expand.el: Rebind two global `C-x a' keys "n", "p"
+       to the new map `abbrev-map' in autoload cookies.
+
+       * rect.el: Bind global keys to ctl-x-r-map in autoload cookies.
+
+       * register.el: Bind global keys to ctl-x-r-map in autoload cookies.
+
 2008-06-30  Miles Bader  <miles@gnu.org>
 
        * net/rcirc.el (rcirc-markup-attributes): Don't skip a character

diff --git a/lisp/rect.el b/lisp/rect.el
index 69bcd8985dc26624dc6edd67f7212bf63f8b8c04..594405716ee830cf9a0f770e8f9fe6db21123aae 100644 (file)
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -31,6 +31,14 @@
 ;; intrusive and fill lines with whitespaces only when needed. A few functions
 ;; are untouched though, as noted above their definition.
 
+;;; Global key bindings
+
+;;;###autoload (define-key ctl-x-r-map "c" 'clear-rectangle)
+;;;###autoload (define-key ctl-x-r-map "k" 'kill-rectangle)
+;;;###autoload (define-key ctl-x-r-map "d" 'delete-rectangle)
+;;;###autoload (define-key ctl-x-r-map "y" 'yank-rectangle)
+;;;###autoload (define-key ctl-x-r-map "o" 'open-rectangle)
+;;;###autoload (define-key ctl-x-r-map "t" 'string-rectangle)
 
 ;;; Code:
 

diff --git a/lisp/register.el b/lisp/register.el
index 881a7a026498d2920f4910c12db953d5e64b3b08..6a8156e329cb5e0c975ace0d43ec86de4fed246d 100644 (file)
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -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