Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e7b6ee94
Commit
e7b6ee94
authored
Jun 12, 2002
by
Stefan Monnier
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(menu-bar-showhide-fringe-menu): Don't use `fringe-mode'
without first making sure it's bound.
parent
91b53904
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
4 deletions
+8
-4
lisp/menu-bar.el
lisp/menu-bar.el
+8
-4
No files found.
lisp/menu-bar.el
View file @
e7b6ee94
...
...
@@ -674,7 +674,8 @@ Do the same for the keys of the same name."
'
(
menu-item
"Default"
menu-bar-showhide-fringe-menu-customize-reset
:help
"Default width fringe on both left and right side"
:visible
(
display-graphic-p
)
:button
(
:radio
.
(
eq
fringe-mode
nil
))))
:button
(
:radio
.
(
or
(
not
(
boundp
'fringe-mode
))
(
eq
fringe-mode
nil
)))))
(
defun
menu-bar-showhide-fringe-menu-customize-left
()
"Make fringes appear only on the left."
...
...
@@ -686,7 +687,8 @@ Do the same for the keys of the same name."
'
(
menu-item
"On the Left"
menu-bar-showhide-fringe-menu-customize-left
:help
"Fringe only on the left side"
:visible
(
display-graphic-p
)
:button
(
:radio
.
(
equal
fringe-mode
'
(
nil
.
0
)))))
:button
(
:radio
.
(
and
(
boundp
'fringe-mode
)
(
equal
fringe-mode
'
(
nil
.
0
))))))
(
defun
menu-bar-showhide-fringe-menu-customize-right
()
"Make fringes appear only on the right."
...
...
@@ -698,7 +700,8 @@ Do the same for the keys of the same name."
'
(
menu-item
"On the Right"
menu-bar-showhide-fringe-menu-customize-right
:help
"Fringe only on the right side"
:visible
(
display-graphic-p
)
:button
(
:radio
.
(
equal
fringe-mode
'
(
0
.
nil
)))))
:button
(
:radio
.
(
and
(
boundp
'fringe-mode
)
(
equal
fringe-mode
'
(
0
.
nil
))))))
(
defun
menu-bar-showhide-fringe-menu-customize-disable
()
"Make fringes disappear."
...
...
@@ -710,7 +713,8 @@ Do the same for the keys of the same name."
'
(
menu-item
"None"
menu-bar-showhide-fringe-menu-customize-disable
:help
"Turn off fringe"
:visible
(
display-graphic-p
)
:button
(
:radio
.
(
eq
fringe-mode
0
))))
:button
(
:radio
.
(
and
(
boundp
'fringe-mode
)
(
eq
fringe-mode
0
)))))
(
define-key
menu-bar-showhide-menu
[showhide-fringe]
(
list
'menu-item
"Fringe"
menu-bar-showhide-fringe-menu
...
...
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