Mercurial > emacs

changeset 25329:dca526aca149

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Declare dynamic vars.
author Dave Love <fx@gnu.org>
date Thu, 19 Aug 1999 15:23:23 +0000
parents df0478893e10
children 6ac0cc90d397
files lisp/play/hanoi.el lisp/textmodes/page-ext.el
diffstat 2 files changed, 12 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/hanoi.el	Thu Aug 19 13:56:14 1999 +0000
+++ b/lisp/play/hanoi.el	Thu Aug 19 15:23:23 1999 +0000
@@ -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."
--- a/lisp/textmodes/page-ext.el	Thu Aug 19 13:56:14 1999 +0000
+++ b/lisp/textmodes/page-ext.el	Thu Aug 19 15:23:23 1999 +0000
@@ -640,6 +640,10 @@
     (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.