Commit b91bfa10 authored by Glenn Morris's avatar Glenn Morris
Browse files

Explicit error on changing case of negative integers

* src/casefiddle.c (casify_object): Reject negative integers:
Emacs characters are positive integers.  (Bug#25684)
parent 7cc95d4d
......@@ -41,7 +41,7 @@ casify_object (enum case_action flag, Lisp_Object obj)
if (NILP (XCHAR_TABLE (BVAR (current_buffer, downcase_table))->extras[1]))
Fset_case_table (BVAR (current_buffer, downcase_table));
if (INTEGERP (obj))
if (NATNUMP (obj))
{
int flagbits = (CHAR_ALT | CHAR_SUPER | CHAR_HYPER
| CHAR_SHIFT | CHAR_CTL | CHAR_META);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment