diff options
| -rw-r--r-- | lisp/ChangeLog | 16 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-toc.el | 68 | ||||
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/window.c | 2 |
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 @@ | |||
| 1 | 2011-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 | |||
| 1 | 2011-11-17 Martin Rudalics <rudalics@gmx.at> | 17 | 2011-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 | ============================ |
| 178 | n / p next-line / previous-line | 178 | n / p next-line / previous-line |
| 179 | SPC Show the corresponding location of the LaTeX document. | 179 | SPC Show the corresponding location of the LaTeX document. |
| 180 | TAB Goto the location and keep the *toc* window. | 180 | TAB Goto the location and keep the TOC window. |
| 181 | RET Goto the location and hide the *toc* window (also on mouse-2). | 181 | RET 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. |
| 183 | C-c > Display Index. With prefix arg, restrict index to current section. | 183 | C-c > Display Index. With prefix arg, restrict index to current section. |
| 184 | q / k Hide/Kill *toc* buffer, return to position of reftex-toc command. | 184 | q / 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. |
| 472 | When no prefix is given, set the max level to a large number, so that all | 472 | When no prefix is given, set the max level to a large number, so that all |
| 473 | levels are shown. For example, to set the level to 3, type `3 m'." | 473 | levels 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. |
| 516 | If the toc window is the only window on the dedicated TOC frame, the frame | 516 | If the TOC window is the only window on the dedicated TOC frame, the frame |
| 517 | is destroyed." | 517 | is 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. |
| 621 | Useful for large TOC's." | 621 | Useful 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'. |
| 646 | Changes the level of sections in the current region, or just the section at | 646 | Changes the level of sections in the current region, or just the section at |
| 647 | point." | 647 | point." |
| 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. |
| 732 | This function prepares everything for the changes, but does not do it. | 732 | This function prepares everything for the change, but does not do it. |
| 733 | The return value is a list with information needed when doing the | 733 | The return value is a list with information needed when doing the |
| 734 | promotion/demotion later. DELTA is the level change." | 734 | promotion/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. |
| 783 | PRO-OR-DE is assumed to be dynamically scoped into this function." | 783 | PRO-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, |
| 840 | and that the scanning info is absolutely up to date. | 840 | and that the scanning info is absolutely up to date. |
| 841 | We do this by rescanning with reftex-keep-temporary-buffers bound to t. | 841 | We do this by rescanning with `reftex-keep-temporary-buffers' bound to t. |
| 842 | The variable PRO-OR-DE is assumed to be dynamically scoped into this function. | 842 | The variable PRO-OR-DE is assumed to be dynamically scoped into this function. |
| 843 | When finished, we exit with an error message." | 843 | When 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. |
| 852 | This launches a global search and replace in order to rename a label. | 852 | This launches a global search and replace in order to rename a label. |
| 853 | Renaming a label is hardly ever necessary - the only exception is after | 853 | Renaming a label is hardly ever necessary - the only exception is after |
| 854 | promotion/demotion in connection with a package like fancyref, where the | 854 | promotion/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. |
| 1016 | When active, leaving point idle will make the toc window jump to the correct | 1016 | When active, leaving point idle will make the TOC window jump to the correct |
| 1017 | section." | 1017 | section." |
| 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 @@ | |||
| 1 | 2011-11-17 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * window.c (syms_of_window) <window-combination-resize>: Fix typo. | ||
| 4 | |||
| 1 | 2011-11-17 Martin Rudalics <rudalics@gmx.at> | 5 | 2011-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. |
| 6496 | If this variable is nil, splitting a window gets the entire screen space | 6496 | If this variable is nil, splitting a window gets the entire screen space |
| 6497 | for displaying the new window from the window to split. Deleting and | 6497 | for displaying the new window from the window to split. Deleting and |
| 6498 | resizing a windwo preferably resizes one adjacent window only. | 6498 | resizing a window preferably resizes one adjacent window only. |
| 6499 | 6499 | ||
| 6500 | If this variable is non-nil, splitting a window tries to get the space | 6500 | If this variable is non-nil, splitting a window tries to get the space |
| 6501 | proportionally from all windows in the same combination. This also | 6501 | proportionally from all windows in the same combination. This also |