Fix missing variable error. Improve documentation string.

diff --git a/v7/src/edwin/os2com.scm b/v7/src/edwin/os2com.scm
index abeb2884ee9d20fc0afc044959d4f6ade8dfd683..569a972ff02cd0f43bbc85de909ff222d92bbd0e 100644 (file)
--- a/v7/src/edwin/os2com.scm
+++ b/v7/src/edwin/os2com.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: os2com.scm,v 1.3 1996/04/23 23:08:01 cph Exp $
+;;;    $Id: os2com.scm,v 1.4 1996/05/03 06:55:22 cph Exp $
 ;;;
 ;;;    Copyright (c) 1994-96 Massachusetts Institute of Technology
 ;;;
@@ -85,7 +85,7 @@ but changes the meaning of COLOR-NAME when it is used in the future."
 
 (define-command set-frame-position
   "Set position of editor frame to (X,Y)."
-  "nX position (pels)\nnY position (pels)"
+  "nFrame X position (pels)\nnFrame Y position (pels)"
   (lambda (x y)
     (os2-screen/set-position! (selected-screen) x y)))
 
@@ -131,11 +131,12 @@ Useful only if `frame-name-format' is false."
   (let ((window
         (if (and (selected-screen? screen) (within-typein-edit?))
             (typein-edit-other-window)
-            (screen-selected-window screen)))
-       (format (ref-variable frame-name-format buffer))
-       (length (ref-variable frame-name-length buffer)))
-    (if format
-       (os2-screen/set-title!
-        screen
-        (string-trim-right
-         (format-modeline-string window format length))))))
\ No newline at end of file
+            (screen-selected-window screen))))
+    (let ((buffer (window-buffer window)))
+      (let ((format (ref-variable frame-name-format buffer))
+           (length (ref-variable frame-name-length buffer)))
+       (if format
+           (os2-screen/set-title!
+            screen
+            (string-trim-right
+             (format-modeline-string window format length))))))))
\ No newline at end of file