aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog16
-rw-r--r--lisp/textmodes/reftex-toc.el68
-rw-r--r--src/ChangeLog4
-rw-r--r--src/window.c2
4 files changed, 55 insertions, 35 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f85404077a2..38efb16bd80 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,19 @@
12011-11-17 Juanma Barranquero <lekktu@gmail.com>
2
3 * textmodes/reftex-toc.el (reftex-toc-return-marker, reftex-toc-help)
4 (reftex-toc, reftex-toc, reftex-toc-dframe-p, reftex-toc-next-heading)
5 (reftex-toc-previous-heading, reftex-toc-max-level)
6 (reftex-toc-goto-line-and-hide, reftex-toc-show-calling-point)
7 (reftex-toc-quit, reftex-toc-revert, reftex-toc-jump)
8 (reftex-toc-do-promote, reftex-toc-promote-prepare)
9 (reftex-toc-promote-action, reftex-toc-extract-section-number)
10 (reftex-toc-load-all-files-for-promotion, reftex-toc-rename-label)
11 (reftex-toc-rename-label, reftex-toc-visit-location)
12 (reftex-toc-visit-location, reftex-toggle-auto-toc-recenter)
13 (reftex-toggle-auto-toc-recenter, reftex-toggle-auto-toc-recenter)
14 (reftex-make-separate-toc-frame): Fix typos, and use TOC consistently,
15 leaving "*toc*" only for references to the buffer.
16
12011-11-17 Martin Rudalics <rudalics@gmx.at> 172011-11-17 Martin Rudalics <rudalics@gmx.at>
2 18
3 * window.el (window-resize, delete-window, split-window): 19 * window.el (window-resize, delete-window, split-window):
diff --git a/lisp/textmodes/reftex-toc.el b/lisp/textmodes/reftex-toc.el
index d8b5384c6df..25be64a3af2 100644
--- a/lisp/textmodes/reftex-toc.el
+++ b/lisp/textmodes/reftex-toc.el
@@ -170,15 +170,15 @@ Here are all local bindings.
170 170
171 171
172(defvar reftex-toc-return-marker (make-marker) 172(defvar reftex-toc-return-marker (make-marker)
173 "Marker which makes it possible to return from toc to old position.") 173 "Marker which makes it possible to return from TOC to old position.")
174 174
175(defconst reftex-toc-help 175(defconst reftex-toc-help
176" AVAILABLE KEYS IN TOC BUFFER 176" AVAILABLE KEYS IN TOC BUFFER
177 ============================ 177 ============================
178n / p next-line / previous-line 178n / p next-line / previous-line
179SPC Show the corresponding location of the LaTeX document. 179SPC Show the corresponding location of the LaTeX document.
180TAB Goto the location and keep the *toc* window. 180TAB Goto the location and keep the TOC window.
181RET Goto the location and hide the *toc* window (also on mouse-2). 181RET Goto the location and hide the TOC window (also on mouse-2).
182< / > Promote / Demote section, or all sections in region. 182< / > Promote / Demote section, or all sections in region.
183C-c > Display Index. With prefix arg, restrict index to current section. 183C-c > Display Index. With prefix arg, restrict index to current section.
184q / k Hide/Kill *toc* buffer, return to position of reftex-toc command. 184q / k Hide/Kill *toc* buffer, return to position of reftex-toc command.
@@ -287,7 +287,7 @@ SPC=view TAB=goto RET=goto+hide [q]uit [r]escan [l]abels [f]ollow [x]r [?]Help
287 (setq offset 287 (setq offset
288 (reftex-insert-docstruct 288 (reftex-insert-docstruct
289 this-buf 289 this-buf
290 t ; include toc 290 t ; include TOC
291 reftex-toc-include-labels 291 reftex-toc-include-labels
292 reftex-toc-include-index-entries 292 reftex-toc-include-index-entries
293 reftex-toc-include-file-boundaries 293 reftex-toc-include-file-boundaries
@@ -296,7 +296,7 @@ SPC=view TAB=goto RET=goto+hide [q]uit [r]escan [l]abels [f]ollow [x]r [?]Help
296 nil ; commented 296 nil ; commented
297 here-I-am 297 here-I-am
298 "" ; xr-prefix 298 "" ; xr-prefix
299 t ; a toc buffer 299 t ; a TOC buffer
300 )) 300 ))
301 301
302 (run-hooks 'reftex-display-copied-context-hook) 302 (run-hooks 'reftex-display-copied-context-hook)
@@ -391,7 +391,7 @@ SPC=view TAB=goto RET=goto+hide [q]uit [r]escan [l]abels [f]ollow [x]r [?]Help
391 (frame-parameter frame 'name)) 391 (frame-parameter frame 'name))
392 "RefTeX TOC Frame"))) 392 "RefTeX TOC Frame")))
393 (if (and res error) 393 (if (and res error)
394 (error "This frame is view-only. Use `C-c =' to create toc window for commands")) 394 (error "This frame is view-only. Use `C-c =' to create TOC window for commands"))
395 res)) 395 res))
396 396
397(defun reftex-toc-show-help () 397(defun reftex-toc-show-help ()
@@ -421,14 +421,14 @@ SPC=view TAB=goto RET=goto+hide [q]uit [r]escan [l]abels [f]ollow [x]r [?]Help
421 (goto-char (or (previous-single-property-change (point) :data) 421 (goto-char (or (previous-single-property-change (point) :data)
422 (point)))) 422 (point))))
423(defun reftex-toc-next-heading (&optional arg) 423(defun reftex-toc-next-heading (&optional arg)
424 "Move to next table of contentes line." 424 "Move to next table of contents line."
425 (interactive "p") 425 (interactive "p")
426 (when (featurep 'xemacs) (setq zmacs-region-stays t)) 426 (when (featurep 'xemacs) (setq zmacs-region-stays t))
427 (end-of-line) 427 (end-of-line)
428 (re-search-forward "^ " nil t arg) 428 (re-search-forward "^ " nil t arg)
429 (beginning-of-line)) 429 (beginning-of-line))
430(defun reftex-toc-previous-heading (&optional arg) 430(defun reftex-toc-previous-heading (&optional arg)
431 "Move to previous table of contentes line." 431 "Move to previous table of contents line."
432 (interactive "p") 432 (interactive "p")
433 (when (featurep 'xemacs) (setq zmacs-region-stays t)) 433 (when (featurep 'xemacs) (setq zmacs-region-stays t))
434 (re-search-backward "^ " nil t arg)) 434 (re-search-backward "^ " nil t arg))
@@ -468,7 +468,7 @@ Label context is only displayed when the labels are there as well."
468 (setq reftex-toc-include-context (not reftex-toc-include-context)) 468 (setq reftex-toc-include-context (not reftex-toc-include-context))
469 (reftex-toc-revert)) 469 (reftex-toc-revert))
470(defun reftex-toc-max-level (arg) 470(defun reftex-toc-max-level (arg)
471 "Set the maximum level of toc lines in this buffer to value of prefix ARG. 471 "Set the maximum level of TOC lines in this buffer to value of prefix ARG.
472When no prefix is given, set the max level to a large number, so that all 472When no prefix is given, set the max level to a large number, so that all
473levels are shown. For example, to set the level to 3, type `3 m'." 473levels are shown. For example, to set the level to 3, type `3 m'."
474 (interactive "P") 474 (interactive "P")
@@ -484,23 +484,23 @@ levels are shown. For example, to set the level to 3, type `3 m'."
484 (reftex-toc-dframe-p nil 'error) 484 (reftex-toc-dframe-p nil 'error)
485 (reftex-toc-visit-location)) 485 (reftex-toc-visit-location))
486(defun reftex-toc-goto-line-and-hide () 486(defun reftex-toc-goto-line-and-hide ()
487 "Go to document location in other window. Hide the *toc* window." 487 "Go to document location in other window. Hide the TOC window."
488 (interactive) 488 (interactive)
489 (reftex-toc-dframe-p nil 'error) 489 (reftex-toc-dframe-p nil 'error)
490 (reftex-toc-visit-location 'hide)) 490 (reftex-toc-visit-location 'hide))
491(defun reftex-toc-goto-line () 491(defun reftex-toc-goto-line ()
492 "Go to document location in other window. *toc* window stays." 492 "Go to document location in other window. TOC window stays."
493 (interactive) 493 (interactive)
494 (reftex-toc-dframe-p nil 'error) 494 (reftex-toc-dframe-p nil 'error)
495 (reftex-toc-visit-location t)) 495 (reftex-toc-visit-location t))
496(defun reftex-toc-mouse-goto-line-and-hide (ev) 496(defun reftex-toc-mouse-goto-line-and-hide (ev)
497 "Go to document location in other window. Hide the *toc* window." 497 "Go to document location in other window. Hide the TOC window."
498 (interactive "e") 498 (interactive "e")
499 (mouse-set-point ev) 499 (mouse-set-point ev)
500 (reftex-toc-dframe-p nil 'error) 500 (reftex-toc-dframe-p nil 'error)
501 (reftex-toc-visit-location 'hide)) 501 (reftex-toc-visit-location 'hide))
502(defun reftex-toc-show-calling-point () 502(defun reftex-toc-show-calling-point ()
503 "Show point where reftex-toc was called from." 503 "Show point where `reftex-toc' was called from."
504 (interactive) 504 (interactive)
505 (reftex-toc-dframe-p nil 'error) 505 (reftex-toc-dframe-p nil 'error)
506 (let ((this-window (selected-window))) 506 (let ((this-window (selected-window)))
@@ -512,8 +512,8 @@ levels are shown. For example, to set the level to 3, type `3 m'."
512 (recenter '(4))) 512 (recenter '(4)))
513 (select-window this-window)))) 513 (select-window this-window))))
514(defun reftex-toc-quit () 514(defun reftex-toc-quit ()
515 "Hide the *toc* window and do not move point. 515 "Hide the TOC window and do not move point.
516If the toc window is the only window on the dedicated TOC frame, the frame 516If the TOC window is the only window on the dedicated TOC frame, the frame
517is destroyed." 517is destroyed."
518 (interactive) 518 (interactive)
519 (if (and (one-window-p) 519 (if (and (one-window-p)
@@ -584,7 +584,7 @@ With prefix arg 1, restrict index to the section at point."
584 (reftex-toc))) 584 (reftex-toc)))
585 585
586(defun reftex-toc-revert (&rest ignore) 586(defun reftex-toc-revert (&rest ignore)
587 "Regenerate the *toc* from the internal lists." 587 "Regenerate the TOC from the internal lists."
588 (interactive) 588 (interactive)
589 (let ((unsplittable 589 (let ((unsplittable
590 (if (fboundp 'frame-property) 590 (if (fboundp 'frame-property)
@@ -618,7 +618,7 @@ With prefix arg 1, restrict index to the section at point."
618 618
619(defun reftex-toc-jump (arg) 619(defun reftex-toc-jump (arg)
620 "Jump to a specific section. E.g. '3 z' jumps to section 3. 620 "Jump to a specific section. E.g. '3 z' jumps to section 3.
621Useful for large TOC's." 621Useful for large TOCs."
622 (interactive "P") 622 (interactive "P")
623 (goto-char (point-min)) 623 (goto-char (point-min))
624 (re-search-forward 624 (re-search-forward
@@ -642,7 +642,7 @@ Useful for large TOC's."
642 (interactive "p") 642 (interactive "p")
643 (reftex-toc-do-promote -1)) 643 (reftex-toc-do-promote -1))
644(defun reftex-toc-do-promote (delta) 644(defun reftex-toc-do-promote (delta)
645 "Workhorse for reftex-toc-promote and reftex-to-demote. 645 "Workhorse for `reftex-toc-promote' and `reftex-toc-demote'.
646Changes the level of sections in the current region, or just the section at 646Changes the level of sections in the current region, or just the section at
647point." 647point."
648 ;; We should not do anything unless we are sure this is going to work for 648 ;; We should not do anything unless we are sure this is going to work for
@@ -728,8 +728,8 @@ point."
728 deactivate-mark nil))))) 728 deactivate-mark nil)))))
729 729
730(defun reftex-toc-promote-prepare (x delta) 730(defun reftex-toc-promote-prepare (x delta)
731 "Look at a toc entry and see if we could pro/demote it. 731 "Look at a TOC entry and see if we could pro/demote it.
732This function prepares everything for the changes, but does not do it. 732This function prepares everything for the change, but does not do it.
733The return value is a list with information needed when doing the 733The return value is a list with information needed when doing the
734promotion/demotion later. DELTA is the level change." 734promotion/demotion later. DELTA is the level change."
735 (let* ((data (car x)) 735 (let* ((data (car x))
@@ -779,7 +779,7 @@ promotion/demotion later. DELTA is the level change."
779 (error "Cannot %smote \\%s" pro-or-de name)))) 779 (error "Cannot %smote \\%s" pro-or-de name))))
780 780
781(defun reftex-toc-promote-action (x) 781(defun reftex-toc-promote-action (x)
782 "Change the level of a toc entry. 782 "Change the level of a TOC entry.
783PRO-OR-DE is assumed to be dynamically scoped into this function." 783PRO-OR-DE is assumed to be dynamically scoped into this function."
784 (let* ((data (car x)) 784 (let* ((data (car x))
785 (name (nth 1 x)) 785 (name (nth 1 x))
@@ -792,7 +792,7 @@ PRO-OR-DE is assumed to be dynamically scoped into this function."
792 (error "Fatal error during %smotion" pro-or-de))))) 792 (error "Fatal error during %smotion" pro-or-de)))))
793 793
794(defun reftex-toc-extract-section-number (entry) 794(defun reftex-toc-extract-section-number (entry)
795 "Get the numbering of a toc entry, for message purposes." 795 "Get the numbering of a TOC entry, for message purposes."
796 (if (string-match "\\s-*\\(\\S-+\\)" (nth 2 (car entry))) 796 (if (string-match "\\s-*\\(\\S-+\\)" (nth 2 (car entry)))
797 (match-string 1 (nth 2 (car entry))) 797 (match-string 1 (nth 2 (car entry)))
798 "?")) 798 "?"))
@@ -838,7 +838,7 @@ if these sets are sorted blocks in the alist."
838(defun reftex-toc-load-all-files-for-promotion () 838(defun reftex-toc-load-all-files-for-promotion ()
839 "Make sure all files of the document are being visited by buffers, 839 "Make sure all files of the document are being visited by buffers,
840and that the scanning info is absolutely up to date. 840and that the scanning info is absolutely up to date.
841We do this by rescanning with reftex-keep-temporary-buffers bound to t. 841We do this by rescanning with `reftex-keep-temporary-buffers' bound to t.
842The variable PRO-OR-DE is assumed to be dynamically scoped into this function. 842The variable PRO-OR-DE is assumed to be dynamically scoped into this function.
843When finished, we exit with an error message." 843When finished, we exit with an error message."
844 (let ((reftex-keep-temporary-buffers t)) 844 (let ((reftex-keep-temporary-buffers t))
@@ -848,7 +848,7 @@ When finished, we exit with an error message."
848 "TOC had to be updated first. Please check selection and repeat the command."))) 848 "TOC had to be updated first. Please check selection and repeat the command.")))
849 849
850(defun reftex-toc-rename-label () 850(defun reftex-toc-rename-label ()
851 "Rename the currently selected label in the *TOC* buffer. 851 "Rename the currently selected label in the *toc* buffer.
852This launches a global search and replace in order to rename a label. 852This launches a global search and replace in order to rename a label.
853Renaming a label is hardly ever necessary - the only exception is after 853Renaming a label is hardly ever necessary - the only exception is after
854promotion/demotion in connection with a package like fancyref, where the 854promotion/demotion in connection with a package like fancyref, where the
@@ -861,7 +861,7 @@ label prefix determines the wording of a reference."
861 (setq newlabel (read-string (format "Rename label \"%s\" to:" label))) 861 (setq newlabel (read-string (format "Rename label \"%s\" to:" label)))
862 (if (assoc newlabel (symbol-value reftex-docstruct-symbol)) 862 (if (assoc newlabel (symbol-value reftex-docstruct-symbol))
863 (if (not (y-or-n-p 863 (if (not (y-or-n-p
864 (format "Label '%s' exists. Use anyway? " label))) 864 (format "Label '%s' exists. Use anyway? " label)))
865 (error "Abort"))) 865 (error "Abort")))
866 (save-excursion 866 (save-excursion
867 (save-window-excursion 867 (save-window-excursion
@@ -875,10 +875,10 @@ label prefix determines the wording of a reference."
875 875
876 876
877(defun reftex-toc-visit-location (&optional final no-revisit) 877(defun reftex-toc-visit-location (&optional final no-revisit)
878 ;; Visit the tex file corresponding to the toc entry on the current line. 878 ;; Visit the tex file corresponding to the TOC entry on the current line.
879 ;; If FINAL is t, stay there 879 ;; If FINAL is t, stay there
880 ;; If FINAL is 'hide, hide the *toc* window. 880 ;; If FINAL is 'hide, hide the TOC window.
881 ;; Otherwise, move cursor back into *toc* window. 881 ;; Otherwise, move cursor back into TOC window.
882 ;; NO-REVISIT means don't visit files, just use live buffers. 882 ;; NO-REVISIT means don't visit files, just use live buffers.
883 ;; This function is pretty clever about finding back a section heading, 883 ;; This function is pretty clever about finding back a section heading,
884 ;; even if the buffer is not live, or things like outline, x-symbol etc. 884 ;; even if the buffer is not live, or things like outline, x-symbol etc.
@@ -888,7 +888,7 @@ label prefix determines the wording of a reference."
888 (toc-window (selected-window)) 888 (toc-window (selected-window))
889 show-window show-buffer match) 889 show-window show-buffer match)
890 890
891 (unless toc (error "Don't know which toc line to visit")) 891 (unless toc (error "Don't know which TOC line to visit"))
892 892
893 (cond 893 (cond
894 894
@@ -1012,8 +1012,8 @@ label prefix determines the wording of a reference."
1012 (reftex-toc-recenter)))) 1012 (reftex-toc-recenter))))
1013 1013
1014(defun reftex-toggle-auto-toc-recenter () 1014(defun reftex-toggle-auto-toc-recenter ()
1015 "Toggle the automatic recentering of the toc window. 1015 "Toggle the automatic recentering of the TOC window.
1016When active, leaving point idle will make the toc window jump to the correct 1016When active, leaving point idle will make the TOC window jump to the correct
1017section." 1017section."
1018 (interactive) 1018 (interactive)
1019 (if reftex-toc-auto-recenter-timer 1019 (if reftex-toc-auto-recenter-timer
@@ -1022,7 +1022,7 @@ section."
1022 (delete-itimer reftex-toc-auto-recenter-timer) 1022 (delete-itimer reftex-toc-auto-recenter-timer)
1023 (cancel-timer reftex-toc-auto-recenter-timer)) 1023 (cancel-timer reftex-toc-auto-recenter-timer))
1024 (setq reftex-toc-auto-recenter-timer nil) 1024 (setq reftex-toc-auto-recenter-timer nil)
1025 (message "Automatic recentering of toc windwo was turned off")) 1025 (message "Automatic recentering of TOC window was turned off"))
1026 (setq reftex-toc-auto-recenter-timer 1026 (setq reftex-toc-auto-recenter-timer
1027 (if (featurep 'xemacs) 1027 (if (featurep 'xemacs)
1028 (start-itimer "RefTeX Idle Timer for recenter" 1028 (start-itimer "RefTeX Idle Timer for recenter"
@@ -1030,7 +1030,7 @@ section."
1030 reftex-idle-time reftex-idle-time t) 1030 reftex-idle-time reftex-idle-time t)
1031 (run-with-idle-timer 1031 (run-with-idle-timer
1032 reftex-idle-time t 'reftex-recenter-toc-when-idle))) 1032 reftex-idle-time t 'reftex-recenter-toc-when-idle)))
1033 (message "Automatic recentering of toc window was turned on"))) 1033 (message "Automatic recentering of TOC window was turned on")))
1034 1034
1035(defun reftex-toc-toggle-dedicated-frame () 1035(defun reftex-toc-toggle-dedicated-frame ()
1036 "Toggle the display of a separate frame for the TOC. 1036 "Toggle the display of a separate frame for the TOC.
@@ -1052,7 +1052,7 @@ always show the current section in connection with the option
1052 (reftex-make-separate-toc-frame)))) 1052 (reftex-make-separate-toc-frame))))
1053 1053
1054(defun reftex-make-separate-toc-frame () 1054(defun reftex-make-separate-toc-frame ()
1055 ;; Create a new fame showing only the toc buffer. 1055 ;; Create a new fame showing only the TOC buffer.
1056 (let ((current-frame (selected-frame)) 1056 (let ((current-frame (selected-frame))
1057 (current-window (selected-window)) 1057 (current-window (selected-window))
1058 (current-toc-window (get-buffer-window "*toc*" 'visible)) 1058 (current-toc-window (get-buffer-window "*toc*" 'visible))
diff --git a/src/ChangeLog b/src/ChangeLog
index bd5f9e4dd02..e1854d7ffcd 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
12011-11-17 Juanma Barranquero <lekktu@gmail.com>
2
3 * window.c (syms_of_window) <window-combination-resize>: Fix typo.
4
12011-11-17 Martin Rudalics <rudalics@gmx.at> 52011-11-17 Martin Rudalics <rudalics@gmx.at>
2 6
3 * window.c (Vwindow_splits): Rename to 7 * window.c (Vwindow_splits): Rename to
diff --git a/src/window.c b/src/window.c
index c8f0f169e5d..641f7a397a4 100644
--- a/src/window.c
+++ b/src/window.c
@@ -6495,7 +6495,7 @@ frame to be redrawn only if it is a tty frame. */);
6495 doc: /* Non-nil means resize window combinations proportionally. 6495 doc: /* Non-nil means resize window combinations proportionally.
6496If this variable is nil, splitting a window gets the entire screen space 6496If this variable is nil, splitting a window gets the entire screen space
6497for displaying the new window from the window to split. Deleting and 6497for displaying the new window from the window to split. Deleting and
6498resizing a windwo preferably resizes one adjacent window only. 6498resizing a window preferably resizes one adjacent window only.
6499 6499
6500If this variable is non-nil, splitting a window tries to get the space 6500If this variable is non-nil, splitting a window tries to get the space
6501proportionally from all windows in the same combination. This also 6501proportionally from all windows in the same combination. This also