# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1198426110 0
# Node ID 3ae8c65e837d109695e33a8c54d531a295e1e2a2
# Parent  b482d54e2dd2126ec712edf2dca380804fbafd18
(switch-to-buffer-other-frame): Return the buffer
switched to.

diff -r b482d54e2dd2 -r 3ae8c65e837d lisp/files.el
--- a/lisp/files.el	Sun Dec 23 06:10:04 2007 +0000
+++ b/lisp/files.el	Sun Dec 23 16:08:30 2007 +0000
@@ -1010,14 +1010,16 @@
   "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.
+This function returns the buffer it switched to.
 
 This uses the function `display-buffer' as a subroutine; see its
 documentation for additional customization information."
   (interactive "BSwitch to buffer in other frame: ")
   (let ((pop-up-frames t)
 	same-window-buffer-names same-window-regexps)
-    (pop-to-buffer buffer t norecord)
-    (raise-frame (window-frame (selected-window)))))
+    (prog1
+	(pop-to-buffer buffer t norecord)
+      (raise-frame (window-frame (selected-window))))))
 
 (defun display-buffer-other-frame (buffer)
   "Switch to buffer BUFFER in another frame.