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

Re: spinner



もうちょっと実験してみました。

+-----------+----+----+
|           |文字|画像|
+-----------+----+----+
|mode-line  | O  | X  |
|header-line| X  | X  |
+-----------+----+----+

> まあ、etc/NEWS を見ると、こんな凝った使い方は想定していないみた
> いなので、よほど興味をそそる英文を書かないと誰も動いてはくれない
> でしょうね。

mode-lineとheader-lineの振舞いが一致していないことを
切口にCのコードを調査すれば、修正するのは容易かも...C-aC-k
指摘すれば、誰か動いてくれるかもしれませんね。

(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 mode-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)))