diff yatex.el @ 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 85e57c4b27a2
line wrap: on
line diff
--- a/yatex.el	Fri Oct 07 16:00:52 2011 +0900
+++ b/yatex.el	Thu Oct 13 09:50:45 2011 +0900
@@ -1,15 +1,15 @@
 ;;; -*- Emacs-Lisp -*-
 ;;; Yet Another tex-mode for emacs - //–ì’¹//
-;;; yatex.el rev. 1.74.4
+;;; yatex.el rev. 1.74.5
 ;;; (c)1991-2011 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Fri Oct  7 15:58:31 2011 on firestorm
+;;; Last modified Thu Oct 13 09:38:58 2011 on firestorm
 ;;; $Id$
 ;;; The latest version of this software is always available at;
 ;;; http://www.yatex.org/
 
 (require 'comment)
 (require 'yatexlib)
-(defconst YaTeX-revision-number "1.74.4"
+(defconst YaTeX-revision-number "1.74.5"
   "Revision number of running yatex.el")
 
 ;---------- Local variables ----------
@@ -510,7 +510,7 @@
   (if YaTeX-dos
       (define-key YaTeX-prefix-map "\C-r"
 	'(lambda () (interactive)
-	   (set-screen-height YaTeX-saved-screen-height) (recenter)))))
+	   (YaTeX-set-screen-height YaTeX-saved-screen-height) (recenter)))))
 
 (defvar YaTeX-section-completion-map nil
   "*Key map used at YaTeX completion in the minibuffer.")
@@ -692,7 +692,7 @@
 	))
   (use-local-map YaTeX-mode-map)
   (set-syntax-table YaTeX-mode-syntax-table)
-  (if YaTeX-dos (setq YaTeX-saved-screen-height (screen-height)))
+  (if YaTeX-dos (setq YaTeX-saved-screen-height (YaTeX-screen-height)))
   (YaTeX-read-user-completion-table)
   (and (fboundp 'YaTeX-hilit-setup-alist) (YaTeX-hilit-setup-alist))
   (makunbound 'inenv)

yatex.org