diff options
| author | Paul Eggert | 2015-08-11 15:53:18 -0700 |
|---|---|---|
| committer | Paul Eggert | 2015-08-11 15:53:56 -0700 |
| commit | d6640d6e4c4f1a85edf924bca0f8a90d1aa6341a (patch) | |
| tree | 4590c28d3a3810f8615bd1bef52773063d8fa8ac /src/lread.c | |
| parent | 85f7e5115f9f409126d355997e8103ea5126ada2 (diff) | |
| download | emacs-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.c | 8 |
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 | ||