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

Remove Longlines mode from menu. Add word-wrap option.

Browse source
This commit is contained in:
Chong Yidong 2008-07-10 04:27:23 +00:00
parent 0443c1eb25
commit 815776895d
1 changed files with 35 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

51
lisp/menu-bar.el
View file

@ -1054,24 +1054,43 @@ mail status in mode line"))
(member 'turn-on-auto-fill text-mode-hook)
(eq 'turn-on-auto-fill text-mode-hook)))))
(define-key menu-bar-options-menu [longlines-mode]
'(menu-item "Word Wrap for Long Lines in this Buffer"
longlines-mode
:help "Perform word wrapping for long lines (Long Lines mode)"
:button (:toggle . (and (boundp 'longlines-mode)
longlines-mode))))
(define-key menu-bar-options-menu [truncate-lines]
'(menu-item "Truncate Long Lines in this Buffer"
(defvar menu-bar-line-wrapping-menu (make-sparse-keymap "Line Wrapping"))
(define-key menu-bar-line-wrapping-menu [truncate]
'(menu-item "Truncate Long Lines"
toggle-truncate-lines
:help "Truncate long lines at the window edge "
:button (:toggle . (if (or (window-full-width-p)
(not truncate-partial-width-windows))
truncate-lines
truncate-partial-width-windows))
:enable (and (menu-bar-menu-frame-live-and-visible-p)
(or (window-full-width-p)
(not truncate-partial-width-windows)))))
: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))
:help "Wrap long lines at window edge"
:button (:radio . (and (null truncate-lines)
(not (truncated-partial-width-window-p))
(not word-wrap)))
:visible (menu-bar-menu-frame-live-and-visible-p)
:enable (not (truncated-partial-width-window-p))))
(define-key menu-bar-options-menu [line-wrapping]
(list 'menu-item "Line Wrapping in this Buffer" menu-bar-line-wrapping-menu))
(define-key menu-bar-options-menu [highlight-separator]
'("--"))