# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773557622 0
# Node ID 02ee07034f11bad0aab2ff758bb2f824c4683149
# Parent  3b90e6a741f1f81251e973af2f73c385b255468e
(switch-to-buffer-other-frame): Raise the frame.

diff -r 3b90e6a741f1 -r 02ee07034f11 lisp/files.el
--- a/lisp/files.el	Thu Jul 07 03:03:34 1994 +0000
+++ b/lisp/files.el	Thu Jul 07 05:07:02 1994 +0000
@@ -443,7 +443,8 @@
   "Switch to buffer BUFFER in another frame."
   (interactive "BSwitch to buffer in other frame: ")
   (let ((pop-up-frames t))
-    (pop-to-buffer buffer t)))
+    (pop-to-buffer buffer t)
+    (raise-frame (window-frame (selected-window)))))
 
 (defun find-file (filename)
   "Edit file FILENAME.