/[emacs]/emacs/lisp/frame.el
ViewVC logotype

Diff of /emacs/lisp/frame.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.194 by eliz, Fri Apr 12 16:50:17 2002 UTC revision 1.195 by rms, Sat Aug 24 02:59:27 2002 UTC
# Line 654  automatically." Line 654  automatically."
654      (select-frame frame)      (select-frame frame)
655      (raise-frame frame)      (raise-frame frame)
656      ;; Ensure, if possible, that frame gets input focus.      ;; Ensure, if possible, that frame gets input focus.
657      (when (eq window-system 'w32)      (cond ((eq window-system 'x)
658        (w32-focus-frame frame))             (x-focus-frame frame))
659              ((eq window-system 'w32)
660               (w32-focus-frame frame)))
661      (cond (focus-follows-mouse      (cond (focus-follows-mouse
662             (unless (eq window-system 'w32)             (set-mouse-position (selected-frame) (1- (frame-width)) 0))))
              (set-mouse-position (selected-frame) (1- (frame-width)) 0)))  
           (t  
            (when (eq window-system 'x)  
              (x-focus-frame frame)))))  
663    
664  (defun other-frame (arg)  (defun other-frame (arg)
665    "Select the ARG'th different visible frame on current display, and raise it.    "Select the ARG'th different visible frame on current display, and raise it.
# Line 721  If there is no frame by that name, signa Line 719  If there is no frame by that name, signa
719      (raise-frame frame)      (raise-frame frame)
720      (select-frame frame)      (select-frame frame)
721      ;; Ensure, if possible, that frame gets input focus.      ;; Ensure, if possible, that frame gets input focus.
722      (if (eq window-system 'w32)      (cond ((eq window-system 'x)
723          (w32-focus-frame frame)             (x-focus-frame frame))
724        (when focus-follows-mouse            ((eq window-system 'w32)
725          (set-mouse-position (selected-frame) (1- (frame-width)) 0)))))             (w32-focus-frame frame)))
726        (when focus-follows-mouse
727          (set-mouse-position frame (1- (frame-width frame)) 0))))
728    
729  ;;;; Frame configurations  ;;;; Frame configurations
730    

Legend:
Removed from v.1.194  
changed lines
  Added in v.1.195

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26