       (let ((buffer (get-buffer-create (format "*wttr.in - %s*" city-name))))
         (switch-to-buffer buffer)
         (setq buffer-read-only nil)
-        (delete-region (point-min) (point-max))
+        (erase-buffer)
         (insert (xterm-color-filter raw-string))
         (goto-char (point-min))
         (re-search-forward "^$")

(defun wttrin ()
  "Display weather information."
  (interactive)
  (wttrin-query (ido-completing-read "City name: " wttrin-default-cities nil nil)))

(provide 'wttrin)



(require 'url)
(require 'xterm-color)

(defgroup wttrin nil
  "Emacs frontend for weather web service wttr.in."
