aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-04-15 05:07:44 +0000
committerRichard M. Stallman1997-04-15 05:07:44 +0000
commit21f3d1d389c4e37dc2323062082b7c332d2aa021 (patch)
treeebedcb641653ed8b13783dfa262dd3260ce60a16
parenta14fb2b1d2635c774f27f3d4de1941972e813c1a (diff)
downloademacs-21f3d1d389c4e37dc2323062082b7c332d2aa021.tar.gz
emacs-21f3d1d389c4e37dc2323062082b7c332d2aa021.zip
Clean up comments, etc.
-rw-r--r--lisp/winner.el31
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.
135With arg, turn Winner mode on if and only if arg is positive." 124With 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