yatex
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 diff
1.1 --- a/yatexlib.el Sun Dec 24 06:16:52 2006 +0000 1.2 +++ b/yatexlib.el Mon Sep 28 07:56:08 2009 +0900 1.3 @@ -2,7 +2,7 @@ 1.4 ;;; YaTeX and yahtml common libraries, general functions and definitions 1.5 ;;; yatexlib.el 1.6 ;;; (c)1994-2006 by HIROSE Yuuji.[yuuji@yatex.org] 1.7 -;;; Last modified Sun Dec 24 15:12:20 2006 on firestorm 1.8 +;;; Last modified Sat Apr 18 07:32:45 2009 on firestorm 1.9 ;;; $Id$ 1.10 1.11 ;; General variables 1.12 @@ -313,8 +313,9 @@ 1.13 1.14 ;;;###autoload 1.15 (defun YaTeX-define-begend-key (key env &optional map) 1.16 - "Define short cut key for begin type completion both for normal 1.17 -and region mode. To customize YaTeX, user should use this function." 1.18 + "Define short cut key for begin type completion. 1.19 +Define both strokes for normal and region mode. 1.20 +To customize YaTeX, user should use this function." 1.21 (YaTeX-define-begend-key-normal key env map) 1.22 (if YaTeX-inhibit-prefix-letter nil 1.23 (YaTeX-define-begend-region-key 1.24 @@ -487,7 +488,7 @@ 1.25 that gives the maximum value by the FUNC. FUNC should take an argument 1.26 of its window object. Non-nil for optional third argument SELECT selects 1.27 that window. This function never selects minibuffer window." 1.28 - (or (and (if (and YaTeX-emacs-19 select) 1.29 + (or (and (if (and YaTeX-emacs-19 select window-system) 1.30 (get-buffer-window buffer t) 1.31 (get-buffer-window buffer)) 1.32 (progn 1.33 @@ -516,7 +517,7 @@ 1.34 (or select (select-window window))) 1.35 (t ;if one-window 1.36 (cond 1.37 - ((and YaTeX-emacs-19 (get-buffer-window buffer t)) 1.38 + ((and YaTeX-emacs-19 window-system (get-buffer-window buffer t)) 1.39 nil) ;if found in other frame 1.40 (YaTeX-default-pop-window-height 1.41 (split-window-calculate-height YaTeX-default-pop-window-height)