emacs-diffs
[Top][All Lists]
Advanced

[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))))
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]