[AUCTeX-diffs] Changes to reftex/lisp/reftex-toc.el,v

[Ralf Angeli]

CVSROOT:        /sources/auctex
Module name:    reftex
Changes by:     Ralf Angeli <angeli>    08/01/05 12:52:42

Index: reftex-toc.el
===================================================================
RCS file: /sources/auctex/reftex/lisp/reftex-toc.el,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -b -r1.39 -r1.40
--- reftex-toc.el       3 Jan 2008 22:45:54 -0000       1.39
+++ reftex-toc.el       5 Jan 2008 12:52:42 -0000       1.40
@@ -994,8 +994,11 @@
       (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)))
+      (cond ((fboundp 'x-focus-frame)
+            (x-focus-frame current-frame))
+           ((and (featurep 'xemacs) ; `focus-frame' is a nop in Emacs.
+                 (fboundp 'focus-frame))
+            (focus-frame current-frame)))
       (select-window current-window)
       (when (eq reftex-auto-recenter-toc 'frame)
         (unless reftex-toc-auto-recenter-timer