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 5f14ed308d8cc1f241493746d2638918d4d8e85b..b8a606f8ed70c400852b8a2a18ca9068861b1cab 100644 (file)
--- 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")