1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00

(dun-load-d, dun-eval): Use eval-buffer.

This commit is contained in:
Thien-Thi Nguyen 2006-07-05 07:35:46 +00:00
parent 98f46e1b42
commit e12d3ded2a

View File

@ -1304,7 +1304,7 @@ for a moment, then straighten yourself up.
(condition-case nil
(dun-rot13)
(error (yank)))
(eval-current-buffer)
(eval-buffer)
(kill-buffer (current-buffer)))
(switch-to-buffer old-buffer)
result))
@ -2576,7 +2576,7 @@ treasures for points?" "4" "four")
(insert ")")
(setq eval-error nil)
(condition-case nil
(eval-current-buffer)
(eval-buffer)
(error (setq eval-error t)))
(kill-buffer (current-buffer))
(switch-to-buffer "*dungeon*")