[Date Prev][Date Next][Thread Prev][Thread Next][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)))