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

[Kim F . Storm]

Index: emacs/src/xfaces.c
diff -c emacs/src/xfaces.c:1.318 emacs/src/xfaces.c:1.319
*** emacs/src/xfaces.c:1.318    Mon Apr 18 11:32:29 2005
--- emacs/src/xfaces.c  Tue Apr 19 08:34:50 2005
***************
*** 3211,3227 ****
       Lisp_Object face_name;
  {
    Lisp_Object aliased;
  
    if (STRINGP (face_name))
      face_name = intern (SDATA (face_name));
  
    while (SYMBOLP (face_name))
      {
!       aliased = Fget (face_name, Qface_alias);
        if (NILP (aliased))
        break;
!       else
!       face_name = aliased;
      }
  
    return face_name;
--- 3211,3229 ----
       Lisp_Object face_name;
  {
    Lisp_Object aliased;
+   int alias_loop_max = 10;
  
    if (STRINGP (face_name))
      face_name = intern (SDATA (face_name));
  
    while (SYMBOLP (face_name))
      {
!       aliased = Fsafe_get (face_name, Qface_alias);
        if (NILP (aliased))
        break;
!       if (--alias_loop_max == 0)
!       break;
!       face_name = aliased;
      }
  
    return face_name;