aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/play
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/play')
-rw-r--r--lisp/play/hanoi.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index 58fb82b6ed0..1a4b6dbeb11 100644
--- a/lisp/play/hanoi.el
+++ b/lisp/play/hanoi.el
@@ -149,10 +149,9 @@ BITS must be of length nrings. Start at START-TIME."
149 (setq show-trailing-whitespace nil) 149 (setq show-trailing-whitespace nil)
150 (unwind-protect 150 (unwind-protect
151 (let* 151 (let*
152 (;; These lines can cause Emacs to crash if you ask for too 152 (;; This line can cause Emacs to crash if you ask for too
153 ;; many rings. If you uncomment them, on most systems you 153 ;; many rings. If you uncomment it, on most systems you
154 ;; can get 10,000+ rings. 154 ;; can get 10,000+ rings.
155 ;;(max-specpdl-size (max max-specpdl-size (* nrings 15)))
156 ;;(max-lisp-eval-depth (max max-lisp-eval-depth (+ nrings 20))) 155 ;;(max-lisp-eval-depth (max max-lisp-eval-depth (+ nrings 20)))
157 (vert (not hanoi-horizontal-flag)) 156 (vert (not hanoi-horizontal-flag))
158 (pole-width (length (format "%d" (max 0 (1- nrings))))) 157 (pole-width (length (format "%d" (max 0 (1- nrings)))))