Mercurial > emacs
comparison lisp/frame.el @ 68765:186da3217292
(select-frame-set-input-focus): Call x-focus-frame also
when window-system is mac.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Fri, 10 Feb 2006 08:19:36 +0000 |
| parents | 3bd95f4f2941 |
| children | cdfc7cf7bfbe b98066f4aa10 4b3d39451150 |
comparison
equal
deleted
inserted
replaced
| 68764:2b19dbb7ecf5 | 68765:186da3217292 |
|---|---|
| 693 (defun select-frame-set-input-focus (frame) | 693 (defun select-frame-set-input-focus (frame) |
| 694 "Select FRAME, raise it, and set input focus, if possible." | 694 "Select FRAME, raise it, and set input focus, if possible." |
| 695 (select-frame frame) | 695 (select-frame frame) |
| 696 (raise-frame frame) | 696 (raise-frame frame) |
| 697 ;; Ensure, if possible, that frame gets input focus. | 697 ;; Ensure, if possible, that frame gets input focus. |
| 698 (cond ((eq window-system 'x) | 698 (cond ((memq window-system '(x mac)) |
| 699 (x-focus-frame frame)) | 699 (x-focus-frame frame)) |
| 700 ((eq window-system 'w32) | 700 ((eq window-system 'w32) |
| 701 (w32-focus-frame frame))) | 701 (w32-focus-frame frame))) |
| 702 (cond (focus-follows-mouse | 702 (cond (focus-follows-mouse |
| 703 (set-mouse-position (selected-frame) (1- (frame-width)) 0)))) | 703 (set-mouse-position (selected-frame) (1- (frame-width)) 0)))) |