# HG changeset patch
# User Per Abrahamsen <abraham@dina.kvl.dk>
# Date 1025789772 0
# Node ID 9fa0c9140afaf7ccb95663dd3821c6e3961f114b
# Parent  42efbb69cf3728d765399c0b5b1b8a0a76569128
2002-07-04  Per Abrahamsen  <abraham@dina.kvl.dk>

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

diff -r 42efbb69cf37 -r 9fa0c9140afa lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jul 04 10:38:00 2002 +0000
+++ b/lisp/ChangeLog	Thu Jul 04 13:36:12 2002 +0000
@@ -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 -r 42efbb69cf37 -r 9fa0c9140afa lisp/simple.el
--- a/lisp/simple.el	Thu Jul 04 10:38:00 2002 +0000
+++ b/lisp/simple.el	Thu Jul 04 13:36:12 2002 +0000
@@ -3189,6 +3189,15 @@
   (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"