diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2012-09-22 14:56:08 +0200 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2012-09-22 14:56:08 +0200 |
| commit | 8e17c9ba1443c2f21c5801f0c4660ac08dccc837 (patch) | |
| tree | 440766cd6249af19144f114626180568c5ece697 /lisp/cus-start.el | |
| parent | aa1fe812d3e77ed65a5226a42e5dc081eab22b18 (diff) | |
| download | emacs-8e17c9ba1443c2f21c5801f0c4660ac08dccc837.tar.gz | |
Make Temp Buffer Resize Mode less intrusive (Bug#1806).
* window.c (Fsplit_window_internal): Handle only Qt value of
Vwindow_combination_limit separately.
(Qtemp_buffer_resize): New symbol.
(Vwindow_combination_limit): New default value. Rewrite
doc-string.
* cus-start.el (window-combination-limit): Add new optional
values.
* window.el (temp-buffer-window-show)
(window--try-to-split-window): Obey new values of
window-combination-limit.
(split-window): Test window-combination-limit for t instead of
non-nil.
(display-buffer-at-bottom): New buffer display action function.
* help.el (temp-buffer-resize-regexps): New option.
(temp-buffer-resize-mode): Rewrite doc-string.
(resize-temp-buffer-window): Obey temp-buffer-resize-regexps.
Don't resize reused window. Suggested by Glen Morris.
Diffstat (limited to 'lisp/cus-start.el')
| -rw-r--r-- | lisp/cus-start.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 0eb8b2d63c3..a91a479b054 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -422,7 +422,17 @@ since it could result in memory overflow and make Emacs crash." (const :tag "Only on ttys" :value tty) (other :tag "Always" t)) "23.1") (window-combination-resize windows boolean "24.1") - (window-combination-limit windows boolean "24.1") + (window-combination-limit + windows (choice + (const :tag "Never (nil)" :value nil) + (const :tag "For Temp Buffer Resize mode (temp-buffer-resize)" + :value temp-buffer-resize) + (const :tag "For temporary buffers (temp-buffer)" + :value temp-buffer) + (const :tag "For buffer display (display-buffer)" + :value display-buffer) + (other :tag "Always (t)" :value t)) + "24.3") ;; xdisp.c (show-trailing-whitespace whitespace-faces boolean nil :safe booleanp) |