Commit 2a6c4d75 authored by Chong Yidong's avatar Chong Yidong
Browse files

(menu-bar-options-menu): Add Menu entry for longlines mode.

parent a0606e32
......@@ -1016,7 +1016,7 @@ mail status in mode line"))
(menu-bar-make-toggle toggle-case-fold-search case-fold-search
"Case-Insensitive Search"
"Case-Insensitive Search %s"
"Globally ignore letter-case in search"))
"Ignore letter-case in search commands"))
(defun menu-bar-text-mode-auto-fill ()
......@@ -1027,16 +1027,24 @@ mail status in mode line"))
(customize-mark-as-set 'text-mode-hook))
(define-key menu-bar-options-menu [auto-fill-mode]
'(menu-item "Word Wrap in Text Modes"
'(menu-item "Auto Fill in Text Modes"
:help "Automatically fill text between left and right margins (Auto Fill)"
:help "Automatically fill text while typing (Auto Fill Mode)"
:button (:toggle . (if (listp text-mode-hook)
(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"
:help "Perform word wrapping for long lines (Long Lines mode)"
:button (:toggle . (and (boundp 'longlines-mode)
(define-key menu-bar-options-menu [truncate-lines]
'(menu-item "Truncate Long Lines in this Buffer"
:help "Truncate long lines on the screen"
:help "Truncate long lines at the window edge "
:button (:toggle . (if (or (window-full-width-p)
(not truncate-partial-width-windows))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment