procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Ralf Angeli <angeli at caeruleus.net>

Browse source 
(reftex-make-separate-toc-frame): Simplify selection of frame focusing
function.
This commit is contained in:
Glenn Morris 2008-01-08 05:06:48 +00:00
parent 6916ec0810
commit df17e41e8d
2 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-01-05 Ralf Angeli <angeli@caeruleus.net>
* textmodes/reftex-toc.el (reftex-make-separate-toc-frame):
Simplify selection of frame focusing function.
2008-01-08 Michael Olson <mwolson@gnu.org>
* textmodes/remember.el (remember-region): Fix typo in docstring.

11
lisp/textmodes/reftex-toc.el
View file

@ -1,6 +1,6 @@
;;; reftex-toc.el --- RefTeX's table of contents mode
;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005,
;; 2006, 2007 Free Software Foundation, Inc.
;; 2006, 2007, 2008 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@science.uva.nl>
;; Maintainer: auctex-devel@gnu.org
@ -995,10 +995,11 @@ 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 '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))))
(cond ((fboundp 'x-focus-frame)
(x-focus-frame current-frame))
((and (featurep 'xemacs) ; `focus-frame' is a nop in Emacs.
(fboundp 'focus-frame))
(focus-frame current-frame)))
(select-window current-window)
(when (eq reftex-auto-recenter-toc 'frame)
(unless reftex-toc-auto-recenter-timer