-(defun auto-show-truncationp ()
- "True if line truncation is enabled for the selected window."
- ;; XEmacs change (use specifiers)
- ;; ### There should be a more straightforward way to do this from elisp.
- (or truncate-lines
- (and truncate-partial-width-windows
- (< (+ (window-width)
- (specifier-instance left-margin-width)
- (specifier-instance right-margin-width))
- (frame-width)))))
-