emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Juanma Barranquero
Subject: [Emacs-diffs] Changes to emacs/src/fns.c
Date: Fri, 06 May 2005 19:04:32 -0400

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.391 emacs/src/fns.c:1.392
*** emacs/src/fns.c:1.391       Fri May  6 22:17:29 2005
--- emacs/src/fns.c     Fri May  6 23:04:31 2005
***************
*** 2536,2554 ****
        error ("Characters in the range have inconsistent values");
      }
    return val;
! }  
  
  
  DEFUN ("char-table-range", Fchar_table_range, Schar_table_range,
         2, 2, 0,
         doc: /* Return the value in CHAR-TABLE for a range of characters RANGE.
! RANGE should be nil (for the default value)
  a vector which identifies a character set or a row of a character set,
  a character set name, or a character code.
  If the characters in the specified range have different values,
  an error is signalled.
  
! Note that this function doesn't check the parent of CHAR_TABLE.  */)
       (char_table, range)
       Lisp_Object char_table, range;
  {
--- 2536,2554 ----
        error ("Characters in the range have inconsistent values");
      }
    return val;
! }
  
  
  DEFUN ("char-table-range", Fchar_table_range, Schar_table_range,
         2, 2, 0,
         doc: /* Return the value in CHAR-TABLE for a range of characters RANGE.
! RANGE should be nil (for the default value),
  a vector which identifies a character set or a row of a character set,
  a character set name, or a character code.
  If the characters in the specified range have different values,
  an error is signalled.
  
! Note that this function doesn't check the parent of CHAR-TABLE.  */)
       (char_table, range)
       Lisp_Object char_table, range;
  {
***************
*** 2631,2637 ****
        current_default = XCHAR_TABLE (char_table)->contents[defalt];
        return char_table_range (char_table, from, to, current_default);
      }
!   
    val = XCHAR_TABLE (char_table)->contents[128 + charset_id];
    if (! SUB_CHAR_TABLE_P (val))
      return (NILP (val) ? current_default : val);
--- 2631,2637 ----
        current_default = XCHAR_TABLE (char_table)->contents[defalt];
        return char_table_range (char_table, from, to, current_default);
      }
! 
    val = XCHAR_TABLE (char_table)->contents[128 + charset_id];
    if (! SUB_CHAR_TABLE_P (val))
      return (NILP (val) ? current_default : val);




reply via email to

[Prev in Thread] Current Thread [Next in Thread]