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

(toggle-word-wrap): New command.

Browse Source
This commit is contained in:
Juri Linkov 2009-02-08 00:47:15 +00:00
parent c07dfdd98c
commit c899b3db0c
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2009-02-08 Juri Linkov <juri@jurta.org>
* simple.el (toggle-word-wrap): New command.
2009-02-07 Chong Yidong <cyd@stupidchicken.com>
* progmodes/ps-mode.el (ps-run-tmp-dir): Doc fix.

15
lisp/simple.el
View File

@ -5079,6 +5079,21 @@ is non-nil."
(message "Truncate long lines %s"
(if truncate-lines "enabled" "disabled")))
(defun toggle-word-wrap (&optional arg)
"Toggle whether to use word-wrapping for continuation lines.
With prefix argument ARG, wrap continuation lines at word boundaries
if ARG is positive, otherwise wrap them at the right screen edge.
This command toggles the value of `word-wrap'. It has no effect
if long lines are truncated."
(interactive "P")
(setq word-wrap
(if (null arg)
(not word-wrap)
(> (prefix-numeric-value arg) 0)))
(force-mode-line-update)
(message "Word wrapping %s"
(if word-wrap "enabled" "disabled")))
(defvar overwrite-mode-textual " Ovwrt"
"The string displayed in the mode line when in overwrite mode.")
(defvar overwrite-mode-binary " Bin Ovwrt"