mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(PREV_CHAR_BOUNDARY): Make it work from within a char's byte sequence.

Browse Source 
(AT_CHAR_BOUNDARY): New macro.
This commit is contained in:
Stefan Monnier 2006-09-22 17:30:02 +00:00
parent 339250d54f
commit 3ffcda5471
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/charset.h
View File

@ -658,22 +658,34 @@ else
} while (0)
/* If P is after LIMIT, advance P to the previous character boundary.
It assumes that P is already at a character boundary of the sane
mulitbyte form whose beginning address is LIMIT. */
/* If P is after LIMIT, advance P to the previous character boundary. */
#define PREV_CHAR_BOUNDARY(p, limit) \
do { \
if ((p) > (limit)) \
{ \
const unsigned char *p0 = (p); \
const unsigned char *p_limit = max (limit, p0 - MAX_MULTIBYTE_LENGTH);\
do { \
p0--; \
} while (p0 >= limit && ! CHAR_HEAD_P (*p0)); \
(p) = (BYTES_BY_CHAR_HEAD (*p0) == (p) - p0) ? p0 : (p) - 1; \
} while (p0 >= p_limit && ! CHAR_HEAD_P (*p0)); \
/* If BBCH(*p0) > p-p0, it means we were not on a boundary. */ \
(p) = (BYTES_BY_CHAR_HEAD (*p0) >= (p) - p0) ? p0 : (p) - 1; \
} \
} while (0)
#define AT_CHAR_BOUNDARY_P(result, p, limit) \
do { \
if (CHAR_HEAD_P (*(p)) || (p) <= limit) \
/* Optimization for the common case. */ \
(result) = 1; \
else \
{ \
const unsigned char *p_aux = (p)+1; \
PREV_CHAR_BOUNDARY (p_aux, limit); \
(result) = (p_aux == (p)); \
} \
} while (0)
#ifdef emacs