Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2a6c4d75
Commit
2a6c4d75
authored
Jun 06, 2008
by
Chong Yidong
Browse files
(menu-bar-options-menu): Add Menu entry for longlines mode.
parent
a0606e32
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
4 deletions
+12
-4
lisp/menu-bar.el
lisp/menu-bar.el
+12
-4
No files found.
lisp/menu-bar.el
View file @
2a6c4d75
...
...
@@ -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
i
gnore
letter-case
in
search
"))
"
I
gnore
letter-case
in
search
commands
"))
(defun menu-bar-text-mode-auto-fill ()
(interactive)
...
...
@@ -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
"
menu-bar-text-mode-auto-fill
:help "
Automatically
fill
text
between
left
and
right
marg
in
s
(
Auto
Fill
)
"
:help "
Automatically
fill
text
while
typ
in
g
(
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
"
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
"
toggle-truncate-lines
: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))
truncate-lines
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment