Mercurial > emacs
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)) |