[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: |
Carsten Dominik |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/reftex-toc.el |
Date: |
Mon, 22 Jul 2002 06:36:27 -0400 |
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."
- [Emacs-diffs] Changes to emacs/lisp/textmodes/reftex-toc.el,
Carsten Dominik <=