current-time

[Mito]

※ teranisi ＠ gohome.org さんの
   『Re: current-time』より

> ハードコーディングで JST の差だけ (9 * 60 * 60 = 32400 秒) 
> 引いた値を出すようになってしまっているので(すみません)、
> JST でしか正しく動かないと思われます。

あ、ほんとだ。しっかり見てないことがバレバレ。f^^

> ところで、Nemacs で現在のタイムゾーンを簡単に得る方法はあるでしょうか？

思い付きませんでした。(_ _)

> 今思いついた方法：
> (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 も付かん。

P.S.
> Mail-Followup-To: mit ＠ nines.nec.co.jp, apel-ja ＠ m17n.org

すんまへん、apel-ja はちゃんと読むように心を入れ換えましたの
で、ご勘弁くださいませ。(_ _)
-- 
12/10 19:23頃
NECソフトウェア新潟 水戸
mailto:mit ＠ nines.nec.co.jp \n