Mercurial > emacs

changeset 87022:d38cf2bfafa5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(reftex-make-separate-toc-frame): Try x-focus-frame before focus-frame. Only try focus-frame on XEmacs.
author Glenn Morris <rgm@gnu.org>
date Tue, 04 Dec 2007 03:52:39 +0000
parents f4056febc5ff
children 5405672da978
files lisp/textmodes/reftex-toc.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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