lisp/textmodes/reftex-toc.el

30 (eval-when-compile (require 'cl))
59   (set (make-local-variable 'transient-mark-mode) t)
60   (set (make-local-variable 'zmacs-regions) t)
61   (set (make-local-variable 'revert-buffer-function) 'reftex-toc-revert)
62   (set (make-local-variable 'reftex-toc-include-labels-indicator) "")
63   (set (make-local-variable 'reftex-toc-max-level-indicator)
105 a / d      Toggle auto recenter / Toggle dedicated frame
116 ;; The REUSE argument means, search all visible frames for a window
128   (set-marker reftex-toc-return-marker (point))
149          (unsplittable (if (fboundp 'frame-property)
150                            (frame-property (selected-frame) 'unsplittable)
151                          (frame-parameter (selected-frame) 'unsplittable)))
156                           (if reuse 'visible)))
178     (set (make-local-variable 'reftex-docstruct-symbol) docstruct-symbol)
246         (frame (selected-frame)))
250           (select-window (get-buffer-window buf frame))
261     (select-window (get-buffer-window buf frame))))
302 (defun reftex-toc-dframe-p (&optional frame error)
303   ;; Check if FRAME is the dedicated TOC frame.
305   (setq frame (or frame (selected-frame)))
307               (if (fboundp 'frame-property)
308                   (frame-property frame 'name)
309                 (frame-parameter  frame 'name))
312         (error "This frame is view-only.  Use `C-c =' to create toc window for commands"))
390 When no prefix is given, set the max level to a large number, so that all
391 levels are shown.  For eaxample, to set the level to 3, type `3 m'."
417   (mouse-set-point ev)
434 If the toc window is the only window on the dedicated TOC frame, the frame
439            (> (length (frame-list)) 1))
440       (delete-frame)
508          (if (fboundp 'frame-property)
509              (frame-property (selected-frame) 'unsplittable)
510            (frame-parameter (selected-frame) 'unsplittable)))
639         (set-mark mpos)
669                   (set-buffer (marker-buffer marker))
711       (set-buffer (marker-buffer marker))
860       ;; If `show-window' is still live, show-buffer is already visible
861       ;; so let's not make it visible in yet-another-window.
863 	  (set-buffer show-buffer)
932        (get-buffer-window "*toc*" 'visible)
958 (defun reftex-toc-toggle-dedicated-frame ()
959   "Toggle the display of a separate frame for the TOC.
960 This frame is not used by the `reftex-toc' commands, but it is useful to
965     (let* ((frames (frame-list)) frame
966            (get-frame-prop-func (if (fboundp 'frame-property)
967                                     'frame-property
968                                   'frame-parameter)))
969       (while (setq frame (pop frames))
970         (if (equal (funcall get-frame-prop-func frame 'name)
973               (delete-frame frame)
975       (reftex-make-separate-toc-frame))))
977 (defun reftex-make-separate-toc-frame ()
979   (let ((current-frame (selected-frame))
981         (current-toc-window (get-buffer-window "*toc*" 'visible))
982         current-toc-frame)
984              (not (equal (selected-frame) (window-frame current-toc-window))))
986       (setq current-toc-frame
987             (make-frame
992                (default-toolbar-visible-p . nil)
993                (menubar-visible-p . nil)
994                (horizontal-scrollbar-visible-p . nil))))
995       (select-frame current-toc-frame)
997       (select-frame current-frame)
998       (if (fboundp 'focus-frame) (focus-frame current-frame)
999         (if (fboundp 'x-focus-frame) (x-focus-frame current-frame)))
1001       (when (eq reftex-auto-recenter-toc 'frame)
1004         (add-hook 'delete-frame-hook 'reftex-toc-delete-frame-hook)))))
1006 (defun reftex-toc-delete-frame-hook (frame)
1008            (reftex-toc-dframe-p frame))
1037         ("d"        . reftex-toc-toggle-dedicated-frame)
1095     ["Dedicated Frame" reftex-toc-toggle-dedicated-frame t])