From 1676807bc710c812ae303294ef88501e13453134 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Tue, 16 Sep 2008 08:28:18 +0000 Subject: [PATCH] (switch-to-buffer-other-frame): Don't raise frame since pop-to-buffer already does it. (display-buffer-other-frame): Fix doc-string. --- lisp/ChangeLog | 11 +++++++++++ lisp/files.el | 18 ++++++++---------- 2 files changed, 19 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 498b80030c3..40d77ff1fa0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2008-09-16 Martin Rudalics + + * frame.el (select-frame-set-input-focus): With non-nil + mouse-autoselect-window always move mouse cursor to frame's + selected window. Otherwise restore pre 2008-09-13 behavior. + (select-frame-by-name): Use select-frame-set-input-focus. + + * files.el (switch-to-buffer-other-frame): Don't raise frame since + pop-to-buffer already does it. + (display-buffer-other-frame): Fix doc-string. + 2008-09-16 Glenn Morris * add-log.el (diff-find-source-location): Update declaration. diff --git a/lisp/files.el b/lisp/files.el index 2773c9f14b0..df060e4f9f9 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1074,24 +1074,22 @@ documentation for additional customization information." (defun switch-to-buffer-other-frame (buffer &optional norecord) "Switch to buffer BUFFER in another frame. -Optional second arg NORECORD non-nil means -do not put this buffer at the front of the list of recently selected ones. +Optional second arg NORECORD non-nil means do not put this +buffer at the front of the list of recently selected ones. This function returns the buffer it switched to. -This uses the function `display-buffer' as a subroutine; see its -documentation for additional customization information." +This uses the function `display-buffer' as a subroutine; see +its documentation for additional customization information." (interactive (list (read-buffer-to-switch "Switch to buffer in other frame: "))) (let ((pop-up-frames t) same-window-buffer-names same-window-regexps) - (prog1 - (pop-to-buffer buffer t norecord) - (raise-frame (window-frame (selected-window)))))) + (pop-to-buffer buffer t norecord))) (defun display-buffer-other-frame (buffer) - "Switch to buffer BUFFER in another frame. -This uses the function `display-buffer' as a subroutine; see its -documentation for additional customization information." + "Display buffer BUFFER in another frame. +This uses the function `display-buffer' as a subroutine; see +its documentation for additional customization information." (interactive "BDisplay buffer in other frame: ") (let ((pop-up-frames t) same-window-buffer-names same-window-regexps -- 2.39.5