Mercurial > emacs

comparison src/editfns.c @ 23596:8dcbcad4482c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fsubst_char_in_region): Fix previous change. (Ftranslate_region): Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Sat, 31 Oct 1998 05:12:07 +0000
parents 36cccf1ba0a9
children 3cc42e65f25b
comparison
equal deleted inserted replaced
23595:e8bf0c9f869d 23596:8dcbcad4482c
2020 /* Take care of the case where the new character 2020 /* Take care of the case where the new character
2021 combines with neighboring bytes. */ 2021 combines with neighboring bytes. */
2022 if (maybe_byte_combining 2022 if (maybe_byte_combining
2023 && (CHAR_HEAD_P (*tostr) 2023 && (CHAR_HEAD_P (*tostr)
2024 ? ! CHAR_HEAD_P (FETCH_BYTE (pos_byte + 1)) 2024 ? ! CHAR_HEAD_P (FETCH_BYTE (pos_byte + 1))
2025 : (pos_byte > BEGV_BYTE 2025 : (pos_byte > BEG_BYTE
2026 && ! ASCII_BYTE_P (FETCH_BYTE (pos_byte - 1))))) 2026 && ! ASCII_BYTE_P (FETCH_BYTE (pos_byte - 1)))))
2027 { 2027 {
2028 Lisp_Object tem, string; 2028 Lisp_Object tem, string;
2029 2029
2030 struct gcpro gcpro1; 2030 struct gcpro gcpro1;
2119 /* Take care of the case where the new character 2119 /* Take care of the case where the new character
2120 combines with neighboring bytes. */ 2120 combines with neighboring bytes. */
2121 if (!ASCII_BYTE_P (nc) 2121 if (!ASCII_BYTE_P (nc)
2122 && (CHAR_HEAD_P (nc) 2122 && (CHAR_HEAD_P (nc)
2123 ? ! CHAR_HEAD_P (FETCH_BYTE (pos_byte + 1)) 2123 ? ! CHAR_HEAD_P (FETCH_BYTE (pos_byte + 1))
2124 : (pos_byte > BEGV_BYTE 2124 : (pos_byte > BEG_BYTE
2125 && ! ASCII_BYTE_P (FETCH_BYTE (pos_byte - 1))))) 2125 && ! ASCII_BYTE_P (FETCH_BYTE (pos_byte - 1)))))
2126 { 2126 {
2127 Lisp_Object string; 2127 Lisp_Object string;
2128 2128
2129 string = make_multibyte_string (tt + oc, 1, 1); 2129 string = make_multibyte_string (tt + oc, 1, 1);