move-to-upper-left window defun