mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(toggle-truncate-lines): Force redisplay. Display status message.

Browse Source
This commit is contained in:
Richard M. Stallman 2002-08-13 01:48:42 +00:00
parent 90a4495712
commit 46cdfe8f2e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/simple.el
View File

@ -3195,12 +3195,16 @@ The variable `selective-display' has a separate value for each buffer."
(defun toggle-truncate-lines (arg) (defun toggle-truncate-lines (arg)
"Toggle whether to fold or truncate long lines on the screen. "Toggle whether to fold or truncate long lines on the screen.
With arg, truncate long lines iff arg is positive." With arg, truncate long lines iff arg is positive.
Note that in side-by-side windows, truncation is always enabled."
(interactive "P") (interactive "P")
(setq truncate-lines (setq truncate-lines
(if (null arg) (if (null arg)
(not truncate-lines) (not truncate-lines)
(> (prefix-numeric-value arg) 0)))) (> (prefix-numeric-value arg) 0)))
(force-mode-line-update)
(message "Truncate long lines %s"
(if truncate-lines "enabled" "disabled")))
(defvar overwrite-mode-textual " Ovwrt" (defvar overwrite-mode-textual " Ovwrt"
"The string displayed in the mode line when in overwrite mode.") "The string displayed in the mode line when in overwrite mode.")