diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-12-04 03:52:39 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-12-04 03:52:39 +0000 |
| commit | 4aceef325fc6c5fe4b09646ac2f338fd7e04d569 (patch) | |
| tree | 9e5008677f254e9c1af54865ea0c85788188e74e /lisp/textmodes/reftex-toc.el | |
| parent | e5aca010720217154424e1595bed9a39952d3738 (diff) | |
| download | emacs-4aceef325fc6c5fe4b09646ac2f338fd7e04d569.tar.gz | |
(reftex-make-separate-toc-frame): Try x-focus-frame before
focus-frame. Only try focus-frame on XEmacs.
Diffstat (limited to 'lisp/textmodes/reftex-toc.el')
| -rw-r--r-- | lisp/textmodes/reftex-toc.el | 6 |
1 files 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 |