Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexprc.el @ 213:6a2594372108 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove unnecessary improvement.
author yuuji@gentei.org
date Thu, 12 Jan 2012 21:55:49 +0900
parents c63a4ec6a492
children 9705855793ca
comparison
equal deleted inserted replaced
212:c63a4ec6a492 213:6a2594372108
1 ;;; -*- Emacs-Lisp -*- 1 ;;; -*- Emacs-Lisp -*-
2 ;;; YaTeX process handler. 2 ;;; YaTeX process handler.
3 ;;; yatexprc.el 3 ;;; yatexprc.el
4 ;;; (c)1993-2012 by HIROSE Yuuji.[yuuji@yatex.org] 4 ;;; (c)1993-2012 by HIROSE Yuuji.[yuuji@yatex.org]
5 ;;; Last modified Thu Jan 12 17:52:15 2012 on firestorm 5 ;;; Last modified Thu Jan 12 21:17:08 2012 on firestorm
6 ;;; $Id$ 6 ;;; $Id$
7 7
8 ;(require 'yatex) 8 ;(require 'yatex)
9 (require 'yatexlib) 9 (require 'yatexlib)
10 10
54 (modify-syntax-entry ?\} "w" YaTeX-typeset-buffer-syntax) 54 (modify-syntax-entry ?\} "w" YaTeX-typeset-buffer-syntax)
55 (modify-syntax-entry ?\[ "w" YaTeX-typeset-buffer-syntax) 55 (modify-syntax-entry ?\[ "w" YaTeX-typeset-buffer-syntax)
56 (modify-syntax-entry ?\] "w" YaTeX-typeset-buffer-syntax)) 56 (modify-syntax-entry ?\] "w" YaTeX-typeset-buffer-syntax))
57 57
58 (defvar YaTeX-typeset-marker nil) 58 (defvar YaTeX-typeset-marker nil)
59 (defun YaTeX-typeset (command buffer &optional prcname modename ppcmd rerun) 59 (defun YaTeX-typeset (command buffer &optional prcname modename ppcmd)
60 "Execute jlatex (or other) to LaTeX typeset." 60 "Execute jlatex (or other) to LaTeX typeset."
61 (interactive) 61 (interactive)
62 (save-excursion 62 (save-excursion
63 (let ((p (point)) (window (selected-window)) execdir (cb (current-buffer)) 63 (let ((p (point)) (window (selected-window)) execdir (cb (current-buffer))
64 (map YaTeX-typesetting-mode-map) 64 (map YaTeX-typesetting-mode-map)
79 (YaTeX-showup-buffer 79 (YaTeX-showup-buffer
80 buffer (function (lambda (x) (nth 3 (window-edges x))))) 80 buffer (function (lambda (x) (nth 3 (window-edges x)))))
81 (set-buffer (get-buffer-create buffer)) 81 (set-buffer (get-buffer-create buffer))
82 (setq default-directory execdir) 82 (setq default-directory execdir)
83 (cd execdir) 83 (cd execdir)
84 (or rerun (erase-buffer)) 84 (erase-buffer)
85 (cond 85 (cond
86 ((not (fboundp 'start-process)) ;YaTeX-dos;if MS-DOS 86 ((not (fboundp 'start-process)) ;YaTeX-dos;if MS-DOS
87 (call-process 87 (call-process
88 shell-file-name nil buffer nil YaTeX-shell-command-option command)) 88 shell-file-name nil buffer nil YaTeX-shell-command-option command))
89 (t ;if UNIX 89 (t ;if UNIX

yatex.org