Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexprc.el @ 399:33bde8c52fcc dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix message and remove trash
author HIROSE Yuuji <yuuji@gentei.org>
date Fri, 16 Jan 2015 15:23:17 +0900
parents 5aa8208fbef0
children d8d66ed51034
comparison
equal deleted inserted replaced
398:8c8757ac9b62 399:33bde8c52fcc
1 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*- 1 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*-
2 ;;; 2 ;;;
3 ;;; (c)1993-2015 by HIROSE Yuuji.[yuuji@yatex.org] 3 ;;; (c)1993-2015 by HIROSE Yuuji.[yuuji@yatex.org]
4 ;;; Last modified Fri Jan 16 10:33:37 2015 on firestorm 4 ;;; Last modified Fri Jan 16 15:22:23 2015 on firestorm
5 ;;; $Id$ 5 ;;; $Id$
6 6
7 ;;; Code: 7 ;;; Code:
8 ;(require 'yatex) 8 ;(require 'yatex)
9 (require 'yatexlib) 9 (require 'yatexlib)
177 (pwin (get-buffer-window pbuf)) 177 (pwin (get-buffer-window pbuf))
178 (owin (selected-window)) win 178 (owin (selected-window)) win
179 tobecalled shortname 179 tobecalled shortname
180 (thiscmd (get 'YaTeX-typeset-process 'thiscmd)) 180 (thiscmd (get 'YaTeX-typeset-process 'thiscmd))
181 (ppprop (get 'YaTeX-typeset-process 'ppcmd)) 181 (ppprop (get 'YaTeX-typeset-process 'ppcmd))
182 z (ppcmd (cdr (assq proc ppprop))) 182 (ppcmd (cdr (assq proc ppprop)))
183 (bcprop (get 'YaTeX-typeset-process 'bibcmd)) 183 (bcprop (get 'YaTeX-typeset-process 'bibcmd))
184 (bibcmd (cdr (assq proc bcprop)))) 184 (bibcmd (cdr (assq proc bcprop))))
185 (put 'YaTeX-typeset-process 'ppcmd ;erase ppcmd 185 (put 'YaTeX-typeset-process 'ppcmd ;erase ppcmd
186 (delq (assq proc ppprop) ppprop)) 186 (delq (assq proc ppprop) ppprop))
187 (put 'YaTeX-typeset-process 'bibcmd ;erase bibcmd 187 (put 'YaTeX-typeset-process 'bibcmd ;erase bibcmd
538 (if img 538 (if img
539 (let ((height (cdr (image-size img)))) 539 (let ((height (cdr (image-size img))))
540 (enlarge-window 540 (enlarge-window
541 (- (ceiling (min height (/ (frame-height) 2))) 541 (- (ceiling (min height (/ (frame-height) 2)))
542 (window-height))))) 542 (window-height)))))
543 ;; Remember elapsed time, which will be threshold in auto-preview 543 ;; Remember elapsed time, which will be threshold in onthefly-preview
544 (put 'YaTeX-typeset-conv2image-chain 'elapse 544 (put 'YaTeX-typeset-conv2image-chain 'elapse
545 (YaTeX-elapsed-time 545 (YaTeX-elapsed-time
546 (get 'YaTeX-typeset-conv2image-chain 'start) (current-time)))) 546 (get 'YaTeX-typeset-conv2image-chain 'start) (current-time))))
547 (t 547 (t
548 ;; Without direct image, display image with image viewer 548 ;; Without direct image, display image with image viewer
685 "Cancel typeset-environment timer." 685 "Cancel typeset-environment timer."
686 (interactive) 686 (interactive)
687 (cancel-timer YaTeX-typeset-environment-timer) 687 (cancel-timer YaTeX-typeset-environment-timer)
688 (setq YaTeX-typeset-environment-timer nil) 688 (setq YaTeX-typeset-environment-timer nil)
689 (delete-overlay YaTeX-on-the-fly-overlay) 689 (delete-overlay YaTeX-on-the-fly-overlay)
690 (message "Auto-preview canceled")) 690 (message "On-the-fly preview canceled"))
691
692 691
693 (defun YaTeX-typeset-buffer (&optional pp) 692 (defun YaTeX-typeset-buffer (&optional pp)
694 "Typeset whole buffer. 693 "Typeset whole buffer.
695 If %#! usage says other buffer is main text, 694 If %#! usage says other buffer is main text,
696 visit main buffer to confirm if its includeonly list contains current 695 visit main buffer to confirm if its includeonly list contains current

yatex.org