Mercurial > emacs

changeset 17289:83cc6a193391

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(CHAR_TABLE_REF): Fix syntax error. (LOWERCASEP): Use NOCASEP instead of its expansion. (UPCASE): Use UPPERCASEP instead of its expansion.
author Karl Heuer <kwzh@gnu.org>
date Thu, 03 Apr 1997 21:34:11 +0000
parents 1ea863f636cf
children dd1ead861e95
files src/lisp.h
diffstat 1 files changed, 3 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/src/lisp.h	Thu Apr 03 21:29:26 1997 +0000
+++ b/src/lisp.h	Thu Apr 03 21:34:11 1997 +0000
@@ -592,7 +592,7 @@
   (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 @@
 
 /* 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 @@
 
 /* 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.  */