diff options
| author | Richard M. Stallman | 1997-04-15 05:07:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-15 05:07:44 +0000 |
| commit | 21f3d1d389c4e37dc2323062082b7c332d2aa021 (patch) | |
| tree | ebedcb641653ed8b13783dfa262dd3260ce60a16 | |
| parent | a14fb2b1d2635c774f27f3d4de1941972e813c1a (diff) | |
| download | emacs-21f3d1d389c4e37dc2323062082b7c332d2aa021.tar.gz emacs-21f3d1d389c4e37dc2323062082b7c332d2aa021.zip | |
Clean up comments, etc.
| -rw-r--r-- | lisp/winner.el | 31 |
1 files changed, 10 insertions, 21 deletions
diff --git a/lisp/winner.el b/lisp/winner.el index 57f5edfe5d0..15a86994c7b 100644 --- a/lisp/winner.el +++ b/lisp/winner.el | |||
| @@ -1,21 +1,20 @@ | |||
| 1 | ;;; winner.el --- Restore window configuration or change buffer | 1 | ;;; winner.el --- Restore window configuration or change buffer |
| 2 | 2 | ||
| 3 | ;; (C) 1997 Ivar Rummelhoff | 3 | ;; Copyright (C) 1997 Free Software Foundation. Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Ivar Rummelhoff <ivarr@ifi.uio.no> | 5 | ;; Author: Ivar Rummelhoff <ivarr@ifi.uio.no> |
| 6 | ;; Maintainer: Ivar Rummelhoff <ivarr@ifi.uio.no> | 6 | ;; Maintainer: Ivar Rummelhoff <ivarr@ifi.uio.no> |
| 7 | ;; Created: 27 Feb 1997 | 7 | ;; Created: 27 Feb 1997 |
| 8 | ;; Version: 1.13 | ||
| 9 | ;; RCS: $Id: winner.el,v 1.13 1997/04/01 11:11:12 ivarr Exp ivarr $ | ||
| 10 | ;; Keywords: extensions,windows | 8 | ;; Keywords: extensions,windows |
| 11 | ;; Location: http://www.ifi.uio.no/~ivarr/share/elisp/ | ||
| 12 | 9 | ||
| 13 | ;; This program is free software; you can redistribute it and/or modify | 10 | ;; This file is part of GNU Emacs. |
| 11 | |||
| 12 | ;; GNU Emacs is free software; you can redistribute it and/or modify | ||
| 14 | ;; it under the terms of the GNU General Public License as published by | 13 | ;; it under the terms of the GNU General Public License as published by |
| 15 | ;; the Free Software Foundation; either version 2, or (at your option) | 14 | ;; the Free Software Foundation; either version 2, or (at your option) |
| 16 | ;; any later version. | 15 | ;; any later version. |
| 17 | 16 | ||
| 18 | ;; This program is distributed in the hope that it will be useful, | 17 | ;; GNU Emacs is distributed in the hope that it will be useful, |
| 19 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | 18 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 20 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 19 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 21 | ;; GNU General Public License for more details. | 20 | ;; GNU General Public License for more details. |
| @@ -27,7 +26,7 @@ | |||
| 27 | 26 | ||
| 28 | ;;; Commentary: | 27 | ;;; Commentary: |
| 29 | ;; | 28 | ;; |
| 30 | ;; Winner.el provides a minor mode (`winner-mode') that does | 29 | ;; winner.el provides a minor mode (`winner-mode') that does |
| 31 | ;; essentially two things: | 30 | ;; essentially two things: |
| 32 | ;; | 31 | ;; |
| 33 | ;; 1) It keeps track of changing window configurations, so that | 32 | ;; 1) It keeps track of changing window configurations, so that |
| @@ -36,21 +35,9 @@ | |||
| 36 | ;; | 35 | ;; |
| 37 | ;; 2) It lets you switch to other buffers by pressing C-right. | 36 | ;; 2) It lets you switch to other buffers by pressing C-right. |
| 38 | ;; | 37 | ;; |
| 38 | ;; To use Winner mode, put this line in your .emacs file: | ||
| 39 | ;; | 39 | ;; |
| 40 | ;; Installation: | ||
| 41 | ;; | ||
| 42 | ;; 1. Put this file in a directory on your (emacs) load-path | ||
| 43 | ;; 2. Byte-compile the file (eg. with M-x byte-compile-file) | ||
| 44 | ;; 3. Put these two lines in your .emacs - file: | ||
| 45 | ;; | ||
| 46 | ;; (autoload 'winner-mode "winner" "Toggle Winner mode." t) | ||
| 47 | ;; (add-hook 'after-init-hook (lambda () (winner-mode 1))) | 40 | ;; (add-hook 'after-init-hook (lambda () (winner-mode 1))) |
| 48 | ;; | ||
| 49 | ;; 4. Restart emacs for changes to take effect. | ||
| 50 | ;; | ||
| 51 | ;; (This version of) Winner will only run properly | ||
| 52 | ;; on Emacs-19.35 or newer. | ||
| 53 | ;; | ||
| 54 | 41 | ||
| 55 | ;; Details: | 42 | ;; Details: |
| 56 | ;; | 43 | ;; |
| @@ -130,6 +117,8 @@ which excludes \"invisible buffers\".") | |||
| 130 | 117 | ||
| 131 | (defvar winner-mode nil) ; For the modeline. | 118 | (defvar winner-mode nil) ; For the modeline. |
| 132 | (defvar winner-mode-map nil "Keymap for Winner mode.") | 119 | (defvar winner-mode-map nil "Keymap for Winner mode.") |
| 120 | |||
| 121 | ;;;###autoload | ||
| 133 | (defun winner-mode (&optional arg) | 122 | (defun winner-mode (&optional arg) |
| 134 | "Toggle Winner mode. | 123 | "Toggle Winner mode. |
| 135 | With arg, turn Winner mode on if and only if arg is positive." | 124 | With arg, turn Winner mode on if and only if arg is positive." |
| @@ -353,4 +342,4 @@ Winner mode must be turned on.\)" | |||
| 353 | 342 | ||
| 354 | (provide 'winner) | 343 | (provide 'winner) |
| 355 | 344 | ||
| 356 | ;;; Winner.el ends here | 345 | ;;; winner.el ends here |