diff options
| -rw-r--r-- | lisp/play/dunnet.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el index 2c6a75da03e..ae8a62c48f1 100644 --- a/lisp/play/dunnet.el +++ b/lisp/play/dunnet.el | |||
| @@ -1304,7 +1304,7 @@ for a moment, then straighten yourself up. | |||
| 1304 | (condition-case nil | 1304 | (condition-case nil |
| 1305 | (dun-rot13) | 1305 | (dun-rot13) |
| 1306 | (error (yank))) | 1306 | (error (yank))) |
| 1307 | (eval-current-buffer) | 1307 | (eval-buffer) |
| 1308 | (kill-buffer (current-buffer))) | 1308 | (kill-buffer (current-buffer))) |
| 1309 | (switch-to-buffer old-buffer) | 1309 | (switch-to-buffer old-buffer) |
| 1310 | result)) | 1310 | result)) |
| @@ -2576,7 +2576,7 @@ treasures for points?" "4" "four") | |||
| 2576 | (insert ")") | 2576 | (insert ")") |
| 2577 | (setq eval-error nil) | 2577 | (setq eval-error nil) |
| 2578 | (condition-case nil | 2578 | (condition-case nil |
| 2579 | (eval-current-buffer) | 2579 | (eval-buffer) |
| 2580 | (error (setq eval-error t))) | 2580 | (error (setq eval-error t))) |
| 2581 | (kill-buffer (current-buffer)) | 2581 | (kill-buffer (current-buffer)) |
| 2582 | (switch-to-buffer "*dungeon*") | 2582 | (switch-to-buffer "*dungeon*") |