From: kgv <kgv@opencascade.com>
Date: Sat, 16 Aug 2014 06:41:30 +0000 (+0400)
Subject: 0025156: Fix compatibility with Emacs 24
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=383636fd63d7acff51b2153d1f259d5f910e29b5;p=occt-wok.git

0025156: Fix compatibility with Emacs 24
---

diff --git a/src/WOKsite/public_el/wok-view.el b/src/WOKsite/public_el/wok-view.el
index 5f14ed3..b8a606f 100644
--- a/src/WOKsite/public_el/wok-view.el
+++ b/src/WOKsite/public_el/wok-view.el
@@ -3,8 +3,15 @@
 ;; Load color settings
 ;;(set-default-font "Courier New:14")
 ;(set-default-font "DejaVu Sans Mono Bold:14")
-(set-screen-width  120)
-(set-screen-height 55)
+(if (>= emacs-major-version 20)
+    (progn
+      (message "Emacs 21!")
+      (set-frame-width  (selected-frame) 120)
+      (set-frame-height (selected-frame) 55))
+    (progn
+      (set-screen-width  120)
+      (set-screen-height 55)))
+
 ;;(set-background-color "MidnightBlue")
 (set-background-color "White")
 (set-foreground-color "Black")