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
adb63af1
Commit
adb63af1
authored
Apr 13, 2002
by
Richard M. Stallman
Browse files
(display_mode_element): Don't let mode_line_proptrans_alist
grow without limit. Move recently used elements to the front.
parent
a2c060f6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
1 deletion
+14
-1
src/xdisp.c
src/xdisp.c
+14
-1
No files found.
src/xdisp.c
View file @
adb63af1
...
...
@@ -13695,15 +13695,28 @@ display_mode_element (it, depth, field_width, precision, elt, props, risky)
aelt = Fassoc (elt, mode_line_proptrans_alist);
if (! NILP (aelt) && !NILP (Fequal (props, XCDR (aelt))))
elt = XCAR (aelt);
{
mode_line_proptrans_alist
= Fcons (aelt, Fdelq (aelt, mode_line_proptrans_alist));
elt = XCAR (aelt);
}
else
{
Lisp_Object tem;
elt = Fcopy_sequence (elt);
Fset_text_properties (make_number (0), Flength (elt),
props, elt);
/* Add this item to mode_line_proptrans_alist. */
mode_line_proptrans_alist
= Fcons (Fcons (elt, props),
mode_line_proptrans_alist);
/* Truncate mode_line_proptrans_alist
to at most 50 elements. */
tem = Fnthcdr (make_number (50),
mode_line_proptrans_alist);
if (! NILP (tem))
XSETCDR (tem, Qnil);
}
}
}
...
...
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