[Emacs-diffs] Changes to emacs/lisp/frame.el

[Richard M. Stallman]

Index: emacs/lisp/frame.el
diff -c emacs/lisp/frame.el:1.194 emacs/lisp/frame.el:1.195
*** emacs/lisp/frame.el:1.194   Fri Apr 12 12:50:17 2002
--- emacs/lisp/frame.el Fri Aug 23 22:59:27 2002
***************
*** 654,667 ****
      (select-frame frame)
      (raise-frame frame)
      ;; Ensure, if possible, that frame gets input focus.
!     (when (eq window-system 'w32)
!       (w32-focus-frame frame))
      (cond (focus-follows-mouse
!          (unless (eq window-system 'w32)
!            (set-mouse-position (selected-frame) (1- (frame-width)) 0)))
!         (t
!          (when (eq window-system 'x)
!            (x-focus-frame frame)))))
  
  (defun other-frame (arg)
    "Select the ARG'th different visible frame on current display, and raise it.
--- 654,665 ----
      (select-frame frame)
      (raise-frame frame)
      ;; Ensure, if possible, that frame gets input focus.
!     (cond ((eq window-system 'x)
!          (x-focus-frame frame))
!         ((eq window-system 'w32)
!          (w32-focus-frame frame)))
      (cond (focus-follows-mouse
!          (set-mouse-position (selected-frame) (1- (frame-width)) 0))))
  
  (defun other-frame (arg)
    "Select the ARG'th different visible frame on current display, and raise it.
***************
*** 721,730 ****
      (raise-frame frame)
      (select-frame frame)
      ;; Ensure, if possible, that frame gets input focus.
!     (if (eq window-system 'w32)
!       (w32-focus-frame frame)
!       (when focus-follows-mouse
!       (set-mouse-position (selected-frame) (1- (frame-width)) 0)))))
  
  ;;;; Frame configurations
  
--- 719,730 ----
      (raise-frame frame)
      (select-frame frame)
      ;; Ensure, if possible, that frame gets input focus.
!     (cond ((eq window-system 'x)
!          (x-focus-frame frame))
!         ((eq window-system 'w32)
!          (w32-focus-frame frame)))
!     (when focus-follows-mouse
!       (set-mouse-position frame (1- (frame-width frame)) 0))))
  
  ;;;; Frame configurations