From cacdfdd41baa1a015d5f1558ffef8819ef8652f2 Mon Sep 17 00:00:00 2001 From: stephen Date: Mon, 3 Apr 2006 12:41:56 +0000 Subject: [PATCH] * ess-inf.el (ess-show-buffer): Use ess-select-frame-set-input-focus. git-svn-id: https://svn.r-project.org/ESS/trunk@3563 0bbaf3bd-34e0-0310-bf65-c717079852d4 --- lisp/ess-inf.el | 21 ++++++++------------- 1 file changed, 8 insertions(+), 13 deletions(-) diff --git a/lisp/ess-inf.el b/lisp/ess-inf.el index 6e171ad3..3a99c67a 100644 --- a/lisp/ess-inf.el +++ b/lisp/ess-inf.el @@ -698,19 +698,14 @@ as the current buffer." (display-buffer buf))) ;; At this stage, the buffer should now be visible on screen, ;; although it won't have been made current. - (if visit - (progn - ;; Need to select the buffer. - ;; - ;; First of all, check case 2 if buffer is in another frame - ;; but that frame may not be selected. - (if (and frame (not (featurep 'xemacs))) - (progn - ;; need to select the frame - (select-frame frame) - ;; reposition mouse to make frame active. - (set-mouse-position (selected-frame) (1- (frame-width)) 0))) - (select-window (get-buffer-window buf 0)))))) + (when visit + ;; Need to select the buffer. + ;; + ;; First of all, check case 2 if buffer is in another frame + ;; but that frame may not be selected. + (if frame + (ess-select-frame-set-input-focus frame)) + (select-window (get-buffer-window buf 0))))) (defvar ess-bufs-in-frame nil) ;silence the compiler. -- 2.11.4.GIT