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

3 files changed, 68 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2297d1c35b5..4136083f193 100644
--- 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 69bcd8985dc..594405716ee 100644
--- 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 881a7a02649..6a8156e329c 100644
--- 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