(require 'deferred) (require 'url) (deferred:$ ;; URLの内容を取得し (deferred:url-retrieve "http://www.gnu.org") (deferred:nextc it (lambda (buf) ;; bufはURLの内容(HTML)が入っている ;; HTMLをカレントバッファに挿入! (insert (with-current-buffer buf (buffer-string))) ;; ダウンロードに使ったバッファはいらないので削除 (kill-buffer buf))))