From cf37ed4f2308302d08aba5735ef99fa4ad6689f3 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 10 Jul 2008 04:27:32 +0000 Subject: [PATCH] (truncated-partial-width-window-p): New function. --- lisp/window.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/lisp/window.el b/lisp/window.el index 5eafb2a1ac9..5490f7bd293 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -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) -- 2.39.2