Mercurial > emacs
diff lisp/window.el @ 820:cd6b1e1da3fc
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 19 Jul 1992 05:05:19 +0000 |
parents | c2dbf1fe0506 |
children | 2cdce064065f |
line wrap: on
line diff
--- a/lisp/window.el Sun Jul 19 01:07:07 1992 +0000 +++ b/lisp/window.el Sun Jul 19 05:05:19 1992 +0000 @@ -110,22 +110,8 @@ (interactive "p") (shrink-window arg t)) -(defun window-config-to-register (name) - "Save the current window configuration in register REG (a letter). -It can be later retrieved using \\[M-x register-to-window-config]." - (interactive "cSave window configuration in register: ") - (set-register name (current-window-configuration))) - -(defun register-to-window-config (name) - "Restore (make current) the window configuration in register REG (a letter). -Use with a register previously set with \\[window-config-to-register]." - (interactive "cRestore window configuration from register: ") - (set-window-configuration (get-register name))) - (define-key ctl-x-map "2" 'split-window-vertically) (define-key ctl-x-map "3" 'split-window-horizontally) -(define-key ctl-x-map "6" 'window-config-to-register) -(define-key ctl-x-map "7" 'register-to-window-config) (define-key ctl-x-map "}" 'enlarge-window-horizontally) (define-key ctl-x-map "{" 'shrink-window-horizontally)