Mercurial > hgrepos > hgweb.cgi > yatex

changeset 191:af2098da767b dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make dev branch single
author yuuji@gentei.org
date Sat, 17 Dec 2011 13:07:38 +0900
parents 3db120d6b7d1 (current diff) 2f91947a43a1 (diff)
children 7cf62e088eb5
files yahtml.el yatex.el
diffstat 3 files changed, 22 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/docs/qanda	Sat Dec 17 13:02:40 2011 +0900
+++ b/docs/qanda	Sat Dec 17 13:07:38 2011 +0900
@@ -344,8 +344,8 @@
 		└──────────────┘
 	
 	てな具合になるわけですよ。おおかちょええ。さて、小文字program環
-	境のマクロ定義を良く見ると環境に渡した foo.c はそのまま
-	\label{#1} でラベルとして自動的に打たれることになる。あ、pLaTeX 
+	境のマクロ定義を良く見ると環境に渡した foo.c はそのまま自動的に
+	\label{#1} でラベルとして打たれることになります。あ、pLaTeX 
 	のラベルは日本語もOKよ。で、その暗黙のうちに打たれたラベル名を野
 	鳥に教えるというのがスマートなやり方です。これを定義するのが変数
 	YaTeX::ref-labeling-regexp-alist-private なり。これには
--- a/yahtml.el	Sat Dec 17 13:02:40 2011 +0900
+++ b/yahtml.el	Sat Dec 17 13:07:38 2011 +0900
@@ -1,6 +1,6 @@
 ;;; -*- Emacs-Lisp -*-
 ;;; (c) 1994-2011 by HIROSE Yuuji [yuuji(@)yatex.org]
-;;; Last modified Sat Dec 17 13:00:34 2011 on firestorm
+;;; Last modified Mon May 16 15:49:38 2011 on firestorm
 ;;; $Id$
 
 (defconst yahtml-revision-number "1.74.2"
--- a/yatexlib.el	Sat Dec 17 13:02:40 2011 +0900
+++ b/yatexlib.el	Sat Dec 17 13:07:38 2011 +0900
@@ -2,7 +2,7 @@
 ;;; YaTeX and yahtml common libraries, general functions and definitions
 ;;; yatexlib.el
 ;;; (c)1994-2009 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Fri Feb 18 15:05:08 2011 on firestorm
+;;; Last modified Thu Dec 15 13:37:26 2011 on firestorm
 ;;; $Id$
 
 ;; General variables
@@ -530,11 +530,15 @@
 (cond
  ((fboundp 'screen-height)
   (fset 'YaTeX-screen-height 'screen-height)
-  (fset 'YaTeX-screen-width 'screen-width))
+  (fset 'YaTeX-screen-width 'screen-width)
+  (fset 'YaTeX-set-screen-height 'set-screen-height)
+  (fset 'YaTeX-set-screen-width 'set-screen-width))
  ((fboundp 'frame-height)
   (fset 'YaTeX-screen-height 'frame-height)
-  (fset 'YaTeX-screen-width 'frame-width))
- (t (error "I don't know how to run windows.el on this Emacs...")))
+  (fset 'YaTeX-screen-width 'frame-width)
+  (fset 'YaTeX-set-screen-height 'set-frame-height)
+  (fset 'YaTeX-set-screen-width 'set-frame-width))
+ (t (error "I don't know how to run YaTeX on this Emacs...")))
 
 ;;;###autoload
 (defun split-window-calculate-height (height)
@@ -908,7 +912,7 @@
 		    (goto-char m0)
 		    (put 'YaTeX-inner-environment 'indent (current-column))
 		    (throw 'begin t)))))
-	  (buffer-substring
+	  (YaTeX-buffer-substring
 	   (progn (skip-chars-forward open) (1+ (point)))
 	   (progn (skip-chars-forward close) (point)))))))
 
@@ -994,9 +998,16 @@
   (let ((env (YaTeX-inner-environment)))
     (if (not env) (error "No premature environment")
       (save-excursion
-	(if (YaTeX-search-active-forward
-	     (YaTeX-replace-format-args YaTeX-struct-end env "" "")
-	     YaTeX-comment-prefix nil t)
+	(if (and
+	     (YaTeX-re-search-active-forward
+	      (concat
+	       "\\(" (YaTeX-replace-format-args
+		      YaTeX-struct-end env "" "")
+	       "\\)\\|\\(" (YaTeX-replace-format-args
+		      YaTeX-struct-begin env "" "")
+	       "\\)")
+	      YaTeX-comment-prefix nil t)
+	     (match-beginning 1))	;is closing struc.
 	    (if (y-or-n-p
 		 (concat "Environment `" env
 			 "' may be already closed. Force close?"))

yatex.org