[Mew-dist 12035] Re: immv to large size directory

[Masaki KONUMA]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>

> 探したんですが見つからないので教えて下さい。etime は何のファイルで定義

ごめんなさい。見つかる筈がありません。
こういうのです。

-- 小沼雅樹
-------------- next part --------------
;;; $Id: etime.el,v 1.2 1999/08/31 05:45:13 konuma Exp $

(defun etime (arg)
  "Returns the time required for re-evaluate the argument."
  (let* ((t0 (prog1 (current-time) (eval arg)))
	 (t1 (current-time))
	 (h (- (car t1) (car t0)))
	 (l (- (car (cdr t1)) (car (cdr t0))))
	 (m (- (car (cdr (cdr t1))) (car (cdr (cdr t0))))))
    (and (< m 0) (setq m (+ m 1000000) l (1- l)))
    (and (< l 0) (setq l (+ l 65536) h (1- h)))
    (+ (* (float h) 65536) (float l) (/ (float m) 1000000))))