[CHANGED] use set-buffer instead of switch-to-buffer.

This commit is contained in:
Sami Samhuri 2009-11-21 16:58:42 -08:00
parent d2ddf004d3
commit e44e59e33b

View file

@ -345,7 +345,7 @@ NAME is the name of the scene."
(save-excursion
(let ((origbuffer (current-buffer))
(filebuffer (find-file-noselect filename)))
(switch-to-buffer filebuffer t)
(set-buffer filebuffer)
(let ((text (buffer-string)))
(switch-to-buffer origbuffer)
(json-read-from-string text)))))
@ -379,7 +379,7 @@ NAME is the name of the scene."
(save-excursion
(let ((buffer (find-file-noselect *mojo-app-cache-filename*))
(apps (mojo-fetch-app-list)))
(switch-to-buffer buffer t)
(set-buffer buffer)
(insert (string-join "\n" apps))
(basic-save-buffer)
(kill-buffer buffer))))