yatex

diff yatex.el @ 127:39548ee6e881

Refer to mercurial repository.
author yuuji@gentei.org
date Thu, 27 May 2010 11:22:11 +0900
parents 34096706b634
children b11d6271207e
line diff
     1.1 --- a/yatex.el	Wed Dec 23 20:09:22 2009 +0900
     1.2 +++ b/yatex.el	Thu May 27 11:22:11 2010 +0900
     1.3 @@ -1,15 +1,15 @@
     1.4  ;;; -*- Emacs-Lisp -*-
     1.5  ;;; Yet Another tex-mode for emacs - //–ì’¹//
     1.6 -;;; yatex.el rev. 1.74.1
     1.7 -;;; (c)1991-2009 by HIROSE Yuuji.[yuuji@yatex.org]
     1.8 -;;; Last modified Wed Dec 23 20:05:55 2009 on firestorm
     1.9 +;;; yatex.el rev. 1.74.3
    1.10 +;;; (c)1991-2010 by HIROSE Yuuji.[yuuji@yatex.org]
    1.11 +;;; Last modified Thu May 27 10:09:18 2010 on firestorm
    1.12  ;;; $Id$
    1.13  ;;; The latest version of this software is always available at;
    1.14  ;;; http://www.yatex.org/
    1.15  
    1.16  (require 'comment)
    1.17  (require 'yatexlib)
    1.18 -(defconst YaTeX-revision-number "1.74.1"
    1.19 +(defconst YaTeX-revision-number "1.74.3"
    1.20    "Revision number of running yatex.el")
    1.21  
    1.22  ;---------- Local variables ----------
    1.23 @@ -82,6 +82,10 @@
    1.24    (if YaTeX-dos "%e" "-t %e")
    1.25    "*`To' page format of dvi filter.  %e will turn to end page number.")
    1.26  
    1.27 +(defvar YaTeX-dvipdf-command
    1.28 +  "dvipdfmx"
    1.29 +  "*Command name to convert dvi file to PDF.")
    1.30 +
    1.31  (defvar YaTeX-default-document-style
    1.32    (concat (if YaTeX-japan "j") "article")
    1.33    "*Default LaTeX Documentstyle for YaTeX-typeset-region.")
    1.34 @@ -1445,11 +1449,12 @@
    1.35  Optional second argument CHAR is for non-interactive call from menu."
    1.36    (interactive "P")
    1.37    (message
    1.38 -   (concat "J)latex R)egion B)ibtex mk(I)ndex "
    1.39 -	   (if (fboundp 'start-process) "K)ill-latex ")
    1.40 +   (concat "J)latex R)egion B)ibtex mk(I)dx "
    1.41 +	   "latex+p(D)f "
    1.42 +	   (if (fboundp 'start-process) "K)ill ")
    1.43  	   "P)review "
    1.44  	   (and (boundp 'window-system) window-system "S)earch ")
    1.45 -	   "V)iewerr L)pr"))
    1.46 +	   "V)iewErr L)pr"))
    1.47    (let ((sw (selected-window)) (c (or char (read-char))))
    1.48      (require 'yatexprc)			;for Nemacs's bug
    1.49      (select-window sw)
    1.50 @@ -1463,6 +1468,7 @@
    1.51       ((= c ?k) (YaTeX-kill-typeset-process YaTeX-typeset-process))
    1.52       ((= c ?p) (call-interactively 'YaTeX-preview))
    1.53       ((= c ?q) (YaTeX-system "lpq" "*Printer queue*"))
    1.54 +     ((= c ?d) (YaTeX-typeset-buffer YaTeX-dvipdf-command))
    1.55       ((= c ?v) (YaTeX-view-error))
    1.56       ((= c ?l) (YaTeX-lpr arg))
    1.57       ((= c ?m) (YaTeX-switch-mode-menu arg))