diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-04-03 21:34:11 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-04-03 21:34:11 +0000 |
| commit | bfe59ed108ec630d16dbd1d7b9bacbaa5b5208fb (patch) | |
| tree | d742317d76d975c4e50e1cf78f6941c7ff586bf3 /src/lisp.h | |
| parent | 4267e260873de3a75e3868952e362fa9302f975e (diff) | |
| download | emacs-bfe59ed108ec630d16dbd1d7b9bacbaa5b5208fb.tar.gz | |
(CHAR_TABLE_REF): Fix syntax error.
(LOWERCASEP): Use NOCASEP instead of its expansion.
(UPCASE): Use UPPERCASEP instead of its expansion.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/lisp.h b/src/lisp.h index d8232501bcc..ac351d88af9 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -592,7 +592,7 @@ struct Lisp_Vector (CHAR_TABLE_P (CT) && IDX >= 0 && IDX < CHAR_TABLE_SINGLE_BYTE_SLOTS \ ? (!NILP (XCHAR_TABLE (CT)->contents[IDX]) \ ? XCHAR_TABLE (CT)->contents[IDX] \ - : XCHAR_TABLE (CT)->default) \ + : XCHAR_TABLE (CT)->defalt) \ : Faref (CT, IDX)) /* Equivalent to Faset (CT, IDX, VAL) with optimization for ASCII and @@ -1290,9 +1290,7 @@ extern char *stack_bottom; /* 1 if CH is lower case. */ -#define LOWERCASEP(CH) \ - (!UPPERCASEP (CH) \ - && XCHAR_TABLE (current_buffer->upcase_table)->contents[CH] != (CH)) +#define LOWERCASEP(CH) (!UPPERCASEP (CH) && !NOCASEP(CH)) /* 1 if CH is neither upper nor lower case. */ @@ -1301,9 +1299,7 @@ extern char *stack_bottom; /* Upcase a character, or make no change if that cannot be done. */ -#define UPCASE(CH) \ - (XCHAR_TABLE (current_buffer->downcase_table)->contents[CH] == (CH) \ - ? UPCASE1 (CH) : (CH)) +#define UPCASE(CH) (!UPPERCASEP (CH) ? UPCASE1 (CH) : (CH)) /* Upcase a character known to be not upper case. */ |