comparison lisp/register.el @ 96441:40356b7a4808

Bind global keys to ctl-x-r-map in autoload cookies.
author Juri Linkov <juri@jurta.org>
date Mon, 30 Jun 2008 19:39:57 +0000
parents ee5932bf781d
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
96440:4dbdccc0a028 96441:40356b7a4808
25 25
26 ;; This package of functions emulates and somewhat extends the venerable 26 ;; This package of functions emulates and somewhat extends the venerable
27 ;; TECO's `register' feature, which permits you to save various useful 27 ;; TECO's `register' feature, which permits you to save various useful
28 ;; pieces of buffer state to named variables. The entry points are 28 ;; pieces of buffer state to named variables. The entry points are
29 ;; documented in the Emacs user's manual. 29 ;; documented in the Emacs user's manual.
30
31 ;;; Global key bindings
32
33 ;;;###autoload (define-key ctl-x-r-map "\C-@" 'point-to-register)
34 ;;;###autoload (define-key ctl-x-r-map [?\C-\ ] 'point-to-register)
35 ;;;###autoload (define-key ctl-x-r-map " " 'point-to-register)
36 ;;;###autoload (define-key ctl-x-r-map "j" 'jump-to-register)
37 ;;;###autoload (define-key ctl-x-r-map "s" 'copy-to-register)
38 ;;;###autoload (define-key ctl-x-r-map "x" 'copy-to-register)
39 ;;;###autoload (define-key ctl-x-r-map "i" 'insert-register)
40 ;;;###autoload (define-key ctl-x-r-map "g" 'insert-register)
41 ;;;###autoload (define-key ctl-x-r-map "r" 'copy-rectangle-to-register)
42 ;;;###autoload (define-key ctl-x-r-map "n" 'number-to-register)
43 ;;;###autoload (define-key ctl-x-r-map "+" 'increment-register)
44 ;;;###autoload (define-key ctl-x-r-map "w" 'window-configuration-to-register)
45 ;;;###autoload (define-key ctl-x-r-map "f" 'frame-configuration-to-register)
30 46
31 ;;; Code: 47 ;;; Code:
32 48
33 (defvar register-alist nil 49 (defvar register-alist nil
34 "Alist of elements (NAME . CONTENTS), one for each Emacs register. 50 "Alist of elements (NAME . CONTENTS), one for each Emacs register.