最后,我会这样做:
(condition-case err (when (get-buffer "*scratch*") (with-current-buffer "*scratch*" (erase-buffer) (insert-file-contents "~/todo.org") (org-mode) ) ) (error (message "%s" error-message-string err)))