Mercurial > emacs

changeset 46175:9fa0c9140afa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2002-07-04 Per Abrahamsen <abraham@dina.kvl.dk> * simple.el (toggle-truncate-lines): New command.
author Per Abrahamsen <abraham@dina.kvl.dk>
date Thu, 04 Jul 2002 13:36:12 +0000
parents 42efbb69cf37
children 1171aca8b1d2
files lisp/ChangeLog lisp/simple.el
diffstat 2 files changed, 13 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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"