From 4aceef325fc6c5fe4b09646ac2f338fd7e04d569 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 4 Dec 2007 03:52:39 +0000 Subject: [PATCH] (reftex-make-separate-toc-frame): Try x-focus-frame before focus-frame. Only try focus-frame on XEmacs. --- lisp/textmodes/reftex-toc.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/reftex-toc.el b/lisp/textmodes/reftex-toc.el index ae147cc6b97..d1d979b3fc0 100644 --- a/lisp/textmodes/reftex-toc.el +++ b/lisp/textmodes/reftex-toc.el @@ -995,8 +995,10 @@ always show the current section in connection with the option (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 -- 2.39.2