(switch-to-buffer-other-frame): Don't raise frame since

pop-to-buffer already does it.
(display-buffer-other-frame): Fix doc-string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 498b80030c3fd42e3d88632ca4d50a2a0a86bac5..40d77ff1fa013dbd88757cfe2fd3c9d7e16d9013 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2008-09-16  Martin Rudalics  <rudalics@gmx.at>
+
+       * 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  <rgm@gnu.org>
 
        * add-log.el (diff-find-source-location): Update declaration.

diff --git a/lisp/files.el b/lisp/files.el
index 2773c9f14b0a28008cf95396c35ecc3973bbf698..df060e4f9f9e7a519ae8d83f21085536176da934 100644 (file)
--- 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