aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/winner.el11
2 files changed, 12 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dfbf32ad455..5a880cdb977 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12000-03-07 Dave Love <fx@gnu.org>
2
3 * winner.el: Fix keywords, autoload cookies. Split
4 eval-when-compile form to avoid compilation failure.
5
12000-03-07 Miyashita Hisashi <himi@bird.scphys.kyoto-u.ac.jp> 62000-03-07 Miyashita Hisashi <himi@bird.scphys.kyoto-u.ac.jp>
2 7
3 * international/mule.el: Modify comment about coding system 8 * international/mule.el: Modify comment about coding system
diff --git a/lisp/winner.el b/lisp/winner.el
index 4852e2992e5..d3aa40b2bf3 100644
--- a/lisp/winner.el
+++ b/lisp/winner.el
@@ -6,7 +6,7 @@
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;; Time-stamp: <1998-08-21 19:51:02 ivarr> 8;; Time-stamp: <1998-08-21 19:51:02 ivarr>
9;; Keywords: windows 9;; Keywords: convenience frames
10 10
11;; This file is part of GNU Emacs. 11;; This file is part of GNU Emacs.
12 12
@@ -42,8 +42,9 @@
42;;; Code: 42;;; Code:
43 43
44(eval-when-compile 44(eval-when-compile
45 (require 'cl) 45 (require 'cl))
46 46
47(eval-when-compile
47 (cond 48 (cond
48 ((eq (aref (emacs-version) 0) ?X) 49 ((eq (aref (emacs-version) 0) ?X)
49 (defmacro winner-active-region () 50 (defmacro winner-active-region ()
@@ -67,7 +68,8 @@
67 (defmacro defcustom (symbol &optional initvalue docs &rest rest) 68 (defmacro defcustom (symbol &optional initvalue docs &rest rest)
68 (list 'defvar symbol initvalue docs))) 69 (list 'defvar symbol initvalue docs)))
69 70
70 ;;;###autoload 71
72;;;###autoload
71(defcustom winner-mode nil 73(defcustom winner-mode nil
72 "Toggle winner-mode. 74 "Toggle winner-mode.
73Setting this variable directly does not take effect; 75Setting this variable directly does not take effect;
@@ -326,7 +328,8 @@ use either \\[customize] or the function `winner-mode'."
326 (split-window) 328 (split-window)
327 winner-var))) 329 winner-var)))
328 330
329 ;;;###autoload 331
332;;;###autoload
330(defun winner-mode (&optional arg) 333(defun winner-mode (&optional arg)
331 "Toggle Winner mode. 334 "Toggle Winner mode.
332With arg, turn Winner mode on if and only if arg is positive." 335With arg, turn Winner mode on if and only if arg is positive."