Mercurial > hgrepos > hgweb.cgi > yatex

changeset 38:1ce952ad9c24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Save excursion when getting %#BEGIN through %#END and the line of %#REQUIRE.
author yuuji
date Thu, 14 Jul 1994 17:54:00 +0000
parents 433b27a11019
children 261fcd6d4ad7
files yatexprc.el
diffstat 1 files changed, 27 insertions(+), 26 deletions(-) [+]
line wrap: on
line diff
--- a/yatexprc.el	Thu Jul 14 17:49:36 1994 +0000
+++ b/yatexprc.el	Thu Jul 14 17:54:00 1994 +0000
@@ -2,7 +2,7 @@
 ;;; YaTeX process handler.
 ;;; yatexprc.el
 ;;; (c )1993-1994 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
-;;; Last modified Sat Jul  9 18:24:42 1994 on figaro
+;;; Last modified Thu Jul 14 21:00:27 1994 on figaro
 ;;; $Id$
 
 (require 'yatex)
@@ -137,31 +137,32 @@
 	 (buffer (current-buffer)) opoint preamble (subpreamble "") main
 	 reg-begin reg-end)
 
-      (if (search-backward "%#BEGIN" nil t)
-	  (progn
-	    (setq typeout "--- Region from BEGIN to "
-		  end "the end of the buffer ---"
-		  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 reg-begin (point) reg-end (mark)))
-      (goto-char (point-min))
-      (while (search-forward "%#REQUIRE" nil t)
-	(setq subpreamble
-	      (concat subpreamble
-		      (cond
-		       ((eolp)
-			(buffer-substring
-			 (match-beginning 0)
-			 (point-beginning-of-line)))
-		       (t (buffer-substring
-			   (match-end 0)
-			   (point-end-of-line))))
-		      "\n"))
-	(goto-char (match-end 0)))
+      (save-excursion
+	(if (search-backward "%#BEGIN" nil t)
+	    (progn
+	      (setq typeout "--- Region from BEGIN to "
+		    end "the end of the buffer ---"
+		    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 reg-begin (point) reg-end (mark)))
+	(goto-char (point-min))
+	(while (search-forward "%#REQUIRE" nil t)
+	  (setq subpreamble
+		(concat subpreamble
+			(cond
+			 ((eolp)
+			  (buffer-substring
+			   (match-beginning 0)
+			   (point-beginning-of-line)))
+			 (t (buffer-substring
+			     (match-end 0)
+			     (point-end-of-line))))
+			"\n"))
+	  (goto-char (match-end 0))))
       (YaTeX-visit-main t)
       (setq main (current-buffer))
       (setq opoint (point))

yatex.org