2002-07-04 Per Abrahamsen <[email protected]>

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

2 files changed, 13 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b47761de02..00be3c0575 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-07-04  Per Abrahamsen  <[email protected]>
+
+	* simple.el (toggle-truncate-lines): New command.
+
 2002-07-04  Miles Bader  <[email protected]>
 
 	* comint.el (comint-displayed-dynamic-completions): New variable.
diff --git a/lisp/simple.el b/lisp/simple.el
index f3fbbec58a..f2c4f24b40 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"