Mercurial > emacs
changeset 24207:69b4c339845d
(select-frame-by-name): Obey focus-follows-mouse.
(select-frame-by-name) [windows-nt]: Use w32-focus-frame.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Wed, 27 Jan 1999 22:04:05 +0000 |
| parents | d3649b38bb37 |
| children | 6964e11724dc |
| files | lisp/frame.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Wed Jan 27 21:53:27 1999 +0000 +++ b/lisp/frame.el Wed Jan 27 22:04:05 1999 +0000 @@ -565,7 +565,12 @@ (error "There is no frame named `%s'" name)) (make-frame-visible frame) (raise-frame frame) - (select-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