Commit cf37ed4f authored by Chong Yidong's avatar Chong Yidong
Browse files

(truncated-partial-width-window-p): New function.

parent 81577689
......@@ -1617,6 +1617,22 @@ This may be a useful alternative binding for \\[delete-other-windows]
(push w delenda))))
(mapc 'delete-window delenda)))
(defun truncated-partial-width-window-p (&optional window)
"Non-nil if lines in WINDOW are specifically truncated due to its width.
This returns nil if WINDOW is not a partial-width window
(regardless of the value of `truncate-lines').
Otherwise, consult the value of `truncate-partial-width-windows'
for the buffer shown in WINDOW.
If WINDOW is nil, use the selected window."
(unless window
(setq window (selected-window)))
(unless (window-full-width-p window)
(let ((t-p-w-w (buffer-local-value 'truncate-partial-width-windows
(window-buffer window))))
(if (integerp t-p-w-w)
(< (window-width window) t-p-w-w)
t-p-w-w))))
(define-key ctl-x-map "2" 'split-window-vertically)
(define-key ctl-x-map "3" 'split-window-horizontally)
(define-key ctl-x-map "}" 'enlarge-window-horizontally)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment