From: Dave Love <fx@gnu.org>
Date: Thu, 19 Aug 1999 15:23:23 +0000 (+0000)
Subject: Declare dynamic vars.
X-Git-Tag: emacs-pretest-21.0.90~7112
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=55df774a8a930e3ab60ee8ad7ebbf910b1d6d1ad;p=emacs.git

Declare dynamic vars.
---

diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index 1c8f89178fb..15b34e36873 100644
--- a/lisp/play/hanoi.el
+++ b/lisp/play/hanoi.el
@@ -56,7 +56,14 @@
 ;;; Code:
 
 (eval-when-compile
-  (require 'cl))
+  (require 'cl)
+  ;; dynamic bondage:
+  (defvar baseward-step)
+  (defvar fly-step)
+  (defvar fly-row-start)
+  (defvar pole-width)
+  (defvar pole-char)
+  (defvar line-offset))
 
 (defgroup hanoi nil
   "The Towers of Hanoi."
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index 1cbb1f42506..461d71d06d9 100644
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -640,6 +640,10 @@ directory for only the accessible portion of the buffer."
     (forward-line (if (= 0 pages-buffer-original-page)
                       1
                     pages-buffer-original-page))))
+(eval-when-compile
+  (defvar pages-buffer-original-position)
+  (defvar pages-buffer-original-page)
+  (defvar pages-buffer-original-page))
 
 (defun pages-copy-header-and-position (count-lines-p)
   "Copy page header and its position to the Pages Directory.