diff options
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/hanoi.el | 5 |
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))))) |