(defun sr-update-viewer ()
  (let* ((viewer-name " *Speed Reader Viewer*")
	 (viewer (get-buffer-create viewer-name)))
    (save-excursion
      (set-buffer viewer)
      (erase-buffer)
      (insert-extent sr-attention-extent))
    (with-output-to-temp-buffer viewer-name)))