(switch-to-buffer-other-frame): Raise the frame.

336b7f41 · Richard M. Stallman · fb3b7de5 · 336b7f41
Commit 336b7f41 authored Jul 07, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/files.el lisp/files.el +2 -1

No files found.
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -443,7 +443,8 @@ unlike `file-truename'."
  "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.