aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDave Love2000-03-07 10:10:40 +0000
committerDave Love2000-03-07 10:10:40 +0000
commit63f6b2c46d2f6a56ae697b8e4617cefb10aa4408 (patch)
treeeb591e2d993969ae5b4d0bbec8abbc9bd20bddac
parentfa42c37fe3359505d76a5e7416728f6802705363 (diff)
downloademacs-63f6b2c46d2f6a56ae697b8e4617cefb10aa4408.tar.gz
emacs-63f6b2c46d2f6a56ae697b8e4617cefb10aa4408.zip
Fix keywords, autoload cookies. Split
eval-when-compile form to avoid compilation failure.
-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."