yatex

changeset 182:67b1e094e151 dev

Direct call to screen-{height,width} avoided for coming emacsen.
author yuuji@gentei.org
date Thu, 13 Oct 2011 09:50:45 +0900
parents ab7cd5129797
children 1c41dc8a28eb
files yatex.el yatexlib.el yatexmth.el
diffstat 3 files changed, 14 insertions(+), 10 deletions(-) [+]
line diff
     1.1 --- a/yatex.el	Fri Oct 07 16:00:52 2011 +0900
     1.2 +++ b/yatex.el	Thu Oct 13 09:50:45 2011 +0900
     1.3 @@ -1,15 +1,15 @@
     1.4  ;;; -*- Emacs-Lisp -*-
     1.5  ;;; Yet Another tex-mode for emacs - //–ì’¹//
     1.6 -;;; yatex.el rev. 1.74.4
     1.7 +;;; yatex.el rev. 1.74.5
     1.8  ;;; (c)1991-2011 by HIROSE Yuuji.[yuuji@yatex.org]
     1.9 -;;; Last modified Fri Oct  7 15:58:31 2011 on firestorm
    1.10 +;;; Last modified Thu Oct 13 09:38:58 2011 on firestorm
    1.11  ;;; $Id$
    1.12  ;;; The latest version of this software is always available at;
    1.13  ;;; http://www.yatex.org/
    1.14  
    1.15  (require 'comment)
    1.16  (require 'yatexlib)
    1.17 -(defconst YaTeX-revision-number "1.74.4"
    1.18 +(defconst YaTeX-revision-number "1.74.5"
    1.19    "Revision number of running yatex.el")
    1.20  
    1.21  ;---------- Local variables ----------
    1.22 @@ -510,7 +510,7 @@
    1.23    (if YaTeX-dos
    1.24        (define-key YaTeX-prefix-map "\C-r"
    1.25  	'(lambda () (interactive)
    1.26 -	   (set-screen-height YaTeX-saved-screen-height) (recenter)))))
    1.27 +	   (YaTeX-set-screen-height YaTeX-saved-screen-height) (recenter)))))
    1.28  
    1.29  (defvar YaTeX-section-completion-map nil
    1.30    "*Key map used at YaTeX completion in the minibuffer.")
    1.31 @@ -692,7 +692,7 @@
    1.32  	))
    1.33    (use-local-map YaTeX-mode-map)
    1.34    (set-syntax-table YaTeX-mode-syntax-table)
    1.35 -  (if YaTeX-dos (setq YaTeX-saved-screen-height (screen-height)))
    1.36 +  (if YaTeX-dos (setq YaTeX-saved-screen-height (YaTeX-screen-height)))
    1.37    (YaTeX-read-user-completion-table)
    1.38    (and (fboundp 'YaTeX-hilit-setup-alist) (YaTeX-hilit-setup-alist))
    1.39    (makunbound 'inenv)
     2.1 --- a/yatexlib.el	Fri Oct 07 16:00:52 2011 +0900
     2.2 +++ b/yatexlib.el	Thu Oct 13 09:50:45 2011 +0900
     2.3 @@ -2,7 +2,7 @@
     2.4  ;;; YaTeX and yahtml common libraries, general functions and definitions
     2.5  ;;; yatexlib.el
     2.6  ;;; (c)1994-2009 by HIROSE Yuuji.[yuuji@yatex.org]
     2.7 -;;; Last modified Fri Feb 18 15:05:08 2011 on firestorm
     2.8 +;;; Last modified Thu Oct 13 09:36:20 2011 on firestorm
     2.9  ;;; $Id$
    2.10  
    2.11  ;; General variables
    2.12 @@ -530,11 +530,15 @@
    2.13  (cond
    2.14   ((fboundp 'screen-height)
    2.15    (fset 'YaTeX-screen-height 'screen-height)
    2.16 -  (fset 'YaTeX-screen-width 'screen-width))
    2.17 +  (fset 'YaTeX-screen-width 'screen-width)
    2.18 +  (fset 'YaTeX-set-screen-height 'set-screen-height)
    2.19 +  (fset 'YaTeX-set-screen-width 'set-screen-width))
    2.20   ((fboundp 'frame-height)
    2.21    (fset 'YaTeX-screen-height 'frame-height)
    2.22 -  (fset 'YaTeX-screen-width 'frame-width))
    2.23 - (t (error "I don't know how to run windows.el on this Emacs...")))
    2.24 +  (fset 'YaTeX-screen-width 'frame-width)
    2.25 +  (fset 'YaTeX-set-screen-height 'set-frame-height)
    2.26 +  (fset 'YaTeX-set-screen-width 'set-frame-width))
    2.27 + (t (error "I don't know how to run YaTeX on this Emacs...")))
    2.28  
    2.29  ;;;###autoload
    2.30  (defun split-window-calculate-height (height)
     3.1 --- a/yatexmth.el	Fri Oct 07 16:00:52 2011 +0900
     3.2 +++ b/yatexmth.el	Thu Oct 13 09:50:45 2011 +0900
     3.3 @@ -2,7 +2,7 @@
     3.4  ;;; YaTeX math-mode-specific functions.
     3.5  ;;; yatexmth.el
     3.6  ;;; (c)1993-2010 by HIROSE Yuuji [yuuji@yatex.org]
     3.7 -;;; Last modified Thu Mar 24 10:30:18 2011 on firestorm
     3.8 +;;; Last modified Fri Oct  7 15:53:34 2011 on firestorm
     3.9  ;;; $Id$
    3.10  
    3.11  ;;; [Customization guide]