diff options
| author | Dave Love | 2000-03-07 10:10:40 +0000 |
|---|---|---|
| committer | Dave Love | 2000-03-07 10:10:40 +0000 |
| commit | 63f6b2c46d2f6a56ae697b8e4617cefb10aa4408 (patch) | |
| tree | eb591e2d993969ae5b4d0bbec8abbc9bd20bddac | |
| parent | fa42c37fe3359505d76a5e7416728f6802705363 (diff) | |
| download | emacs-63f6b2c46d2f6a56ae697b8e4617cefb10aa4408.tar.gz emacs-63f6b2c46d2f6a56ae697b8e4617cefb10aa4408.zip | |
Fix keywords, autoload cookies. Split
eval-when-compile form to avoid compilation failure.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/winner.el | 11 |
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 @@ | |||
| 1 | 2000-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 | |||
| 1 | 2000-03-07 Miyashita Hisashi <himi@bird.scphys.kyoto-u.ac.jp> | 6 | 2000-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. |
| 73 | Setting this variable directly does not take effect; | 75 | Setting 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. |
| 332 | With arg, turn Winner mode on if and only if arg is positive." | 335 | With arg, turn Winner mode on if and only if arg is positive." |