From 0bb64d7645714890848c1ab1e07daa47039c7076 Mon Sep 17 00:00:00 2001 From: Per Abrahamsen Date: Thu, 4 Jul 2002 13:36:12 +0000 Subject: [PATCH] 2002-07-04 Per Abrahamsen * simple.el (toggle-truncate-lines): New command. --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 9 +++++++++ 2 files changed, 13 insertions(+) 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 + + * simple.el (toggle-truncate-lines): New command. + 2002-07-04 Miles Bader * 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" -- 2.39.2