Re: display-time on title bar

[OISHI Kazutoshi <ooishi@xxxxxxxxxxxxxx>]

おおいしです. 

私はこんな感じでタイトルバーだけに日付と時刻を表示できています.
時刻は更新されています. ただし lisp はほとんど分からないので, 
変なことをしているかもしれませんが.

(setq display-time-day-and-date t
      display-time-24hr-format t)
(setq display-time-string-forms
  '((if display-time-day-and-date
        (format "%s/%s/%s " year month day)
      "")
    (format "%s:%s%s"
            (if display-time-24hr-format 24-hours 12-hours)
            minutes
            (if display-time-24hr-format "" am-pm))))
(display-time)
(cond (window-system
       (setq frame-title-format
	     '((multiple-frames ("%b   ")
				("" invocation-name "@" system-name))
	       "    "
	       display-time-string))
	     (remove-hook 'global-mode-string 'display-time-string)))

In message "display-time on title bar"
    on 01/01/15, yagi@xxxxxxxxxxxxxxx <yagi@xxxxxxxxxxxxxxx> writes:

> 矢木です。
> 
> ふと思い立って、こんなことを .emacs に書いてみたのですが、
> タイトルバーの更新はいつ行われるのでしょうか?
> (force-mode-line-update) で更新されれば問題ないのですが。
> 
> (if (eq window-system 'w32)
>     (let (global-mode-string)
>       (display-time)
>       (if (not (and (listp frame-title-format)
>                     (memq 'display-time-string frame-title-format)))
>           (setq frame-title-format 
>                 (list "" frame-title-format " " 'display-time-string)))
>       ))
-- 
おおいし