aboutsummaryrefslogtreecommitdiffstats
path: root/src/lread.c
diff options
context:
space:
mode:
authorPaul Eggert2015-08-11 15:53:18 -0700
committerPaul Eggert2015-08-11 15:53:56 -0700
commitd6640d6e4c4f1a85edf924bca0f8a90d1aa6341a (patch)
tree4590c28d3a3810f8615bd1bef52773063d8fa8ac /src/lread.c
parent85f7e5115f9f409126d355997e8103ea5126ada2 (diff)
downloademacs-d6640d6e4c4f1a85edf924bca0f8a90d1aa6341a.tar.gz
emacs-d6640d6e4c4f1a85edf924bca0f8a90d1aa6341a.zip
Give names to Unicode code points in C code
* src/character.h (NO_BREAK_SPACE, SOFT_HYPHEN) (ZERO_WIDTH_NON_JOINER, ZERO_WIDTH_JOINER, HYPHEN) (NON_BREAKING_HYPHEN, LEFT_SINGLE_QUOTATION_MARK) (RIGHT_SINGLE_QUOTATION_MARK, PARAGRAPH_SEPARATOR) (LEFT_POINTING_ANGLE_BRACKET, RIGHT_POINTING_ANGLE_BRACKET) (LEFT_ANGLE_BRACKET, RIGHT_ANGLE_BRACKET) (OBJECT_REPLACEMENT_CHARACTER): New named constants for Unicode code points. * src/bidi.c (bidi_fetch_char, CANONICAL_EQU): * src/composite.c (char_composable_p): * src/lread.c (readevalloop, read1): * src/xdisp.c (get_next_display_element): Use them. * src/doc.c (LEFT_SINGLE_QUOTATION_POINT): Remove; now in character.h.
Diffstat (limited to 'src/lread.c')
-rw-r--r--src/lread.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lread.c b/src/lread.c
index 11c8d0031c9..fe4d3672b44 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1885,7 +1885,7 @@ readevalloop (Lisp_Object readcharfun,
1885 1885
1886 /* Ignore whitespace here, so we can detect eof. */ 1886 /* Ignore whitespace here, so we can detect eof. */
1887 if (c == ' ' || c == '\t' || c == '\n' || c == '\f' || c == '\r' 1887 if (c == ' ' || c == '\t' || c == '\n' || c == '\f' || c == '\r'
1888 || c == 0xa0) /* NBSP */ 1888 || c == NO_BREAK_SPACE)
1889 goto read_next; 1889 goto read_next;
1890 1890
1891 if (!NILP (Vpurify_flag) && c == '(') 1891 if (!NILP (Vpurify_flag) && c == '(')
@@ -2793,7 +2793,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
2793 uninterned_symbol = 1; 2793 uninterned_symbol = 1;
2794 c = READCHAR; 2794 c = READCHAR;
2795 if (!(c > 040 2795 if (!(c > 040
2796 && c != 0xa0 /* NBSP */ 2796 && c != NO_BREAK_SPACE
2797 && (c >= 0200 2797 && (c >= 0200
2798 || strchr ("\"';()[]#`,", c) == NULL))) 2798 || strchr ("\"';()[]#`,", c) == NULL)))
2799 { 2799 {
@@ -3127,7 +3127,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
3127 default: 3127 default:
3128 default_label: 3128 default_label:
3129 if (c <= 040) goto retry; 3129 if (c <= 040) goto retry;
3130 if (c == 0xa0) /* NBSP */ 3130 if (c == NO_BREAK_SPACE)
3131 goto retry; 3131 goto retry;
3132 3132
3133 read_symbol: 3133 read_symbol:
@@ -3167,7 +3167,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
3167 c = READCHAR; 3167 c = READCHAR;
3168 } 3168 }
3169 while (c > 040 3169 while (c > 040
3170 && c != 0xa0 /* NBSP */ 3170 && c != NO_BREAK_SPACE
3171 && (c >= 0200 3171 && (c >= 0200
3172 || strchr ("\"';()[]#`,", c) == NULL)); 3172 || strchr ("\"';()[]#`,", c) == NULL));
3173 3173