Mercurial > emacs

changeset 46872:543ab39f153c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(toggle-truncate-lines): Force redisplay. Display status message.
author Richard M. Stallman <rms@gnu.org>
date Tue, 13 Aug 2002 01:48:42 +0000
parents b1f8aec6c62b
children 7be80f782e2c
files lisp/simple.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Mon Aug 12 22:53:46 2002 +0000
+++ b/lisp/simple.el	Tue Aug 13 01:48:42 2002 +0000
@@ -3195,12 +3195,16 @@
 
 (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.")