Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Minor fixes.

  • Loading branch information...
commit 177c62a50640dae457f26dc2f3c82ffd4c95e573 1 parent ad7835b
@JEG2 authored
Showing with 4 additions and 1 deletion.
  1. +4 −1 chapter_6/wizard_game.el
View
5 chapter_6/wizard_game.el
@@ -111,6 +111,8 @@
;; Major mode and trigger function
+(require 'comint)
+
(setq max-lisp-eval-depth 10000) ;; needed for tweak-text
(defvar wizard-game-prompt "> ")
@@ -144,7 +146,8 @@
(start-process "wizard-game" (current-buffer) "hexl")
(file-error (start-process "wizard-game" (current-buffer) "cat")))
(set-process-query-on-exit-flag (wizard-game-process) nil)
- (wizard-game-output wizard-game-prompt)
+ (wizard-game-output "*** Wizard's Game *** Ported from Land of Lisp\n")
+ (wizard-game-output (concat (game-eval-print '(look)) "\n" wizard-game-prompt))
(goto-char (point-max))))
(defun wizard-game ()
Please sign in to comment.
Something went wrong with that request. Please try again.