mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-25 19:11:56 +00:00
Code Issues Releases Activity

Declare dynamic vars.

Browse Source
This commit is contained in:
Dave Love 1999-08-19 15:23:23 +00:00
parent e90dbbd17e
commit 55df774a8a
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/play/hanoi.el
View File

@ -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."

4
lisp/textmodes/page-ext.el
View File

@ -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.