diff options
author | Eli Zaretskii <eliz@gnu.org> | 2013-03-06 18:35:23 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2013-03-06 18:35:23 +0200 |
commit | a611149e46d0a6927e9c276d4cf2089b7cfb7e05 (patch) | |
tree | 27b367d14ad868560646cf0cc273d6d885c46274 | |
parent | d26e478eaa7c743b999fbcd995cc8c09ecbcc6c8 (diff) | |
download | emacs-a611149e46d0a6927e9c276d4cf2089b7cfb7e05.tar.gz |
Rename find_next_newline to find_newline_no_quit.
src/search.c (find_newline_no_quit): Rename from find_next_newline.
Add commentary.
src/lisp.h (find_newline_no_quit): Rename prototype.
src/xdisp.c (back_to_previous_line_start)
(forward_to_next_line_start, get_visually_first_element)
(move_it_vertically_backward): Callers of find_newline_no_quit changed.
src/indent.c (vmotion): Callers of find_newline_no_quit changed.
src/bidi.c (bidi_find_paragraph_start): Callers of
find_newline_no_quit changed.
-rw-r--r-- | src/ChangeLog | 12 | ||||
-rw-r--r-- | src/bidi.c | 2 | ||||
-rw-r--r-- | src/indent.c | 8 | ||||
-rw-r--r-- | src/lisp.h | 2 | ||||
-rw-r--r-- | src/search.c | 10 | ||||
-rw-r--r-- | src/xdisp.c | 16 |
6 files changed, 32 insertions, 18 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 7e5a2b71026..c54d4bee7e9 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,17 @@ 2013-03-06 Eli Zaretskii <eliz@gnu.org> + * search.c (find_newline_no_quit): Rename from find_next_newline. + Add commentary. + + * lisp.h (find_newline_no_quit): Rename prototype. + + * xdisp.c (back_to_previous_line_start) + (forward_to_next_line_start, get_visually_first_element) + (move_it_vertically_backward): Callers of find_newline_no_quit changed. + * indent.c (vmotion): Callers of find_newline_no_quit changed. + * bidi.c (bidi_find_paragraph_start): Callers of + find_newline_no_quit changed. + * msdos.c: Change encoding to cp850. (Bug#13879) (fr_keyboard, it_keyboard, dk_keyboard): Update keyboard layouts. diff --git a/src/bidi.c b/src/bidi.c index feb422cc5d2..cf5e580cd8f 100644 --- a/src/bidi.c +++ b/src/bidi.c @@ -1108,7 +1108,7 @@ bidi_find_paragraph_start (ptrdiff_t pos, ptrdiff_t pos_byte) display string? And what if a display string covering some of the text over which we scan back includes paragraph_start_re? */ - pos = find_next_newline (pos - 1, -1, &pos_byte); + pos = find_newline_no_quit (pos - 1, -1, &pos_byte); if (n >= MAX_PARAGRAPH_SEARCH) pos_byte = BEGV_BYTE; return pos_byte; diff --git a/src/indent.c b/src/indent.c index 469d774f681..abb4e08ad08 100644 --- a/src/indent.c +++ b/src/indent.c @@ -1843,7 +1843,7 @@ vmotion (register ptrdiff_t from, register EMACS_INT vtarget, struct window *w) ptrdiff_t bytepos; Lisp_Object propval; - prevline = find_next_newline (from - 1, -1, &bytepos); + prevline = find_newline_no_quit (from - 1, -1, &bytepos); while (prevline > BEGV && ((selective > 0 && indented_beyond_p (prevline, bytepos, selective)) @@ -1853,7 +1853,7 @@ vmotion (register ptrdiff_t from, register EMACS_INT vtarget, struct window *w) Qinvisible, text_prop_object), TEXT_PROP_MEANS_INVISIBLE (propval)))) - prevline = find_next_newline (prevline - 1, -1, &bytepos); + prevline = find_newline_no_quit (prevline - 1, -1, &bytepos); pos = *compute_motion (prevline, 0, lmargin, 0, @@ -1894,7 +1894,7 @@ vmotion (register ptrdiff_t from, register EMACS_INT vtarget, struct window *w) ptrdiff_t bytepos; Lisp_Object propval; - prevline = find_next_newline (from, -1, &bytepos); + prevline = find_newline_no_quit (from, -1, &bytepos); while (prevline > BEGV && ((selective > 0 && indented_beyond_p (prevline, bytepos, selective)) @@ -1904,7 +1904,7 @@ vmotion (register ptrdiff_t from, register EMACS_INT vtarget, struct window *w) Qinvisible, text_prop_object), TEXT_PROP_MEANS_INVISIBLE (propval)))) - prevline = find_next_newline (prevline - 1, -1, &bytepos); + prevline = find_newline_no_quit (prevline - 1, -1, &bytepos); pos = *compute_motion (prevline, 0, lmargin, 0, diff --git a/src/lisp.h b/src/lisp.h index 7d443e57d66..fe216b93401 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -3346,7 +3346,7 @@ extern ptrdiff_t find_newline (ptrdiff_t, ptrdiff_t, ptrdiff_t, ptrdiff_t *, ptrdiff_t *, bool); extern EMACS_INT scan_newline (ptrdiff_t, ptrdiff_t, ptrdiff_t, ptrdiff_t, EMACS_INT, bool); -extern ptrdiff_t find_next_newline (ptrdiff_t, ptrdiff_t, ptrdiff_t *); +extern ptrdiff_t find_newline_no_quit (ptrdiff_t, ptrdiff_t, ptrdiff_t *); extern ptrdiff_t find_before_next_newline (ptrdiff_t, ptrdiff_t, ptrdiff_t, ptrdiff_t *); extern void syms_of_search (void); diff --git a/src/search.c b/src/search.c index 6a79208557b..090965ead3b 100644 --- a/src/search.c +++ b/src/search.c @@ -941,15 +941,17 @@ scan_newline (ptrdiff_t start, ptrdiff_t start_byte, return count * direction; } +/* Like find_newline, but doesn't allow QUITting and doesn't return + SHORTAGE. */ ptrdiff_t -find_next_newline (ptrdiff_t from, ptrdiff_t cnt, ptrdiff_t *bytepos) +find_newline_no_quit (ptrdiff_t from, ptrdiff_t cnt, ptrdiff_t *bytepos) { return find_newline (from, 0, cnt, NULL, bytepos, 0); } -/* Like find_next_newline, but returns position before the newline, - not after, and only search up to TO. This isn't just - find_next_newline (...)-1, because you might hit TO. */ +/* Like find_newline, but returns position before the newline, not + after, and only search up to TO. + This isn't just find_newline_no_quit (...)-1, because you might hit TO. */ ptrdiff_t find_before_next_newline (ptrdiff_t from, ptrdiff_t to, diff --git a/src/xdisp.c b/src/xdisp.c index 6dbc7637ee4..934c617bf8e 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -5905,8 +5905,8 @@ pop_it (struct it *it) static void back_to_previous_line_start (struct it *it) { - IT_CHARPOS (*it) - = find_next_newline (IT_CHARPOS (*it) - 1, -1, &IT_BYTEPOS (*it)); + IT_CHARPOS (*it) = find_newline_no_quit (IT_CHARPOS (*it) - 1, -1, + &IT_BYTEPOS (*it)); } @@ -5922,7 +5922,7 @@ back_to_previous_line_start (struct it *it) Newlines may come from buffer text, overlay strings, or strings displayed via the `display' property. That's the reason we can't - simply use find_next_newline_no_quit. + simply use find_newline_no_quit. Note that this function may not skip over invisible text that is so because of text properties and immediately follows a newline. If @@ -5978,7 +5978,7 @@ forward_to_next_line_start (struct it *it, int *skipped_p, if (!newline_found_p) { ptrdiff_t bytepos, start = IT_CHARPOS (*it); - ptrdiff_t limit = find_next_newline (start, 1, &bytepos); + ptrdiff_t limit = find_newline_no_quit (start, 1, &bytepos); Lisp_Object pos; eassert (!STRINGP (it->string)); @@ -7432,8 +7432,8 @@ get_visually_first_element (struct it *it) if (string_p) it->bidi_it.charpos = it->bidi_it.bytepos = 0; else - it->bidi_it.charpos - = find_next_newline (IT_CHARPOS (*it), -1, &it->bidi_it.bytepos); + it->bidi_it.charpos = find_newline_no_quit (IT_CHARPOS (*it), -1, + &it->bidi_it.bytepos); bidi_paragraph_init (it->paragraph_embedding, &it->bidi_it, 1); do { @@ -9067,8 +9067,8 @@ move_it_vertically_backward (struct it *it, int dy) && IT_CHARPOS (*it) > BEGV && FETCH_BYTE (IT_BYTEPOS (*it) - 1) != '\n') { - ptrdiff_t nl_pos = - find_next_newline (IT_CHARPOS (*it) - 1, -1, NULL); + ptrdiff_t nl_pos = find_newline_no_quit (IT_CHARPOS (*it) - 1, -1, + NULL); move_it_to (it, nl_pos, -1, -1, -1, MOVE_TO_POS); } |