Mercurial > hgrepos > hgweb.cgi > yatex
diff yatexlib.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 | ab02213f5683 |
children | 2f91947a43a1 |
line wrap: on
line diff
--- a/yatexlib.el Fri Oct 07 16:00:52 2011 +0900 +++ b/yatexlib.el Thu Oct 13 09:50:45 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 Oct 13 09:36:20 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)