Mercurial > hgrepos > hgweb.cgi > yatex

changeset 380:f061b37c7542 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Equalize boundary of non-math environment with math environment.
author HIROSE Yuuji <yuuji@gentei.org>
date Sun, 04 Jan 2015 21:41:00 +0900
parents 09a2b5a3b3d8
children fc1ad3b337a9
files yatexlib.el yatexprc.el
diffstat 2 files changed, 53 insertions(+), 44 deletions(-) [+]
line wrap: on
line diff
--- a/yatexlib.el	Sun Jan 04 21:06:32 2015 +0900
+++ b/yatexlib.el	Sun Jan 04 21:41:00 2015 +0900
@@ -1,7 +1,7 @@
 ;;; yatexlib.el --- YaTeX and yahtml common libraries
 ;;; 
 ;;; (c)1994-2013 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Sun Jan  4 00:16:04 2015 on firestorm
+;;; Last modified Sun Jan  4 21:04:29 2015 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -1119,7 +1119,7 @@
 	    (goto-char curp)
 	    (error "Cannot found the end of current environment."))
 	(YaTeX-goto-corresponding-environment)
-	(beginning-of-line)		;for confirmation
+	;;(beginning-of-line)		;for confirmation ;OUT 2015/1/4
 	(if (< curp (point))
 	    (progn
 	      (message "Mark this environment?(y or n): ")
@@ -1128,8 +1128,10 @@
 		(error "Abort.  Please call again at more proper position."))))
 	(set-mark-command nil)
 	(YaTeX-goto-corresponding-environment)
-	(end-of-line)
-	(if (eobp) nil (forward-char 1))))))
+	(goto-char (match-end 0))
+	;;(end-of-line)				;OUT 2015/1/5
+	;;(if (eobp) nil (forward-char 1))	;OUT 2015/1/5
+	))))
 
 (defun YaTeX-kill-buffer (buffer)
   "Make effort to show parent buffer after kill."
--- a/yatexprc.el	Sun Jan 04 21:06:32 2015 +0900
+++ b/yatexprc.el	Sun Jan 04 21:41:00 2015 +0900
@@ -1,7 +1,7 @@
 ;;; yatexprc.el --- YaTeX process handler
 ;;; 
 ;;; (c)1993-2014 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Sun Jan  4 19:11:36 2015 on firestorm
+;;; Last modified Sun Jan  4 19:56:26 2015 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -582,49 +582,56 @@
      ((not (string= st (YaTeX-buffer-substring s (overlay-end overlay))))
       (YaTeX-typeset-environment)))))
 
+(defun YaTeX-typeset-environment-1 ()
+  (let ((math (YaTeX-in-math-mode-p)) usetimer)
+    (cond
+     ((and YaTeX-on-the-fly-overlay (overlayp YaTeX-on-the-fly-overlay)
+	   (member YaTeX-on-the-fly-overlay (overlays-at (point))))
+      ;; If current position is in on-the-fly overlay,
+      ;; use that region again
+      (setq math (get 'YaTeX-typeset-conv2image-chain 'math))
+      (push-mark (overlay-start YaTeX-on-the-fly-overlay))
+      (goto-char (overlay-end YaTeX-on-the-fly-overlay)))
+     ((and (fboundp 'region-active-p) (region-active-p))
+      nil)				;if region is active, use it
+     (math (setq usetimer t) (YaTeX-mark-environment))
+     ((equal (or (YaTeX-inner-environment t) "document") "document")
+      (mark-paragraph))
+     (t (setq usetimer t) (YaTeX-mark-environment)))
+    (if YaTeX-use-image-preview
+	(let ((YaTeX-typeset-buffer (concat "*bg:" YaTeX-typeset-buffer))
+	      (b (region-beginning)) (e (region-end)))
+	  (put 'YaTeX-typeset-conv2image-chain 'math math)
+	  (put 'YaTeX-typeset-conv2image-chain 'srctype nil)
+	  (put 'YaTeX-typeset-conv2image-chain 'win (selected-window))
+	  (put 'YaTeX-typeset-conv2image-chain 'start (current-time))
+	  (put 'YaTeX-typeset-environment-timer 'laststate
+	       (list (current-buffer) b e (preceding-char)
+		     (char-after (- (point) 2))
+		     (YaTeX-buffer-substring b e)
+		     (current-time)))
+	  (YaTeX-typeset-region 'YaTeX-typeset-conv2image-chain)
+	  (if usetimer
+	      (progn
+		(if YaTeX-on-the-fly-overlay
+		    (move-overlay YaTeX-on-the-fly-overlay b e)
+		  (overlay-put
+		   (setq YaTeX-on-the-fly-overlay (make-overlay b e))
+		   'face 'YaTeX-on-the-fly-activated-face))
+		(YaTeX-typeset-environment-auto)
+		)))
+      (YaTeX-typeset-region))))
+
 (defun YaTeX-typeset-environment ()
   "Typeset current environment or paragraph.
 If region activated, use it."
   (interactive)
-  (save-excursion
-    (let ((math (YaTeX-in-math-mode-p)) usetimer)
-      (cond
-       ((and YaTeX-on-the-fly-overlay (overlayp YaTeX-on-the-fly-overlay)
-	     (member YaTeX-on-the-fly-overlay (overlays-at (point))))
-	;; If current position is in on-the-fly overlay,
-	;; use that region again
-	(setq math (get 'YaTeX-typeset-conv2image-chain 'math))
-	(push-mark (overlay-start YaTeX-on-the-fly-overlay))
-	(goto-char (overlay-end YaTeX-on-the-fly-overlay)))
-       ((and (fboundp 'region-active-p) (region-active-p))
-	nil)				;if region is active, use it
-       (math (setq usetimer t) (YaTeX-mark-environment))
-       ((equal (or (YaTeX-inner-environment t) "document") "document")
-	(mark-paragraph))
-       (t (setq usetimer t) (YaTeX-mark-environment)))
-      (if YaTeX-use-image-preview
-	  (let ((YaTeX-typeset-buffer (concat "*bg:" YaTeX-typeset-buffer))
-		(b (region-beginning)) (e (region-end)))
-	    (put 'YaTeX-typeset-conv2image-chain 'math math)
-	    (put 'YaTeX-typeset-conv2image-chain 'srctype nil)
-	    (put 'YaTeX-typeset-conv2image-chain 'win (selected-window))
-	    (put 'YaTeX-typeset-conv2image-chain 'start (current-time))
-	    (put 'YaTeX-typeset-environment-timer 'laststate
-		 (list (current-buffer) b e (preceding-char)
-		       (char-after (- (point) 2))
-		       (YaTeX-buffer-substring b e)
-		       (current-time)))
-	    (YaTeX-typeset-region 'YaTeX-typeset-conv2image-chain)
-	    (if usetimer
-		(progn
-		  (if YaTeX-on-the-fly-overlay
-		      (move-overlay YaTeX-on-the-fly-overlay b e)
-		    (overlay-put
-		     (setq YaTeX-on-the-fly-overlay (make-overlay b e))
-		     'face 'YaTeX-on-the-fly-activated-face))
-		  (YaTeX-typeset-environment-auto)
-		  )))
-	(YaTeX-typeset-region)))))
+  (let ((md (match-data)))
+    (unwind-protect
+	(save-excursion
+	  (YaTeX-typeset-environment-1))
+      (store-match-data md))))
+
 
 (defvar YaTeX-on-the-fly-preview-interval (string-to-number "0.9")
   "*Control the on-the-fly update of preview environment by an image.

yatex.org