Commit 55df774a authored by Dave Love's avatar Dave Love
Browse files

Declare dynamic vars.

parent e90dbbd1
......@@ -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."
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment