diff options
-rw-r--r-- | wiki-utils.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/wiki-utils.el b/wiki-utils.el index 4ceeade..ae61d4d 100644 --- a/wiki-utils.el +++ b/wiki-utils.el @@ -52,10 +52,16 @@ Then calls CALLBACK which is a closure taking no argument." (when (plist-get status :error) (error "Wiki fetch failed: %s" (plist-get status :error))) (wiki-delete-http-header) - (write-file file-name) - (let ((coding-system-for-read 'utf-8)) - (revert-buffer t t)) - (switch-to-buffer (current-buffer)) + (let ((to-insert (buffer-string)) + (buffer (find-file-noselect file-name)) + (coding-system-for-write 'utf-8)) + (kill-buffer) + (with-current-buffer buffer + (insert to-insert) + (goto-char (point-min)) + (save-buffer) + (revert-buffer t t)) + (switch-to-buffer buffer)) ) (defun wiki-delete-http-header () |