From 383636fd63d7acff51b2153d1f259d5f910e29b5 Mon Sep 17 00:00:00 2001
From: kgv <kgv@opencascade.com>
Date: Sat, 16 Aug 2014 10:41:30 +0400
Subject: [PATCH] 0025156: Fix compatibility with Emacs 24

---
 src/WOKsite/public_el/wok-view.el | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

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")
-- 
2.39.5