mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

(reftex-make-separate-toc-frame): Try x-focus-frame before

Browse Source 
focus-frame.  Only try focus-frame on XEmacs.
This commit is contained in:
Glenn Morris 2007-12-04 03:52:39 +00:00
parent e5aca01072
commit 4aceef325f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/textmodes/reftex-toc.el
View File

@ -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