[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/reftex-toc.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/reftex-toc.el |
Date: |
Tue, 13 May 2003 16:41:45 -0400 |
Index: emacs/lisp/textmodes/reftex-toc.el
diff -c emacs/lisp/textmodes/reftex-toc.el:1.16
emacs/lisp/textmodes/reftex-toc.el:1.17
*** emacs/lisp/textmodes/reftex-toc.el:1.16 Tue Feb 4 08:30:45 2003
--- emacs/lisp/textmodes/reftex-toc.el Tue May 13 16:41:45 2003
***************
*** 1,5 ****
;;; reftex-toc.el --- RefTeX's table of contents mode
! ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Carsten Dominik <address@hidden>
;; Version: 4.18
--- 1,5 ----
;;; reftex-toc.el --- RefTeX's table of contents mode
! ;; Copyright (c) 1997, 1998, 1999, 2000, 2003 Free Software Foundation, Inc.
;; Author: Carsten Dominik <address@hidden>
;; Version: 4.18
***************
*** 177,185 ****
" (abbreviate-file-name reftex-last-toc-master)))
(if (reftex-use-fonts)
! (put-text-property 1 (point) 'face reftex-toc-header-face))
! (put-text-property 1 (point) 'intangible t)
! (put-text-property 1 2 'xr-alist xr-alist)
(setq offset
(reftex-insert-docstruct
--- 177,185 ----
" (abbreviate-file-name reftex-last-toc-master)))
(if (reftex-use-fonts)
! (put-text-property (point-min) (point) 'face
reftex-toc-header-face))
! (put-text-property (point-min) (point) 'intangible t)
! (put-text-property (point-min) (1+ (point-min)) 'xr-alist xr-alist)
(setq offset
(reftex-insert-docstruct
***************
*** 268,274 ****
(error t)))))
(defun reftex-re-enlarge ()
! ;; Enlarge windiw to a remembered size
(if reftex-toc-split-windows-horizontally
(enlarge-window-horizontally
(max 0 (- (or reftex-last-window-width (window-width))
--- 268,274 ----
(error t)))))
(defun reftex-re-enlarge ()
! ;; Enlarge window to a remembered size.
(if reftex-toc-split-windows-horizontally
(enlarge-window-horizontally
(max 0 (- (or reftex-last-window-width (window-width))
***************
*** 484,490 ****
;; If FINAL is t, stay there
;; If FINAL is 'hide, hide the *toc* window.
;; Otherwise, move cursor back into *toc* window.
! ;; NO-REVISIT means don't visit files, just use live biffers.
;; This function is pretty clever about finding back a section heading,
;; even if the buffer is not live, or things like outline, x-symbol etc.
;; have been active.
--- 484,490 ----
;; If FINAL is t, stay there
;; If FINAL is 'hide, hide the *toc* window.
;; Otherwise, move cursor back into *toc* window.
! ;; NO-REVISIT means don't visit files, just use live buffers.
;; This function is pretty clever about finding back a section heading,
;; even if the buffer is not live, or things like outline, x-symbol etc.
;; have been active.
***************
*** 539,545 ****
((eq final 'hide)
(reftex-unhighlight 0)
(or (one-window-p) (delete-window))
! (switch-to-buffer show-buffer)
(reftex-re-enlarge))
(t nil))))
--- 539,549 ----
((eq final 'hide)
(reftex-unhighlight 0)
(or (one-window-p) (delete-window))
! ;; If `show-window' is still live, show-buffer is already visible
! ;; so let's not make it visible in yet-another-window.
! (if (window-live-p show-window)
! (select-window show-window)
! (switch-to-buffer show-buffer))
(reftex-re-enlarge))
(t nil))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/reftex-toc.el,
Stefan Monnier <=