[Top][All Lists]
[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);