[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: spinner 

> どうも Emacs 21 の header-line では、画像の再描画がうまくいかな
> いようなのです。よろしければ以下を eval してみて下さい。

文字もだめでした。
使っているのはGNU emacsのCVSのHEAD近傍です。(半径1か月ぐらい。)

(let* ((buffer (get-buffer-create "*spinning test*"))
       (index 0)
       (timer
	(run-at-time
	 0.1 0.1
	 (lambda (buffer)
	   (message "(%s) Press any key to stop it: " index)
	   (set-buffer buffer)
	   (setq header-line-format (format "%d" index))
	   ;; (force-mode-line-update)
	   ;; (redisplay-device (selected-frame))
	   (setq index (if (>= index 2) 0 (1+ index))))
	 buffer)))
  (switch-to-buffer-other-window buffer)
  (unwind-protect
      (read-event)
    (discard-input)
    (cancel-timer timer)
    (delete-window)))