X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/ff287a27b62d4a4bba389567885f939525c73760..ad9534859721d7d8381d2c0fb73533d3cf7e60cd:/lisp/winner.el

diff --git a/lisp/winner.el b/lisp/winner.el
index 56d9be8b40..2e35995943 100644
--- a/lisp/winner.el
+++ b/lisp/winner.el
@@ -2,11 +2,10 @@
 
 ;; Copyright (C) 1997, 1998 Free Software Foundation. Inc.
 
-;; Author: Ivar Rummelhoff <ivarr@ifi.uio.no>
-;; Maintainer: Ivar Rummelhoff <ivarr@ifi.uio.no>
+;; Author: Ivar Rummelhoff <ivarru@math.uio.no>
 ;; Created: 27 Feb 1997
 ;; Time-stamp: <1998-08-21 19:51:02 ivarr>
-;; Keywords: windows
+;; Keywords: convenience frames
 
 ;; This file is part of GNU Emacs.
 
@@ -42,10 +41,11 @@
 ;;; Code:
 
 (eval-when-compile
-  (require 'cl)
+  (require 'cl))
 
+(eval-when-compile
   (cond
-   ((eq (sref (emacs-version) 0) ?X)
+   ((eq (aref (emacs-version) 0) ?X)
     (defmacro winner-active-region ()
       '(region-active-p))
     (defsetf winner-active-region () (store)
@@ -67,7 +67,8 @@
   (defmacro defcustom (symbol &optional initvalue docs &rest rest)
     (list 'defvar symbol initvalue docs)))
 
-;;;###autoload
+
+;;;###autoload
 (defcustom winner-mode nil
   "Toggle winner-mode.
 Setting this variable directly does not take effect;
@@ -326,7 +327,8 @@ use either \\[customize] or the function `winner-mode'."
       (split-window)
       winner-var)))
 
-;;;###autoload
+
+;;;###autoload
 (defun winner-mode (&optional arg)
   "Toggle Winner mode.
 With arg, turn Winner mode on if and only if arg is positive."