comparison lisp/winner.el @ 55349:96c2a9272e97

(winner-mode-map): Move winner-undo and winner-redo to C-c <left> and C-c <right>, respectively (the previous bindings conflict with next-buffer, prev-buffer).
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 03 May 2004 23:15:12 +0000
parents 695cf19ef79e
children 5201ea9b1985 4c90ffeb71c5
comparison
equal deleted inserted replaced
55348:c1f70dc19ce5 55349:96c2a9272e97
1 ;;; winner.el --- Restore old window configurations 1 ;;; winner.el --- Restore old window configurations
2 2
3 ;; Copyright (C) 1997, 1998, 2001 Free Software Foundation. Inc. 3 ;; Copyright (C) 1997, 1998, 2001, 2004 Free Software Foundation. Inc.
4 4
5 ;; Author: Ivar Rummelhoff <ivarru@math.uio.no> 5 ;; Author: Ivar Rummelhoff <ivarru@math.uio.no>
6 ;; Created: 27 Feb 1997 6 ;; Created: 27 Feb 1997
7 ;; Time-stamp: <2002-02-20 22:06:58 ivarru> 7 ;; Time-stamp: <2002-02-20 22:06:58 ivarru>
8 ;; Keywords: convenience frames 8 ;; Keywords: convenience frames
28 28
29 ;; Winner mode is a global minor mode that records the changes in the 29 ;; Winner mode is a global minor mode that records the changes in the
30 ;; window configuration (i.e. how the frames are partitioned into 30 ;; window configuration (i.e. how the frames are partitioned into
31 ;; windows) so that the changes can be "undone" using the command 31 ;; windows) so that the changes can be "undone" using the command
32 ;; `winner-undo'. By default this one is bound to the key sequence 32 ;; `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 33 ;; ctrl-c left. If you change your mind (while undoing), you can
34 ;; press ctrl-x right (calling `winner-redo'). Even though it uses 34 ;; press ctrl-c right (calling `winner-redo'). Even though it uses
35 ;; some features of Emacs20.3, winner.el should also work with 35 ;; some features of Emacs20.3, winner.el should also work with
36 ;; Emacs19.34 and XEmacs20, provided that the installed version of 36 ;; Emacs19.34 and XEmacs20, provided that the installed version of
37 ;; custom is not obsolete. 37 ;; custom is not obsolete.
38 38
39 ;; Winner mode was improved August 1998. 39 ;; Winner mode was improved August 1998.
472 472
473 ;;; To be evaluated when the package is loaded: 473 ;;; To be evaluated when the package is loaded:
474 474
475 (unless winner-mode-map 475 (unless winner-mode-map
476 (setq winner-mode-map (make-sparse-keymap)) 476 (setq winner-mode-map (make-sparse-keymap))
477 (define-key winner-mode-map [(control x) left] 'winner-undo) 477 (define-key winner-mode-map [(control c) left] 'winner-undo)
478 (define-key winner-mode-map [(control x) right] 'winner-redo)) 478 (define-key winner-mode-map [(control c) right] 'winner-redo))
479 479
480 (unless (or (assq 'winner-mode minor-mode-map-alist) 480 (unless (or (assq 'winner-mode minor-mode-map-alist)
481 winner-dont-bind-my-keys) 481 winner-dont-bind-my-keys)
482 (push (cons 'winner-mode winner-mode-map) 482 (push (cons 'winner-mode winner-mode-map)
483 minor-mode-map-alist)) 483 minor-mode-map-alist))