lib/libedit/emacs.c

48  *	Delete character under cursor or list completions if at end of line
56 	if (el->el_line.cursor == el->el_line.lastchar) {
58 		if (el->el_line.cursor == el->el_line.buffer) {
75 		if (el->el_line.cursor > el->el_line.lastchar)
76 			el->el_line.cursor = el->el_line.lastchar;
84  *	Cut from cursor to end of current word
93 	if (el->el_line.cursor == el->el_line.lastchar)
96 	cp = c__next_word(el->el_line.cursor, el->el_line.lastchar,
99 	for (p = el->el_line.cursor, kp = el->el_chared.c_kill.buf; p < cp; p++)
104 	c_delafter(el, (int)(cp - el->el_line.cursor));	/* delete after dot */
105 	if (el->el_line.cursor > el->el_line.lastchar)
106 		el->el_line.cursor = el->el_line.lastchar;
113  *	Paste cut buffer at cursor position
130 	el->el_chared.c_kill.mark = el->el_line.cursor;
131 	cp = el->el_line.cursor;
140 	/* if an arg, cursor at beginning else cursor at end */
142 		el->el_line.cursor = cp;
165 	el->el_line.cursor = el->el_line.buffer;
171  *	Cut area between mark and cursor and save in cut buffer
183 	if (el->el_chared.c_kill.mark > el->el_line.cursor) {
184 		cp = el->el_line.cursor;
189 		c_delafter(el, (int)(cp - el->el_line.cursor));
190 	} else {		/* mark is before cursor */
193 		while (cp < el->el_line.cursor)
197 		el->el_line.cursor = el->el_chared.c_kill.mark;
204  *	Copy area between mark and cursor to cut buffer
216 	if (el->el_chared.c_kill.mark > el->el_line.cursor) {
217 		cp = el->el_line.cursor;
225 		while (cp < el->el_line.cursor)
234  *	Exchange the two characters before the cursor
241 	if (el->el_line.cursor > &el->el_line.buffer[1]) {
243 		c = el->el_line.cursor[-2];
244 		el->el_line.cursor[-2] = el->el_line.cursor[-1];
245 		el->el_line.cursor[-1] = c;
260 	if (el->el_line.cursor == el->el_line.lastchar)
263 	el->el_line.cursor = c__next_word(el->el_line.cursor,
278  *	Uppercase the characters from cursor to end of current word
287 	ep = c__next_word(el->el_line.cursor, el->el_line.lastchar,
290 	for (cp = el->el_line.cursor; cp < ep; cp++)
294 	el->el_line.cursor = ep;
295 	if (el->el_line.cursor > el->el_line.lastchar)
296 		el->el_line.cursor = el->el_line.lastchar;
302  *	Capitalize the characters from cursor to end of current word
311 	ep = c__next_word(el->el_line.cursor, el->el_line.lastchar,
314 	for (cp = el->el_line.cursor; cp < ep; cp++) {
326 	el->el_line.cursor = ep;
327 	if (el->el_line.cursor > el->el_line.lastchar)
328 		el->el_line.cursor = el->el_line.lastchar;
334  *	Lowercase the characters from cursor to end of current word
343 	ep = c__next_word(el->el_line.cursor, el->el_line.lastchar,
346 	for (cp = el->el_line.cursor; cp < ep; cp++)
350 	el->el_line.cursor = ep;
351 	if (el->el_line.cursor > el->el_line.lastchar)
352 		el->el_line.cursor = el->el_line.lastchar;
358  *	Set the mark at cursor
366 	el->el_chared.c_kill.mark = el->el_line.cursor;
372  *	Exchange the cursor and mark
381 	cp = el->el_line.cursor;
382 	el->el_line.cursor = el->el_chared.c_kill.mark;
434  *	Copy current word to cursor
442 	if (el->el_line.cursor == el->el_line.buffer)
445 	oldc = el->el_line.cursor;
447 	cp = c__prev_word(el->el_line.cursor, el->el_line.buffer,
454 	el->el_line.cursor = dp;/* put cursor at end */
487  *	Delete the character to the left of the cursor
495 	if (el->el_line.cursor <= el->el_line.buffer)
502 	el->el_line.cursor -= el->el_state.argument;
503 	if (el->el_line.cursor < el->el_line.buffer)
504 		el->el_line.cursor = el->el_line.buffer;