diff options
| -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 |