diff options
| author | Glenn Morris | 2017-02-16 20:24:37 -0800 |
|---|---|---|
| committer | Glenn Morris | 2017-02-16 20:24:37 -0800 |
| commit | b91bfa10413182654a76d0ba337198f39a4d0e8e (patch) | |
| tree | db67dcd9e2ef654edef2cb1dd7e31c547abadeae /src | |
| parent | 7cc95d4d86e5a9f2df248d2aa7c8cc423c8f06e3 (diff) | |
| download | emacs-b91bfa10413182654a76d0ba337198f39a4d0e8e.tar.gz emacs-b91bfa10413182654a76d0ba337198f39a4d0e8e.zip | |
Explicit error on changing case of negative integers
* src/casefiddle.c (casify_object): Reject negative integers:
Emacs characters are positive integers. (Bug#25684)
Diffstat (limited to 'src')
| -rw-r--r-- | src/casefiddle.c | 2 |
1 files changed, 1 insertions, 1 deletions
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) | |||
| 41 | if (NILP (XCHAR_TABLE (BVAR (current_buffer, downcase_table))->extras[1])) | 41 | if (NILP (XCHAR_TABLE (BVAR (current_buffer, downcase_table))->extras[1])) |
| 42 | Fset_case_table (BVAR (current_buffer, downcase_table)); | 42 | Fset_case_table (BVAR (current_buffer, downcase_table)); |
| 43 | 43 | ||
| 44 | if (INTEGERP (obj)) | 44 | if (NATNUMP (obj)) |
| 45 | { | 45 | { |
| 46 | int flagbits = (CHAR_ALT | CHAR_SUPER | CHAR_HYPER | 46 | int flagbits = (CHAR_ALT | CHAR_SUPER | CHAR_HYPER |
| 47 | | CHAR_SHIFT | CHAR_CTL | CHAR_META); | 47 | | CHAR_SHIFT | CHAR_CTL | CHAR_META); |