current-time

[Yuuichi Teranishi]

At Fri, 10 Dec 1999 19:24:34 +0000,
Mito <mit ＠ nines.nec.co.jp> wrote:
> 
> > 今思いついた方法：
> > (with-temp-buffer
> >  ;; それこそ locale の問題がありそう...。
> >  (call-process "date" nil (current-buffer) t)
> >  (goto-char (point-min))
> >  (let ((case-fold-search nil))
> >    (if (re-search-forward "\\([A-Z][A-Z][A-Z]\\)" nil t)
> >        (buffer-substring (match-beginning 1)(match-end 1)))))
> 
> 時差だけなら、
> 
> (with-temp-buffer
>   (call-process "date" nil (current-buffer) t "+(- %H")
>   (call-process "date" nil (current-buffer) t "-u" "+%H)")
>   (eval-current-buffer (current-buffer))
>   (forward-line -2)
>   (string-to-int (buffer-substring (point) (point-max))))
> 
> なんてのは？
> ＃ 1時間ずれる場合もありますけど。;-)
> ＃ cygwin-b20 の date は -u が効かないなぁ...。
> ＃ おぉ、TZ も付かん。

うーむ...。
やっぱり、現在のタイムゾーンは
(defvar current-time-zone "JST")
みたいな変数を設定してもらうのでいいかなあ、という気もします。
他の識者の方の御意見を聞いてみたいです。

> P.S.
> > Mail-Followup-To: mit ＠ nines.nec.co.jp, apel-ja ＠ m17n.org
> 
> すんまへん、apel-ja はちゃんと読むように心を入れ換えましたの
> で、ご勘弁くださいませ。(_ _)

;; すみません。悪気はないです (^^;;。
--
Yuuichi Teranishi (寺西裕一) <teranisi ＠ gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"The love you take is equal to the love you make..."