1 |
;;; winner.el --- Restore old window configurations |
;;; winner.el --- Restore old window configurations |
2 |
|
|
3 |
;; Copyright (C) 1997, 1998, 2001 Free Software Foundation. Inc. |
;; Copyright (C) 1997, 1998, 2001, 2004 Free Software Foundation. Inc. |
4 |
|
|
5 |
;; Author: Ivar Rummelhoff <ivarru@math.uio.no> |
;; Author: Ivar Rummelhoff <ivarru@math.uio.no> |
6 |
;; Created: 27 Feb 1997 |
;; Created: 27 Feb 1997 |
30 |
;; window configuration (i.e. how the frames are partitioned into |
;; window configuration (i.e. how the frames are partitioned into |
31 |
;; windows) so that the changes can be "undone" using the command |
;; windows) so that the changes can be "undone" using the command |
32 |
;; `winner-undo'. By default this one is bound to the key sequence |
;; `winner-undo'. By default this one is bound to the key sequence |
33 |
;; ctrl-x left. If you change your mind (while undoing), you can |
;; ctrl-c left. If you change your mind (while undoing), you can |
34 |
;; press ctrl-x right (calling `winner-redo'). Even though it uses |
;; press ctrl-c right (calling `winner-redo'). Even though it uses |
35 |
;; some features of Emacs20.3, winner.el should also work with |
;; some features of Emacs20.3, winner.el should also work with |
36 |
;; Emacs19.34 and XEmacs20, provided that the installed version of |
;; Emacs19.34 and XEmacs20, provided that the installed version of |
37 |
;; custom is not obsolete. |
;; custom is not obsolete. |
474 |
|
|
475 |
(unless winner-mode-map |
(unless winner-mode-map |
476 |
(setq winner-mode-map (make-sparse-keymap)) |
(setq winner-mode-map (make-sparse-keymap)) |
477 |
(define-key winner-mode-map [(control x) left] 'winner-undo) |
(define-key winner-mode-map [(control c) left] 'winner-undo) |
478 |
(define-key winner-mode-map [(control x) right] 'winner-redo)) |
(define-key winner-mode-map [(control c) right] 'winner-redo)) |
479 |
|
|
480 |
(unless (or (assq 'winner-mode minor-mode-map-alist) |
(unless (or (assq 'winner-mode minor-mode-map-alist) |
481 |
winner-dont-bind-my-keys) |
winner-dont-bind-my-keys) |