Declare dynamic vars.

diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index 1c8f89178fb267e9ddd334b5fc9766ad20e258ba..15b34e3687396a2e211e0231204f6342d3e58b0b 100644 (file)
--- 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 1cbb1f425063e6cb2e2de2215a895a220fb564ad..461d71d06d9b92208f83eb6f1a9ddeb5f3fdf973 100644 (file)
--- 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.