mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(menu-bar-line-wrapping-menu): Use Visual Line mode for "word wrap"

Browse source 
command.
This commit is contained in:
Chong Yidong 2008-07-21 18:14:46 +00:00
parent c58140f4b0
commit ad45602732
1 changed files with 22 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

36
lisp/menu-bar.el
View file

@ -1057,30 +1057,38 @@ mail status in mode line"))
(defvar menu-bar-line-wrapping-menu (make-sparse-keymap "Line Wrapping"))
(define-key menu-bar-line-wrapping-menu [word-wrap]
'(menu-item "Word Wrap (Visual Line mode)"
(lambda ()
(interactive)
(unless visual-line-mode
(visual-line-mode 1))
(message "Visual-Line mode enabled"))
:help "Wrap long lines at word boundaries"
:button (:radio . (and (null truncate-lines)
(not (truncated-partial-width-window-p))
word-wrap))
:visible (menu-bar-menu-frame-live-and-visible-p)))
(define-key menu-bar-line-wrapping-menu [truncate]
'(menu-item "Truncate Long Lines"
toggle-truncate-lines
(lambda ()
(interactive)
(if visual-line-mode (visual-line-mode 0))
(setq word-wrap nil)
(toggle-truncate-lines 1))
:help "Truncate long lines at window edge"
:button (:radio . (or truncate-lines
(truncated-partial-width-window-p)))
:visible (menu-bar-menu-frame-live-and-visible-p)
:enable (not (truncated-partial-width-window-p))))
(define-key menu-bar-line-wrapping-menu [word-wrap]
'(menu-item "Wrap at Word Boundaries"
(lambda () (interactive) (setq truncate-lines nil
word-wrap t))
:help "Wrap long lines at word boundaries"
:button (:radio . (and (null truncate-lines)
(not (truncated-partial-width-window-p))
word-wrap))
:visible (menu-bar-menu-frame-live-and-visible-p)
:enable (not (truncated-partial-width-window-p))))
(define-key menu-bar-line-wrapping-menu [window-wrap]
'(menu-item "Wrap at Window Edge"
(lambda () (interactive) (setq truncate-lines nil
word-wrap nil))
(lambda () (interactive)
(if visual-line-mode (visual-line-mode 0))
(setq word-wrap nil)
(if truncate-lines (toggle-truncate-lines -1)))
:help "Wrap long lines at window edge"
:button (:radio . (and (null truncate-lines)
(not (truncated-partial-width-window-p))