/[emacs]/emacs/lisp/winner.el
ViewVC logotype

Diff of /emacs/lisp/winner.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24.6.1 by handa, Fri Apr 16 12:50:11 2004 UTC revision 1.24.6.2 by miles, Mon Jun 28 07:28:48 2004 UTC
# Line 1  Line 1 
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
# Line 30  Line 30 
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.
# Line 474  In other words, \"undo\" changes in wind Line 474  In other words, \"undo\" changes in wind
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)

Legend:
Removed from v.1.24.6.1  
changed lines
  Added in v.1.24.6.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26