361 |
(set-buffer ielm-temp-buffer)) |
(set-buffer ielm-temp-buffer)) |
362 |
(when ielm-temp-buffer |
(when ielm-temp-buffer |
363 |
(kill-buffer ielm-temp-buffer))) |
(kill-buffer ielm-temp-buffer))) |
364 |
(error (setq ielm-result (ielm-format-error err)) |
(error (setq ielm-result (error-message-string err)) |
365 |
(setq ielm-error-type "Eval error")) |
(setq ielm-error-type "Eval error")) |
366 |
(quit (setq ielm-result "Quit during evaluation") |
(quit (setq ielm-result "Quit during evaluation") |
367 |
(setq ielm-error-type "Eval error"))))) |
(setq ielm-error-type "Eval error"))))) |