From: Chong Yidong <cyd@stupidchicken.com>
Date: Thu, 10 Jul 2008 04:27:32 +0000 (+0000)
Subject: (truncated-partial-width-window-p): New function.
X-Git-Tag: emacs-pretest-23.0.90~4257
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf37ed4f2308302d08aba5735ef99fa4ad6689f3;p=emacs.git

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

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)