From: Glenn Morris <rgm@gnu.org>
Date: Fri, 17 Feb 2017 04:24:37 +0000 (-0800)
Subject: Explicit error on changing case of negative integers
X-Git-Tag: emacs-26.0.90~810
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b91bfa10413182654a76d0ba337198f39a4d0e8e;p=emacs.git

Explicit error on changing case of negative integers

* src/casefiddle.c (casify_object): Reject negative integers:
Emacs characters are positive integers.  (Bug#25684)
---

diff --git a/src/casefiddle.c b/src/casefiddle.c
index b2b87e7a858..11d59444916 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -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);