diff options
| author | Glenn Morris | 2007-12-04 03:52:39 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-12-04 03:52:39 +0000 |
| commit | 4aceef325fc6c5fe4b09646ac2f338fd7e04d569 (patch) | |
| tree | 9e5008677f254e9c1af54865ea0c85788188e74e | |
| parent | e5aca010720217154424e1595bed9a39952d3738 (diff) | |
| download | emacs-4aceef325fc6c5fe4b09646ac2f338fd7e04d569.tar.gz emacs-4aceef325fc6c5fe4b09646ac2f338fd7e04d569.zip | |
(reftex-make-separate-toc-frame): Try x-focus-frame before
focus-frame. Only try focus-frame on XEmacs.
| -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 | |||
| 995 | (select-frame current-toc-frame) | 995 | (select-frame current-toc-frame) |
| 996 | (switch-to-buffer "*toc*") | 996 | (switch-to-buffer "*toc*") |
| 997 | (select-frame current-frame) | 997 | (select-frame current-frame) |
| 998 | (if (fboundp 'focus-frame) (focus-frame current-frame) | 998 | (if (fboundp 'x-focus-frame) (x-focus-frame current-frame) |
| 999 | (if (fboundp 'x-focus-frame) (x-focus-frame current-frame))) | 999 | ;; focus-frame has done nothing in Emacs since at least v21. |
| 1000 | (if (featurep 'xemacs) | ||
| 1001 | (if (fboundp 'focus-frame) (focus-frame current-frame)))) | ||
| 1000 | (select-window current-window) | 1002 | (select-window current-window) |
| 1001 | (when (eq reftex-auto-recenter-toc 'frame) | 1003 | (when (eq reftex-auto-recenter-toc 'frame) |
| 1002 | (unless reftex-toc-auto-recenter-timer | 1004 | (unless reftex-toc-auto-recenter-timer |