1.1 --- a/yatexlib.el	Fri Feb 10 12:31:58 2012 +0900
     1.2 +++ b/yatexlib.el	Fri Feb 17 17:42:27 2012 +0900
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX and yahtml common libraries, general functions and definitions
     1.5  ;;; yatexlib.el
     1.6  ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Fri Feb 10 12:30:49 2012 on firestorm
     1.8 +;;; Last modified Fri Feb 17 17:15:37 2012 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;; General variables
    1.12 @@ -1534,6 +1534,15 @@
    1.13  	 (kill-new string)
    1.14  	 (message (concat "`%s'" msg) string key))))
    1.15  
    1.16 +(defun YaTeX-elapsed-time (before after)
    1.17 +  "Get elapsed time from BEFORE and AFTER, which are given from currente-time."
    1.18 +  (if (fboundp 'float)			;Then, current-time function should be.
    1.19 +      (let ((mil (float 1000000)))	;To protect parse error before 19
    1.20 +	(+ (* (- (nth 0 after) (nth 0 before)) 65536)
    1.21 +	   (- (nth 1 after) (nth 1 before))
    1.22 +	   (- (/ (nth 2 after) mil)
    1.23 +	      (/ (nth 2 before) mil))))))
    1.24 +
    1.25  ;;;
    1.26  ;; Functions for the Installation time
    1.27  ;;;