/[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.194.2.1 by miles, Fri Apr 4 06:20:06 2003 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    
# Line 1113  left untouched.  FRAME nil or omitted me Line 1113  left untouched.  FRAME nil or omitted me
1113  (make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15  (make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15
1114  (make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15  (make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15
1115    
1116    ;; miscellaneous obsolescence declarations
1117    (defvaralias 'delete-frame-hook 'delete-frame-functions)
1118    (make-obsolete-variable 'delete-frame-hook 'delete-frame-functions "21.4")
1119    
1120    
1121  ;; Highlighting trailing whitespace.  ;; Highlighting trailing whitespace.
1122    

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

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