Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexlib.el @ 262:15ec86ff549c dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Call always bibtex after first typesetting when document needs bibtex. Display total ellapsed time of all processing for impatients :). Use value of `%BIBTEX ...' line, if any, to automatic (re)run of bibtex.
author HIROSE Yuuji <yuuji@gentei.org>
date Fri, 17 Feb 2012 17:42:27 +0900
parents 3e3ccba06ca1
children 9d022a531549
comparison
equal deleted inserted replaced
261:8c555014f933 262:15ec86ff549c
1 ;;; -*- Emacs-Lisp -*- 1 ;;; -*- Emacs-Lisp -*-
2 ;;; YaTeX and yahtml common libraries, general functions and definitions 2 ;;; YaTeX and yahtml common libraries, general functions and definitions
3 ;;; yatexlib.el 3 ;;; yatexlib.el
4 ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org] 4 ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org]
5 ;;; Last modified Fri Feb 10 12:30:49 2012 on firestorm 5 ;;; Last modified Fri Feb 17 17:15:37 2012 on firestorm
6 ;;; $Id$ 6 ;;; $Id$
7 7
8 ;; General variables 8 ;; General variables
9 (defvar YaTeX-dos (memq system-type '(ms-dos windows-nt OS/2))) 9 (defvar YaTeX-dos (memq system-type '(ms-dos windows-nt OS/2)))
10 (defvar YaTeX-macos (memq system-type '(darwin))) 10 (defvar YaTeX-macos (memq system-type '(darwin)))
1532 " をkill-ringに入れました。次のyank(%s)で貼付できます" 1532 " をkill-ringに入れました。次のyank(%s)で貼付できます"
1533 " is stored into kill-ring. Paste it by yank(%s)."))) 1533 " is stored into kill-ring. Paste it by yank(%s).")))
1534 (kill-new string) 1534 (kill-new string)
1535 (message (concat "`%s'" msg) string key)))) 1535 (message (concat "`%s'" msg) string key))))
1536 1536
1537 (defun YaTeX-elapsed-time (before after)
1538 "Get elapsed time from BEFORE and AFTER, which are given from currente-time."
1539 (if (fboundp 'float) ;Then, current-time function should be.
1540 (let ((mil (float 1000000))) ;To protect parse error before 19
1541 (+ (* (- (nth 0 after) (nth 0 before)) 65536)
1542 (- (nth 1 after) (nth 1 before))
1543 (- (/ (nth 2 after) mil)
1544 (/ (nth 2 before) mil))))))
1545
1537 ;;; 1546 ;;;
1538 ;; Functions for the Installation time 1547 ;; Functions for the Installation time
1539 ;;; 1548 ;;;
1540 1549
1541 (defun bcf-and-exit () 1550 (defun bcf-and-exit ()

yatex.org