diff yatexlib.el @ 86:f14ec50103d0

as of 2009/9/28
author yuuji@gentei.org
date Mon, 28 Sep 2009 07:56:08 +0900
parents 9b4354af748c
children ce2deaceb818
line wrap: on
line diff
--- a/yatexlib.el	Sun Sep 27 12:53:18 2009 +0000
+++ b/yatexlib.el	Mon Sep 28 07:56:08 2009 +0900
@@ -2,7 +2,7 @@
 ;;; YaTeX and yahtml common libraries, general functions and definitions
 ;;; yatexlib.el
 ;;; (c)1994-2006 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Sun Dec 24 15:12:20 2006 on firestorm
+;;; Last modified Sat Apr 18 07:32:45 2009 on firestorm
 ;;; $Id$
 
 ;; General variables
@@ -313,8 +313,9 @@
 
 ;;;###autoload
 (defun YaTeX-define-begend-key (key env &optional map)
-  "Define short cut key for begin type completion both for normal
-and region mode.  To customize YaTeX, user should use this function."
+  "Define short cut key for begin type completion.
+Define both strokes for normal and region mode.
+To customize YaTeX, user should use this function."
   (YaTeX-define-begend-key-normal key env map)
   (if YaTeX-inhibit-prefix-letter nil
     (YaTeX-define-begend-region-key
@@ -487,7 +488,7 @@
 that gives the maximum value by the FUNC.  FUNC should take an argument
 of its window object.  Non-nil for optional third argument SELECT selects
 that window.  This function never selects minibuffer window."
-  (or (and (if (and YaTeX-emacs-19 select)
+  (or (and (if (and YaTeX-emacs-19 select window-system)
 	       (get-buffer-window buffer t)
 	     (get-buffer-window buffer))
 	   (progn
@@ -516,7 +517,7 @@
 	  (or select (select-window window)))
 	 (t				;if one-window
 	  (cond
-	   ((and YaTeX-emacs-19 (get-buffer-window buffer t))
+	   ((and YaTeX-emacs-19 window-system (get-buffer-window buffer t))
 	    nil)			;if found in other frame
 	   (YaTeX-default-pop-window-height
 	    (split-window-calculate-height YaTeX-default-pop-window-height)

yatex.org