[Emacs-diffs] Changes to emacs/lisp/textmodes/reftex-toc.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/12/04 03:52:39

Index: reftex-toc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/reftex-toc.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- reftex-toc.el       12 Oct 2007 06:34:33 -0000      1.38
+++ reftex-toc.el       4 Dec 2007 03:52:39 -0000       1.39
@@ -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