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
2d66ad19
Commit
2d66ad19
authored
Mar 15, 1993
by
Richard M. Stallman
Browse files
(display_menu_bar): Assume FRAME_MENU_BAR_ITEMS already set.
Fill out line with spaces. Put explicit spaces between items.
parent
48e416d4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
5 deletions
+14
-5
src/xdisp.c
src/xdisp.c
+14
-5
No files found.
src/xdisp.c
View file @
2d66ad19
...
...
@@ -1848,12 +1848,10 @@ display_menu_bar (w)
get_display_line (f, vpos, 0);
items = menu_bar_items ();
FRAME_MENU_BAR_ITEMS (f) = items;
for (tail = items; CONSP (tail); tail = XCONS (tail)->cdr)
for (tail = FRAME_MENU_BAR_ITEMS (f); CONSP (tail); tail = XCONS (tail)->cdr)
{
Lisp_Object string;
string = XCONS (XCONS (XCONS (tail)->car)->cdr)->car;
/* Record in each item its hpos. */
...
...
@@ -1862,11 +1860,22 @@ display_menu_bar (w)
if (hpos < maxendcol)
hpos = display_string (XWINDOW (FRAME_ROOT_WINDOW (f)), vpos,
XSTRING (string)->data,
hpos, 0, hpos, maxendcol) + 3;
hpos, 0, hpos, maxendcol);
/* Put a gap of 3 spaces between items. */
if (hpos < maxendcol)
{
int hpos1 = hpos + 3;
hpos = display_string (w, vpos, "", hpos, 0,
min (hpos1, maxendcol), maxendcol);
}
}
FRAME_DESIRED_GLYPHS (f)->bufp[vpos] = 0;
FRAME_DESIRED_GLYPHS (f)->highlight[vpos] = mode_line_inverse_video;
/* Fill out the line with spaces. */
if (maxendcol > hpos)
hpos = display_string (w, vpos, "", hpos, 0, maxendcol, -1);
}
/* Display the mode line for window w */
...
...
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