[Emacs-diffs] Changes to emacs/src/xdisp.c

[Richard M. Stallman]

Index: emacs/src/xdisp.c
diff -c emacs/src/xdisp.c:1.747 emacs/src/xdisp.c:1.748
*** emacs/src/xdisp.c:1.747     Fri Apr 12 07:42:23 2002
--- emacs/src/xdisp.c   Sat Apr 13 13:46:37 2002
***************
*** 13695,13709 ****
  
                aelt = Fassoc (elt, mode_line_proptrans_alist);
                if (! NILP (aelt) && !NILP (Fequal (props, XCDR (aelt))))
!                 elt = XCAR (aelt);
                else
                  {
                    elt = Fcopy_sequence (elt);
                    Fset_text_properties (make_number (0), Flength (elt),
                                          props, elt);
                    mode_line_proptrans_alist
                      = Fcons (Fcons (elt, props),
                               mode_line_proptrans_alist);
                  }
              }
          }
--- 13695,13722 ----
  
                aelt = Fassoc (elt, mode_line_proptrans_alist);
                if (! NILP (aelt) && !NILP (Fequal (props, XCDR (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);
                  }
              }
          }