diff options
author | Per Abrahamsen <[email protected]> | 2002-07-04 13:36:12 +0000 |
---|---|---|
committer | Per Abrahamsen <[email protected]> | 2002-07-04 13:36:12 +0000 |
commit | 0bb64d7645714890848c1ab1e07daa47039c7076 (patch) | |
tree | 88a5fd20ff84c169816995e17cde739f356b3818 /lisp | |
parent | cf9b6656ccf5d6f26d533b0a15970f15d585dffc (diff) |
2002-07-04 Per Abrahamsen <[email protected]>
* simple.el (toggle-truncate-lines): New command.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/simple.el | 9 |
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" |