# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1196740359 0
# Node ID d38cf2bfafa5e8332e9f8d7db05d70bc39f340bf
# Parent  f4056febc5ff2e48f237b7b013c3827fd0ed6d57
(reftex-make-separate-toc-frame): Try x-focus-frame before
focus-frame.  Only try focus-frame on XEmacs.

diff -r f4056febc5ff -r d38cf2bfafa5 lisp/textmodes/reftex-toc.el
--- a/lisp/textmodes/reftex-toc.el	Tue Dec 04 03:51:25 2007 +0000
+++ b/lisp/textmodes/reftex-toc.el	Tue Dec 04 03:52:39 2007 +0000
@@ -995,8 +995,10 @@
       (select-frame current-toc-frame)
       (switch-to-buffer "*toc*")
       (select-frame current-frame)
-      (if (fboundp 'focus-frame) (focus-frame current-frame)
-        (if (fboundp 'x-focus-frame) (x-focus-frame current-frame)))
+      (if (fboundp 'x-focus-frame) (x-focus-frame current-frame)
+        ;; focus-frame has done nothing in Emacs since at least v21.
+        (if (featurep 'xemacs)
+            (if (fboundp 'focus-frame) (focus-frame current-frame))))
       (select-window current-window)
       (when (eq reftex-auto-recenter-toc 'frame)
         (unless reftex-toc-auto-recenter-timer