2002-07-04 Per Abrahamsen <abraham@dina.kvl.dk>

	* simple.el (toggle-truncate-lines): New command.

2 files changed, 13 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b47761de024..00be3c05752 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-07-04  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+        * simple.el (toggle-truncate-lines): New command.
+
 2002-07-04  Miles Bader  <miles@gnu.org>
 
         * comint.el (comint-displayed-dynamic-completions): New variable.
diff --git a/lisp/simple.el b/lisp/simple.el
index f3fbbec58a8..f2c4f24b404 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3189,6 +3189,15 @@ The variable `selective-display' has a separate value for each buffer."
   (prin1 selective-display t)
   (princ "." t))
 
+(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."
+  (interactive "P")
+  (setq truncate-lines
+        (if (null arg)
+            (not truncate-lines)
+          (> (prefix-numeric-value arg) 0))))
+
 (defvar overwrite-mode-textual " Ovwrt"
   "The string displayed in the mode line when in overwrite mode.")
 (defvar overwrite-mode-binary " Bin Ovwrt"