From 46cdfe8f2e6f4e6c7ee61e9b9c8d7185598021a0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 13 Aug 2002 01:48:42 +0000 Subject: [PATCH] (toggle-truncate-lines): Force redisplay. Display status message. --- lisp/simple.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 6b2700f5b7f..ff10343b597 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3195,12 +3195,16 @@ The variable `selective-display' has a separate value for each buffer." (defun toggle-truncate-lines (arg) "Toggle whether to fold or truncate long lines on the screen. -With arg, truncate long lines iff arg is positive." +With arg, truncate long lines iff arg is positive. +Note that in side-by-side windows, truncation is always enabled." (interactive "P") (setq truncate-lines (if (null arg) (not truncate-lines) - (> (prefix-numeric-value arg) 0)))) + (> (prefix-numeric-value arg) 0))) + (force-mode-line-update) + (message "Truncate long lines %s" + (if truncate-lines "enabled" "disabled"))) (defvar overwrite-mode-textual " Ovwrt" "The string displayed in the mode line when in overwrite mode.") -- 2.39.5