[Emacs-diffs] Changes to emacs/lisp/simple.el

[Per Abrahamsen]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.556 emacs/lisp/simple.el:1.557
*** emacs/lisp/simple.el:1.556  Sat Jun 29 14:16:12 2002
--- emacs/lisp/simple.el        Thu Jul  4 09:36:12 2002
***************
*** 3189,3194 ****
--- 3189,3203 ----
    (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"