yatex: yatexprc.el comparison

comparison yatexprc.el @ 52:5d94deabb9f9

Set YaTeX-indent-line to 'indent-line-function. Revise fill features.

author	yuuji
date	Sun, 22 Jan 1995 14:20:46 +0000
parents	b0371b6ed799
children	5f4b18da14b3

comparison

equal deleted inserted replaced

-:b0371b6ed799
+:5d94deabb9f9
 ;;; -*- Emacs-Lisp -*-
 ;;; YaTeX process handler.
 ;;; yatexprc.el
-;;; (c )1993-1994 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
+;;; (c )1993-1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
-;;; Last modified Wed Dec 14 16:58:15 1994 on 98fa
+;;; Last modified Sun Jan 22 23:14:44 1995 on landcruiser
 ;;; $Id$
 (require 'yatex)
 (defvar YaTeX-typeset-process nil
 (defvar YaTeX-texput-file "texput.tex"
 "*File name for temporary file of typeset-region."
 )
 (defun YaTeX-typeset-region ()
-"Paste the region to the file `texput.tex' and execute jlatex (or other)
+"Paste the region to the file `texput.tex' and execute typesetter.
-to LaTeX typeset.  The region is specified by the rule:
+The region is specified by the rule:
 	(1)If keyword `%#BEGIN' is found in the upper direction from (point).
 	  (1-1)if the keyword `%#END' is found after `%#BEGIN',
 		->Assume the text between `%#BEGIN' and `%#END' as region.
 	  (1-2)if the keyword `%#END' is not found anywhere after `%#BEGIN',
 		->Assume the text after `%#BEGIN' as region.
 	((end "") typeout ;Type out message that tells the method of cutting.
 	 (texput YaTeX-texput-file)
 	 (cmd (concat (YaTeX-get-latex-command nil) " " texput))
 	 (buffer (current-buffer)) opoint preamble (subpreamble "") main
 	 (hilit-auto-highlight nil)	;for Emacs19 with hilit19
-	 reg-begin reg-end)
+	 reg-begin reg-end lineinfo)
 (save-excursion
 	(if (search-backward "%#BEGIN" nil t)
 	    (progn
 	      (setq typeout "--- Region from BEGIN to "
 		    reg-begin (match-end 0))
 	      (if (search-forward "%#END" nil t)
 		  (setq reg-end (match-beginning 0)
 			end "END ---")
 		(setq reg-end (point-max))))
-	  (setq typeout "=== Region from (point) to (mark) ===")
+	  (setq typeout "=== Region from (point) to (mark) ==="
-	  (setq reg-begin (point) reg-end (mark)))
+		reg-begin (point) reg-end (mark)))
+	(goto-char (min reg-begin reg-end))
+	(setq lineinfo (count-lines (point-min) (point-end-of-line)))
 	(goto-char (point-min))
 	(while (search-forward "%#REQUIRE" nil t)
 	  (setq subpreamble
 		(concat subpreamble
 			(cond
 	   (buffer-substring (point-min) (match-end 0))
 	 (concat "\\documentstyle{" YaTeX-default-document-style "}\n"
 		 "\\begin{document}")))
 (goto-char opoint)
 ;;(set-buffer buffer)		;for clarity
-(set-buffer (find-file-noselect texput))
+(let ((hilit-auto-highlight nil))
+	(set-buffer (find-file-noselect texput)))
 ;;(find-file YaTeX-texput-file)
 (erase-buffer)
 (if YaTeX-need-nonstop
 	  (insert "\\nonstopmode{}\n"))
 (insert preamble "\n" subpreamble "\n")
+(setq lineinfo (list (count-lines 1 (point-end-of-line)) lineinfo))
 (insert-buffer-substring buffer reg-begin reg-end)
 (insert "\\typeout{" typeout end "}\n") ;Notice the selected method.
 (insert "\n\\end{document}\n")
 (basic-save-buffer)
 (kill-buffer (current-buffer))
 (set-buffer main)		;return to parent file or itself.
 (YaTeX-typeset cmd YaTeX-typeset-buffer)
 (switch-to-buffer buffer)		;for Emacs-19
-(put 'dvi2-command 'region t)))
+(put 'dvi2-command 'region t)
+(put 'dvi2-command 'file buffer)
+(put 'dvi2-command 'offset lineinfo)
+))
 )
 (defun YaTeX-typeset-buffer ()
 "Typeset whole buffer.  If %#! usage says other buffer is main text,
 visit main buffer to confirm if its includeonly list contains current
 	(message
 	 (concat "Starting " preview-command
 		 " to preview " preview-file))))))
 )
+(defun YaTeX-set-virtual-error-position (file-sym line-sym)
+"Replace the value of FILE-SYM, LINE-SYM by virtual error position."
+(cond
+((and (get 'dvi2-command 'region)
+	 (> (symbol-value line-sym) (car (get 'dvi2-command 'offset))))
+(set file-sym (get 'dvi2-command 'file))
+(set line-sym
+	 (+ (- (apply '- (get 'dvi2-command 'offset)))
+	    (symbol-value line-sym)
+	    -1)))))
 (defun YaTeX-prev-error ()
 "Visit previous typeset error.
 To avoid making confliction of line numbers by editing, jump to
 error or warning lines in reverse order."
 (interactive)
 (setq error-line
 	  (string-to-int
 	   (buffer-substring
 	    (point)
 	    (progn (skip-chars-forward "0-9" (match-end 0)) (point))))
-	  error-buffer (YaTeX-get-error-file cur-buf)
+	  error-buffer (YaTeX-get-error-file cur-buf))
-	  error-win (get-buffer-window error-buffer))
 (if (or (null error-line) (equal 0 error-line))
 	(error "Can't detect error position."))
+(YaTeX-set-virtual-error-position 'error-buffer 'error-line)
+(setq error-win (get-buffer-window error-buffer))
 (select-window cur-win)
 (cond
 (error-win (select-window error-win))
 ((eq (get-lru-window) typeset-win)
 (YaTeX-switch-to-buffer error-buffer))
 	(if (eobp) (insert (this-command-keys))
 	  (error "No line number expression."))
 (goto-char (match-beginning 0))
 (setq error-line (string-to-int
 			(buffer-substring (match-beginning 1) (match-end 1)))
-	    error-file (YaTeX-get-error-file YaTeX-current-TeX-buffer)
+	    error-file (YaTeX-get-error-file YaTeX-current-TeX-buffer))
-	    error-buf (YaTeX-switch-to-buffer error-file t))
+(YaTeX-set-virtual-error-position 'error-file 'error-line)
+(setq error-buf (YaTeX-switch-to-buffer error-file t)))
 (if (null error-buf)
 	  (error "`%s' is not found in this directory." error-file))
 (YaTeX-showup-buffer error-buf nil t)
-(goto-line error-line)))
+(goto-line error-line))
 )
 (defun YaTeX-send-string ()
 "Send string to current typeset process."
 (interactive)
 (defun YaTeX-lpr (arg)
 "Print out.  If prefix arg ARG is non nil, call print driver without
 page range description."
 (interactive "P")
 (let*((cmd (or (YaTeX-get-builtin "LPR") dviprint-command-format))
-	from to (lbuffer "*dvi-printing*"))
+	from to (lbuffer "*dvi-printing*") dir)
 (setq
 cmd
 (YaTeX-replace-format
 cmd "f"
 (if (or arg (not (string-match "%f" cmd)))
 	   "Edit command line: "
 	   (format cmd (YaTeX-get-preview-file-name))
 	   'YaTeX-lpr-command-history))
 (save-excursion
 (YaTeX-visit-main t) ;;change execution directory
+(setq dir default-directory)
 (YaTeX-showup-buffer
 lbuffer (function (lambda (x) (nth 3 (window-edges x)))))
 (set-buffer (get-buffer-create lbuffer))
 (erase-buffer)
+(cd dir)				;for 19
 (cond
 (YaTeX-dos
 	(call-process shell-file-name "con" "*dvi-printing*" nil
 		      YaTeX-shell-command-option cmd))
 (t
 )
 (defun YaTeX-main-file-p ()
 "Return if current buffer is main LaTeX source."
 (cond
+(YaTeX-parent-file
+(eq (get-file-buffer YaTeX-parent-file) (current-buffer)))
 ((YaTeX-get-builtin "!")
 (string-match (YaTeX-guess-parent (YaTeX-get-builtin "!")) (buffer-name)))
 (t
 (save-excursion
 (let ((latex-main-id (concat "^\\s *" YaTeX-ec-regexp "documentstyle")))

Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexprc.el @ 52:5d94deabb9f9