[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: sb-tcup.el
From: TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> さん曰く
Subject: [emacs-w3m:01675] Re: sb-tcup.el
Message-ID: <20011011085802B.1000@pine.kuee.kyoto-u.ac.jp>
Date: Thu, 11 Oct 2001 08:58:01 +0900
中> - (setq date (format-time-string "%d %b %Y %T %z" stime))
中> + (let ((system-time-locale "C"))
中> + (setq date (format-time-string "%d %b %Y %T %z" stime)))
土> つまり Emacs21 の format-time-string() は locale に応じた値を返すので
土> すね。勉強になりました。
土> ただし、書式指定子の %z が Mule2.3 と XEmacs21.4 では使えないようです
土> から、ここは format-time-string() の代わりに shimbun-make-date-string()
土> を使うように変更するべきかもしれません。または、w3m-om.el / w3m-xmas.el
土> で format-time-string() に defadvice するか。どちらが良いでしょうね。
例えば、Mew では同等のことをこうやっています。
(defsubst mew-time-tmzn-int ()
(let ((tz (car (current-time-zone))))
(if (< tz 0)
(format "-%02d%02d" (/ (- tz) 3600) (/ (% (- tz) 3600) 60))
(format "+%02d%02d" (/ tz 3600) (/ (% tz 3600) 60)))))
(defsubst mew-time-ctz-to-rfc (time)
(let ((system-time-locale "C")
(tmzn-int (mew-time-tmzn-int)))
;; XEmacs doesn't have %z
(format (format-time-string "%a, %d %b %Y %T %%s (%Z)" time) tmzn-int)))
これなら、たしか Mule 2.3 でも動いたと思いました。
# Emacs19.28 + APEL では問題ないです。
--
白井秀行 (mailto:shirai@rdmg.mgcs.mei.co.jp)