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

[Miles Bader]

Index: emacs/src/intervals.c
diff -c emacs/src/intervals.c:1.114.2.2 emacs/src/intervals.c:1.114.2.3
*** emacs/src/intervals.c:1.114.2.2     Tue Oct 14 23:16:47 2003
--- emacs/src/intervals.c       Tue Jul  6 09:23:54 2004
***************
*** 1899,1909 ****
      return fallback;
    /* Check for alternative properties */
    tail = Fassq (prop, Vchar_property_alias_alist);
!   if (NILP (tail))
!     return tail;
!   tail = XCDR (tail);
!   for (; NILP (fallback) && CONSP (tail); tail = XCDR (tail))
!     fallback = Fplist_get (plist, XCAR (tail));
    if (textprop && NILP (fallback) && CONSP (Vdefault_text_properties))
      fallback = Fplist_get (Vdefault_text_properties, prop);
    return fallback;
--- 1899,1911 ----
      return fallback;
    /* Check for alternative properties */
    tail = Fassq (prop, Vchar_property_alias_alist);
!   if (! NILP (tail))
!     {
!       tail = XCDR (tail);
!       for (; NILP (fallback) && CONSP (tail); tail = XCDR (tail))
!       fallback = Fplist_get (plist, XCAR (tail));
!     }
! 
    if (textprop && NILP (fallback) && CONSP (Vdefault_text_properties))
      fallback = Fplist_get (Vdefault_text_properties, prop);
    return fallback;