summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/play/hanoi.el9
-rw-r--r--lisp/textmodes/page-ext.el4
2 files changed, 12 insertions, 1 deletions
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.