[Emacs-diffs] Changes to emacs/lisp/textmodes/reftex-toc.el

[Carsten Dominik]

Index: emacs/lisp/textmodes/reftex-toc.el
diff -c emacs/lisp/textmodes/reftex-toc.el:1.12 
emacs/lisp/textmodes/reftex-toc.el:1.13
*** emacs/lisp/textmodes/reftex-toc.el:1.12     Sun Dec  2 04:32:20 2001
--- emacs/lisp/textmodes/reftex-toc.el  Mon Jul 22 06:36:26 2002
***************
*** 1,8 ****
  ;;; 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.16
  
  ;; This file is part of GNU Emacs.
  
--- 1,8 ----
  ;;; 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.17
  
  ;; This file is part of GNU Emacs.
  
***************
*** 72,77 ****
--- 72,78 ----
    "Stores the file name from which `reftex-toc' was called.  For redo 
command.")
  
  (defvar reftex-last-window-height nil)
+ (defvar reftex-last-window-width nil)
  (defvar reftex-toc-include-labels-indicator nil)
  (defvar reftex-toc-include-index-indicator nil)
  (defvar reftex-toc-max-level-indicator nil)
***************
*** 127,133 ****
         (docstruct-symbol reftex-docstruct-symbol)
         (xr-data (assq 'xr (symbol-value reftex-docstruct-symbol)))
         (xr-alist (cons (cons "" (buffer-file-name)) (nth 1 xr-data)))
!        (here-I-am (if rebuild 
                        (get 'reftex-toc :reftex-data)
                      (car (reftex-where-am-I))))
         offset)
--- 128,134 ----
         (docstruct-symbol reftex-docstruct-symbol)
         (xr-data (assq 'xr (symbol-value reftex-docstruct-symbol)))
         (xr-alist (cons (cons "" (buffer-file-name)) (nth 1 xr-data)))
!        (here-I-am (if rebuild
                        (get 'reftex-toc :reftex-data)
                      (car (reftex-where-am-I))))
         offset)
***************
*** 137,144 ****
        (when (or (not reftex-toc-keep-other-windows)
                (< (window-height) (* 2 window-min-height)))
        (delete-other-windows))
!       (setq reftex-last-window-height (window-height))  ; remember
!       (split-window)
        (let ((default-major-mode 'reftex-toc-mode))
        (switch-to-buffer "*toc*")))
  
--- 138,151 ----
        (when (or (not reftex-toc-keep-other-windows)
                (< (window-height) (* 2 window-min-height)))
        (delete-other-windows))
! 
!       (setq reftex-last-window-width (window-width)
!           reftex-last-window-height (window-height))  ; remember
!       (if reftex-toc-split-windows-horizontally
!         (split-window-horizontally
!          (floor (* (frame-width) 
reftex-toc-split-windows-horizontally-fraction)))
!       (split-window))
! 
        (let ((default-major-mode 'reftex-toc-mode))
        (switch-to-buffer "*toc*")))
  
***************
*** 237,245 ****
  
  (defun reftex-re-enlarge ()
    ;; Enlarge windiw to a remembered size
!   (enlarge-window
!    (max 0 (- (or reftex-last-window-height (window-height))
!            (window-height)))))
  
  (defun reftex-toc-show-help ()
    "Show a summary of special key bindings."
--- 244,256 ----
  
  (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))
!                (window-width))))
!     (enlarge-window
!      (max 0 (- (or reftex-last-window-height (window-height))
!              (window-height))))))
  
  (defun reftex-toc-show-help ()
    "Show a summary of special key bindings."