vim: src/edit.c annotate

author	Christian Brabandt <cb@256bit.org>
date	Mon, 26 Jun 2023 09:54:34 +0200
parents	72fd0421c183
children	695b50472e85

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	2 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	4 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	7 * See README.txt for an overview of the Vim source code.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	8 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	9
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	10 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	11 * edit.c: functions for Insert mode
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	12 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	13
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	14 #include "vim.h"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	15
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	16 #define BACKSPACE_CHAR 1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	17 #define BACKSPACE_WORD 2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	18 #define BACKSPACE_WORD_NOT_SPACE 3
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	19 #define BACKSPACE_LINE 4
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	20
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	21 // Set when doing something for completion that may call edit() recursively,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	22 // which is not allowed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	23 static int compl_busy = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	24
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	25
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	26 static void ins_ctrl_v(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	27 static void insert_special(int, int, int);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	28 static void redo_literal(int c);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	29 static void start_arrow_common(pos_T *end_insert_pos, int change);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	30 #ifdef FEAT_SPELL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	31 static void check_spell_redraw(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	32 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	33 static void stop_insert(pos_T *end_insert_pos, int esc, int nomove);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	34 static int echeck_abbr(int);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	35 static void mb_replace_pop_ins(int cc);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	36 static void replace_flush(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	37 static void replace_do_bs(int limit_col);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	38 static int del_char_after_col(int limit_col);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	39 static void ins_reg(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	40 static void ins_ctrl_g(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	41 static void ins_ctrl_hat(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	42 static int ins_esc(long *count, int cmdchar, int nomove);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	43 #ifdef FEAT_RIGHTLEFT
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	44 static void ins_ctrl_(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	45 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	46 static int ins_start_select(int c);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	47 static void ins_insert(int replaceState);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	48 static void ins_ctrl_o(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	49 static void ins_shift(int c, int lastc);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	50 static void ins_del(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	51 static int ins_bs(int c, int mode, int *inserted_space_p);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	52 #if defined(FEAT_GUI_TABLINE) \|\| defined(PROTO)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	53 static void ins_tabline(int c);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	54 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	55 static void ins_left(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	56 static void ins_home(int c);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	57 static void ins_end(int c);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	58 static void ins_s_left(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	59 static void ins_right(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	60 static void ins_s_right(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	61 static void ins_up(int startcol);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	62 static void ins_pageup(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	63 static void ins_down(int startcol);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	64 static void ins_pagedown(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	65 #ifdef FEAT_DND
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	66 static void ins_drop(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	67 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	68 static int ins_tab(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	69 #ifdef FEAT_DIGRAPHS
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	70 static int ins_digraph(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	71 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	72 static int ins_ctrl_ey(int tc);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	73 #if defined(FEAT_EVAL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	74 static char_u *do_insert_char_pre(int c);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	75 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	76
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	77 static colnr_T Insstart_textlen; // length of line when insert started
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	78 static colnr_T Insstart_blank_vcol; // vcol for first inserted blank
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	79 static int update_Insstart_orig = TRUE; // set Insstart_orig to Insstart
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	80
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	81 static char_u *last_insert = NULL; // the text of the previous insert,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	82 // K_SPECIAL and CSI are escaped
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	83 static int last_insert_skip; // nr of chars in front of previous insert
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	84 static int new_insert_skip; // nr of chars in front of current insert
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	85 static int did_restart_edit; // "restart_edit" when calling edit()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	86
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	87 static int can_cindent; // may do cindenting on this line
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	88
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	89 #ifdef FEAT_RIGHTLEFT
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	90 static int revins_on; // reverse insert mode on
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	91 static int revins_chars; // how much to skip after edit
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	92 static int revins_legal; // was the last char 'legal'?
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	93 static int revins_scol; // start column of revins session
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	94 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	95
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	96 static int ins_need_undo; // call u_save() before inserting a
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	97 // char. Set when edit() is called.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	98 // after that arrow_used is used.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	99
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	100 static int dont_sync_undo = FALSE; // CTRL-G U prevents syncing undo for
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	101 // the next left/right cursor key
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	102
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	103 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	104 * edit(): Start inserting text.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	105 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	106 * "cmdchar" can be:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	107 * 'i' normal insert command
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	108 * 'a' normal append command
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	109 * K_PS bracketed paste
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	110 * 'R' replace command
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	111 * 'r' "r<CR>" command: insert one <CR>. Note: count can be > 1, for redo,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	112 * but still only one <CR> is inserted. The <Esc> is not used for redo.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	113 * 'g' "gI" command.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	114 * 'V' "gR" command for Virtual Replace mode.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	115 * 'v' "gr" command for single character Virtual Replace mode.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	116 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	117 * This function is not called recursively. For CTRL-O commands, it returns
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	118 * and lets the caller handle the Normal-mode command.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	119 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	120 * Return TRUE if a CTRL-O command caused the return (insert mode pending).
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	121 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	122 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	123 edit(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	124 int cmdchar,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	125 int startln, // if set, insert at start of line
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	126 long count)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	127 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	128 int c = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	129 char_u *ptr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	130 int lastc = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	131 int mincol;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	132 static linenr_T o_lnum = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	133 int i;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	134 int did_backspace = TRUE; // previous char was backspace
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	135 int line_is_white = FALSE; // line is empty before insert
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	136 linenr_T old_topline = 0; // topline before insertion
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	137 #ifdef FEAT_DIFF
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	138 int old_topfill = -1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	139 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	140 int inserted_space = FALSE; // just inserted a space
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	141 int replaceState = MODE_REPLACE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	142 int nomove = FALSE; // don't move cursor on return
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	143 #ifdef FEAT_JOB_CHANNEL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	144 int cmdchar_todo = cmdchar;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	145 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	146 #ifdef FEAT_CONCEAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	147 int cursor_line_was_concealed;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	148 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	149
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	150 // Remember whether editing was restarted after CTRL-O.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	151 did_restart_edit = restart_edit;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	152
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	153 // sleep before redrawing, needed for "CTRL-O :" that results in an
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	154 // error message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	155 check_for_delay(TRUE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	156
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	157 // set Insstart_orig to Insstart
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	158 update_Insstart_orig = TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	159
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	160 #ifdef HAVE_SANDBOX
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	161 // Don't allow inserting in the sandbox.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	162 if (sandbox != 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	163 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	164 emsg(_(e_not_allowed_in_sandbox));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	165 return FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	166 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	167 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	168 // Don't allow changes in the buffer while editing the cmdline. The
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	169 // caller of getcmdline() may get confused.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	170 // Don't allow recursive insert mode when busy with completion.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	171 if (textlock != 0 \|\| ins_compl_active() \|\| compl_busy \|\| pum_visible())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	172 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	173 emsg(_(e_not_allowed_to_change_text_or_change_window));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	174 return FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	175 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	176 ins_compl_clear(); // clear stuff for CTRL-X mode
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	177
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	178 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	179 * Trigger InsertEnter autocommands. Do not do this for "r<CR>" or "grx".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	180 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	181 if (cmdchar != 'r' && cmdchar != 'v')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	182 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	183 pos_T save_cursor = curwin->w_cursor;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	184
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	185 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	186 if (cmdchar == 'R')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	187 ptr = (char_u *)"r";
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	188 else if (cmdchar == 'V')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	189 ptr = (char_u *)"v";
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	190 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	191 ptr = (char_u *)"i";
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	192 set_vim_var_string(VV_INSERTMODE, ptr, 1);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	193 set_vim_var_string(VV_CHAR, NULL, -1); // clear v:char
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	194 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	195 ins_apply_autocmds(EVENT_INSERTENTER);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	196
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	197 // Check for changed highlighting, e.g. for ModeMsg.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	198 if (need_highlight_changed)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	199 highlight_changed();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	200
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	201 // Make sure the cursor didn't move. Do call check_cursor_col() in
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	202 // case the text was modified. Since Insert mode was not started yet
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	203 // a call to check_cursor_col() may move the cursor, especially with
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	204 // the "A" command, thus set State to avoid that. Also check that the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	205 // line number is still valid (lines may have been deleted).
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	206 // Do not restore if v:char was set to a non-empty string.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	207 if (!EQUAL_POS(curwin->w_cursor, save_cursor)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	208 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	209 && *get_vim_var_str(VV_CHAR) == NUL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	210 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	211 && save_cursor.lnum <= curbuf->b_ml.ml_line_count)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	212 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	213 int save_state = State;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	214
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	215 curwin->w_cursor = save_cursor;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	216 State = MODE_INSERT;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	217 check_cursor_col();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	218 State = save_state;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	219 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	220 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	221
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	222 #ifdef FEAT_CONCEAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	223 // Check if the cursor line was concealed before changing State.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	224 cursor_line_was_concealed = curwin->w_p_cole > 0
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	225 && conceal_cursor_line(curwin);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	226 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	227
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	228 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	229 * When doing a paste with the middle mouse button, Insstart is set to
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	230 * where the paste started.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	231 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	232 if (where_paste_started.lnum != 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	233 Insstart = where_paste_started;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	234 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	235 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	236 Insstart = curwin->w_cursor;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	237 if (startln)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	238 Insstart.col = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	239 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	240 Insstart_textlen = (colnr_T)linetabsize_str(ml_get_curline());
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	241 Insstart_blank_vcol = MAXCOL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	242 if (!did_ai)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	243 ai_col = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	244
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	245 if (cmdchar != NUL && restart_edit == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	246 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	247 ResetRedobuff();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	248 AppendNumberToRedobuff(count);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	249 if (cmdchar == 'V' \|\| cmdchar == 'v')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	250 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	251 // "gR" or "gr" command
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	252 AppendCharToRedobuff('g');
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	253 AppendCharToRedobuff((cmdchar == 'v') ? 'r' : 'R');
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	254 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	255 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	256 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	257 if (cmdchar == K_PS)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	258 AppendCharToRedobuff('a');
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	259 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	260 AppendCharToRedobuff(cmdchar);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	261 if (cmdchar == 'g') // "gI" command
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	262 AppendCharToRedobuff('I');
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	263 else if (cmdchar == 'r') // "r<CR>" command
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	264 count = 1; // insert only one <CR>
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	265 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	266 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	267
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	268 if (cmdchar == 'R')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	269 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	270 State = MODE_REPLACE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	271 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	272 else if (cmdchar == 'V' \|\| cmdchar == 'v')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	273 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	274 State = MODE_VREPLACE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	275 replaceState = MODE_VREPLACE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	276 orig_line_count = curbuf->b_ml.ml_line_count;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	277 vr_lines_changed = 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	278 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	279 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	280 State = MODE_INSERT;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	281
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	282 may_trigger_modechanged();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	283 stop_insert_mode = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	284
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	285 #ifdef FEAT_CONCEAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	286 // Check if the cursor line needs redrawing after changing State. If
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	287 // 'concealcursor' is "n" it needs to be redrawn without concealing.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	288 conceal_check_cursor_line(cursor_line_was_concealed);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	289 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	290
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	291 // Need to position cursor again when on a TAB and when on a char with
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	292 // virtual text.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	293 if (gchar_cursor() == TAB
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	294 #ifdef FEAT_PROP_POPUP
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	295 \|\| curbuf->b_has_textprop
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	296 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	297 )
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	298 curwin->w_valid &= ~(VALID_WROW\|VALID_WCOL\|VALID_VIRTCOL);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	299
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	300 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	301 * Enable langmap or IME, indicated by 'iminsert'.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	302 * Note that IME may enabled/disabled without us noticing here, thus the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	303 * 'iminsert' value may not reflect what is actually used. It is updated
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	304 * when hitting <Esc>.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	305 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	306 if (curbuf->b_p_iminsert == B_IMODE_LMAP)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	307 State \|= MODE_LANGMAP;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	308 #ifdef HAVE_INPUT_METHOD
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	309 im_set_active(curbuf->b_p_iminsert == B_IMODE_IM);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	310 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	311
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	312 setmouse();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	313 clear_showcmd();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	314 #ifdef FEAT_RIGHTLEFT
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	315 // there is no reverse replace mode
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	316 revins_on = (State == MODE_INSERT && p_ri);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	317 if (revins_on)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	318 undisplay_dollar();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	319 revins_chars = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	320 revins_legal = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	321 revins_scol = -1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	322 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	323 if (!p_ek)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	324 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	325 MAY_WANT_TO_LOG_THIS;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	326
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	327 // Disable bracketed paste mode, we won't recognize the escape
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	328 // sequences.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	329 out_str(T_BD);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	330
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	331 // Disable modifyOtherKeys, keys with modifiers would cause exiting
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	332 // Insert mode.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	333 out_str_t_TE();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	334 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	335
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	336 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	337 * Handle restarting Insert mode.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	338 * Don't do this for "CTRL-O ." (repeat an insert): In that case we get
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	339 * here with something in the stuff buffer.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	340 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	341 if (restart_edit != 0 && stuff_empty())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	342 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	343 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	344 * After a paste we consider text typed to be part of the insert for
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	345 * the pasted text. You can backspace over the pasted text too.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	346 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	347 if (where_paste_started.lnum)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	348 arrow_used = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	349 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	350 arrow_used = TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	351 restart_edit = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	352
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	353 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	354 * If the cursor was after the end-of-line before the CTRL-O and it is
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	355 * now at the end-of-line, put it after the end-of-line (this is not
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	356 * correct in very rare cases).
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	357 * Also do this if curswant is greater than the current virtual
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	358 * column. Eg after "^O$" or "^O80\|".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	359 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	360 validate_virtcol();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	361 update_curswant();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	362 if (((ins_at_eol && curwin->w_cursor.lnum == o_lnum)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	363 \|\| curwin->w_curswant > curwin->w_virtcol)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	364 && *(ptr = ml_get_curline() + curwin->w_cursor.col) != NUL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	365 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	366 if (ptr[1] == NUL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	367 ++curwin->w_cursor.col;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	368 else if (has_mbyte)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	369 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	370 i = (*mb_ptr2len)(ptr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	371 if (ptr[i] == NUL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	372 curwin->w_cursor.col += i;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	373 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	374 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	375 ins_at_eol = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	376 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	377 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	378 arrow_used = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	379
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	380 // we are in insert mode now, don't need to start it anymore
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	381 need_start_insertmode = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	382
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	383 // Need to save the line for undo before inserting the first char.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	384 ins_need_undo = TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	385
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	386 where_paste_started.lnum = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	387 can_cindent = TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	388 #ifdef FEAT_FOLDING
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	389 // The cursor line is not in a closed fold, unless 'insertmode' is set or
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	390 // restarting.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	391 if (!p_im && did_restart_edit == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	392 foldOpenCursor();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	393 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	394
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	395 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	396 * If 'showmode' is set, show the current (insert/replace/..) mode.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	397 * A warning message for changing a readonly file is given here, before
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	398 * actually changing anything. It's put after the mode, if any.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	399 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	400 i = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	401 if (p_smd && msg_silent == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	402 i = showmode();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	403
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	404 if (!p_im && did_restart_edit == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	405 change_warning(i == 0 ? 0 : i + 1);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	406
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	407 #ifdef CURSOR_SHAPE
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	408 ui_cursor_shape(); // may show different cursor shape
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	409 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	410 #ifdef FEAT_DIGRAPHS
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	411 do_digraph(-1); // clear digraphs
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	412 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	413
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	414 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	415 * Get the current length of the redo buffer, those characters have to be
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	416 * skipped if we want to get to the inserted characters.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	417 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	418 ptr = get_inserted();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	419 if (ptr == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	420 new_insert_skip = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	421 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	422 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	423 new_insert_skip = (int)STRLEN(ptr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	424 vim_free(ptr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	425 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	426
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	427 old_indent = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	428
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	429 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	430 * Main loop in Insert mode: repeat until Insert mode is left.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	431 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	432 for (;;)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	433 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	434 #ifdef FEAT_RIGHTLEFT
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	435 if (!revins_legal)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	436 revins_scol = -1; // reset on illegal motions
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	437 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	438 revins_legal = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	439 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	440 if (arrow_used) // don't repeat insert when arrow key used
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	441 count = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	442
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	443 if (update_Insstart_orig)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	444 Insstart_orig = Insstart;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	445
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	446 if (stop_insert_mode && !ins_compl_active())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	447 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	448 // ":stopinsert" used or 'insertmode' reset
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	449 count = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	450 goto doESCkey;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	451 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	452
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	453 // set curwin->w_curswant for next K_DOWN or K_UP
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	454 if (!arrow_used)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	455 curwin->w_set_curswant = TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	456
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	457 // If there is no typeahead may check for timestamps (e.g., for when a
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	458 // menu invoked a shell command).
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	459 if (stuff_empty())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	460 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	461 did_check_timestamps = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	462 if (need_check_timestamps)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	463 check_timestamps(FALSE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	464 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	465
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	466 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	467 * When emsg() was called msg_scroll will have been set.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	468 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	469 msg_scroll = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	470
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	471 #ifdef FEAT_GUI
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	472 // When 'mousefocus' is set a mouse movement may have taken us to
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	473 // another window. "need_mouse_correct" may then be set because of an
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	474 // autocommand.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	475 if (need_mouse_correct)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	476 gui_mouse_correct();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	477 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	478
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	479 #ifdef FEAT_FOLDING
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	480 // Open fold at the cursor line, according to 'foldopen'.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	481 if (fdo_flags & FDO_INSERT)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	482 foldOpenCursor();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	483 // Close folds where the cursor isn't, according to 'foldclose'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	484 if (!char_avail())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	485 foldCheckClose();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	486 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	487
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	488 #ifdef FEAT_JOB_CHANNEL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	489 if (bt_prompt(curbuf))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	490 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	491 init_prompt(cmdchar_todo);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	492 cmdchar_todo = NUL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	493 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	494 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	495
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	496 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	497 * If we inserted a character at the last position of the last line in
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	498 * the window, scroll the window one line up. This avoids an extra
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	499 * redraw.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32535 diff changeset	500 * This is detected when the cursor column is smaller after inserting

32669

448aef880252 normalize line endings