Adding upstream version 2:8.1.0875.upstream/2%8.1.0875upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 7484 insertions, 0 deletions

diff --git a/src/ex_getln.c b/src/ex_getln.c
new file mode 100644
index 0000000..cba082a
--- /dev/null
+++ b/src/ex_getln.c
@@ -0,0 +1,7484 @@
+/* vi:set ts=8 sts=4 sw=4 noet:
+ *
+ * VIM - Vi IMproved	by Bram Moolenaar
+ *
+ * Do ":help uganda"  in Vim to read copying and usage conditions.
+ * Do ":help credits" in Vim to see a list of people who contributed.
+ * See README.txt for an overview of the Vim source code.
+ */
+
+/*
+ * ex_getln.c: Functions for entering and editing an Ex command line.
+ */
+
+#include "vim.h"
+
+#ifndef MAX
+# define MAX(x,y) ((x) > (y) ? (x) : (y))
+#endif
+
+/*
+ * Variables shared between getcmdline(), redrawcmdline() and others.
+ * These need to be saved when using CTRL-R |, that's why they are in a
+ * structure.
+ */
+struct cmdline_info
+{
+    char_u	*cmdbuff;	/* pointer to command line buffer */
+    int		cmdbufflen;	/* length of cmdbuff */
+    int		cmdlen;		/* number of chars in command line */
+    int		cmdpos;		/* current cursor position */
+    int		cmdspos;	/* cursor column on screen */
+    int		cmdfirstc;	/* ':', '/', '?', '=', '>' or NUL */
+    int		cmdindent;	/* number of spaces before cmdline */
+    char_u	*cmdprompt;	/* message in front of cmdline */
+    int		cmdattr;	/* attributes for prompt */
+    int		overstrike;	/* Typing mode on the command line.  Shared by
+				   getcmdline() and put_on_cmdline(). */
+    expand_T	*xpc;		/* struct being used for expansion, xp_pattern
+				   may point into cmdbuff */
+    int		xp_context;	/* type of expansion */
+# ifdef FEAT_EVAL
+    char_u	*xp_arg;	/* user-defined expansion arg */
+    int		input_fn;	/* when TRUE Invoked for input() function */
+# endif
+};
+
+// The current cmdline_info.  It is initialized in getcmdline() and after that
+// used by other functions.  When invoking getcmdline() recursively it needs
+// to be saved with save_cmdline() and restored with restore_cmdline().
+static struct cmdline_info ccline;
+
+static int	cmd_showtail;	/* Only show path tail in lists ? */
+
+#ifdef FEAT_EVAL
+static int	new_cmdpos;	/* position set by set_cmdline_pos() */
+#endif
+
+static int	extra_char = NUL;  /* extra character to display when redrawing
+				    * the command line */
+static int	extra_char_shift;
+
+#ifdef FEAT_CMDHIST
+typedef struct hist_entry
+{
+    int		hisnum;		/* identifying number */
+    int		viminfo;	/* when TRUE hisstr comes from viminfo */
+    char_u	*hisstr;	/* actual entry, separator char after the NUL */
+    time_t	time_set;	/* when it was typed, zero if unknown */
+} histentry_T;
+
+static histentry_T *(history[HIST_COUNT]) = {NULL, NULL, NULL, NULL, NULL};
+static int	hisidx[HIST_COUNT] = {-1, -1, -1, -1, -1};  /* lastused entry */
+static int	hisnum[HIST_COUNT] = {0, 0, 0, 0, 0};
+		    /* identifying (unique) number of newest history entry */
+static int	hislen = 0;		/* actual length of history tables */
+
+static int	hist_char2type(int c);
+#endif
+
+#ifdef FEAT_RIGHTLEFT
+static int	cmd_hkmap = 0;	/* Hebrew mapping during command line */
+#endif
+
+#ifdef FEAT_FKMAP
+static int	cmd_fkmap = 0;	/* Farsi mapping during command line */
+#endif
+
+static char_u	*getcmdline_int(int firstc, long count, int indent, int init_ccline);
+static int	cmdline_charsize(int idx);
+static void	set_cmdspos(void);
+static void	set_cmdspos_cursor(void);
+static void	correct_cmdspos(int idx, int cells);
+static void	alloc_cmdbuff(int len);
+static int	realloc_cmdbuff(int len);
+static void	draw_cmdline(int start, int len);
+static void	save_cmdline(struct cmdline_info *ccp);
+static void	restore_cmdline(struct cmdline_info *ccp);
+static int	cmdline_paste(int regname, int literally, int remcr);
+#ifdef FEAT_WILDMENU
+static void	cmdline_del(int from);
+#endif
+static void	redrawcmdprompt(void);
+static void	cursorcmd(void);
+static int	ccheck_abbr(int);
+static int	nextwild(expand_T *xp, int type, int options, int escape);
+static void	escape_fname(char_u **pp);
+static int	showmatches(expand_T *xp, int wildmenu);
+static void	set_expand_context(expand_T *xp);
+static int	ExpandFromContext(expand_T *xp, char_u *, int *, char_u ***, int);
+static int	expand_showtail(expand_T *xp);
+#ifdef FEAT_CMDL_COMPL
+static int	expand_shellcmd(char_u *filepat, int *num_file, char_u ***file, int flagsarg);
+static int	ExpandRTDir(char_u *pat, int flags, int *num_file, char_u ***file, char *dirname[]);
+static int	ExpandPackAddDir(char_u *pat, int *num_file, char_u ***file);
+# ifdef FEAT_CMDHIST
+static char_u	*get_history_arg(expand_T *xp, int idx);
+# endif
+# if defined(FEAT_USR_CMDS) && defined(FEAT_EVAL)
+static int	ExpandUserDefined(expand_T *xp, regmatch_T *regmatch, int *num_file, char_u ***file);
+static int	ExpandUserList(expand_T *xp, int *num_file, char_u ***file);
+# endif
+#endif
+#ifdef FEAT_CMDHIST
+static void	clear_hist_entry(histentry_T *hisptr);
+#endif
+
+#ifdef FEAT_CMDWIN
+static int	open_cmdwin(void);
+#endif
+
+#if defined(FEAT_CMDL_COMPL) || defined(PROTO)
+static int
+#ifdef __BORLANDC__
+_RTLENTRYF
+#endif
+sort_func_compare(const void *s1, const void *s2);
+#endif
+
+
+    static void
+trigger_cmd_autocmd(int typechar, int evt)
+{
+    char_u	typestr[2];
+
+    typestr[0] = typechar;
+    typestr[1] = NUL;
+    apply_autocmds(evt, typestr, typestr, FALSE, curbuf);
+}
+
+/*
+ * Abandon the command line.
+ */
+    static void
+abandon_cmdline(void)
+{
+    VIM_CLEAR(ccline.cmdbuff);
+    if (msg_scrolled == 0)
+	compute_cmdrow();
+    msg("");
+    redraw_cmdline = TRUE;
+}
+
+#ifdef FEAT_SEARCH_EXTRA
+/*
+ * Guess that the pattern matches everything.  Only finds specific cases, such
+ * as a trailing \|, which can happen while typing a pattern.
+ */
+    static int
+empty_pattern(char_u *p)
+{
+    size_t n = STRLEN(p);
+
+    /* remove trailing \v and the like */
+    while (n >= 2 && p[n - 2] == '\\'
+			  && vim_strchr((char_u *)"mMvVcCZ", p[n - 1]) != NULL)
+	n -= 2;
+    return n == 0 || (n >= 2 && p[n - 2] == '\\' && p[n - 1] == '|');
+}
+
+// Struct to store the viewstate during 'incsearch' highlighting.
+typedef struct {
+    colnr_T	vs_curswant;
+    colnr_T	vs_leftcol;
+    linenr_T	vs_topline;
+# ifdef FEAT_DIFF
+    int		vs_topfill;
+# endif
+    linenr_T	vs_botline;
+    linenr_T	vs_empty_rows;
+} viewstate_T;
+
+    static void
+save_viewstate(viewstate_T *vs)
+{
+    vs->vs_curswant = curwin->w_curswant;
+    vs->vs_leftcol = curwin->w_leftcol;
+    vs->vs_topline = curwin->w_topline;
+# ifdef FEAT_DIFF
+    vs->vs_topfill = curwin->w_topfill;
+# endif
+    vs->vs_botline = curwin->w_botline;
+    vs->vs_empty_rows = curwin->w_empty_rows;
+}
+
+    static void
+restore_viewstate(viewstate_T *vs)
+{
+    curwin->w_curswant = vs->vs_curswant;
+    curwin->w_leftcol = vs->vs_leftcol;
+    curwin->w_topline = vs->vs_topline;
+# ifdef FEAT_DIFF
+    curwin->w_topfill = vs->vs_topfill;
+# endif
+    curwin->w_botline = vs->vs_botline;
+    curwin->w_empty_rows = vs->vs_empty_rows;
+}
+
+// Struct to store the state of 'incsearch' highlighting.
+typedef struct {
+    pos_T	search_start;	// where 'incsearch' starts searching
+    pos_T       save_cursor;
+    viewstate_T	init_viewstate;
+    viewstate_T	old_viewstate;
+    pos_T       match_start;
+    pos_T       match_end;
+    int		did_incsearch;
+    int		incsearch_postponed;
+    int		magic_save;
+} incsearch_state_T;
+
+    static void
+init_incsearch_state(incsearch_state_T *is_state)
+{
+    is_state->match_start = curwin->w_cursor;
+    is_state->did_incsearch = FALSE;
+    is_state->incsearch_postponed = FALSE;
+    is_state->magic_save = p_magic;
+    CLEAR_POS(&is_state->match_end);
+    is_state->save_cursor = curwin->w_cursor;  // may be restored later
+    is_state->search_start = curwin->w_cursor;
+    save_viewstate(&is_state->init_viewstate);
+    save_viewstate(&is_state->old_viewstate);
+}
+
+/*
+ * First move cursor to end of match, then to the start.  This
+ * moves the whole match onto the screen when 'nowrap' is set.
+ */
+    static void
+set_search_match(pos_T *t)
+{
+    t->lnum += search_match_lines;
+    t->col = search_match_endcol;
+    if (t->lnum > curbuf->b_ml.ml_line_count)
+    {
+	t->lnum = curbuf->b_ml.ml_line_count;
+	coladvance((colnr_T)MAXCOL);
+    }
+}
+
+/*
+ * Return TRUE when 'incsearch' highlighting is to be done.
+ * Sets search_first_line and search_last_line to the address range.
+ * May change the last search pattern.
+ */
+    static int
+do_incsearch_highlighting(int firstc, incsearch_state_T *is_state,
+						     int *skiplen, int *patlen)
+{
+    char_u	*cmd;
+    cmdmod_T	save_cmdmod = cmdmod;
+    char_u	*p;
+    int		delim_optional = FALSE;
+    int		delim;
+    char_u	*end;
+    char	*dummy;
+    exarg_T	ea;
+    pos_T	save_cursor;
+    int		use_last_pat;
+
+    *skiplen = 0;
+    *patlen = ccline.cmdlen;
+
+    if (!p_is || cmd_silent)
+	return FALSE;
+
+    // by default search all lines
+    search_first_line = 0;
+    search_last_line = MAXLNUM;
+
+    if (firstc == '/' || firstc == '?')
+	return TRUE;
+    if (firstc != ':')
+	return FALSE;
+
+    vim_memset(&ea, 0, sizeof(ea));
+    ea.line1 = 1;
+    ea.line2 = 1;
+    ea.cmd = ccline.cmdbuff;
+    ea.addr_type = ADDR_LINES;
+
+    parse_command_modifiers(&ea, &dummy, TRUE);
+    cmdmod = save_cmdmod;
+
+    cmd = skip_range(ea.cmd, NULL);
+    if (vim_strchr((char_u *)"sgvl", *cmd) == NULL)
+	return FALSE;
+
+    // Skip over "substitute" to find the pattern separator.
+    for (p = cmd; ASCII_ISALPHA(*p); ++p)
+	;
+    if (*skipwhite(p) == NUL)
+	return FALSE;
+
+    if (STRNCMP(cmd, "substitute", p - cmd) == 0
+	    || STRNCMP(cmd, "smagic", p - cmd) == 0
+	    || STRNCMP(cmd, "snomagic", MAX(p - cmd, 3)) == 0
+	    || STRNCMP(cmd, "vglobal", p - cmd) == 0)
+    {
+	if (*cmd == 's' && cmd[1] == 'm')
+	    p_magic = TRUE;
+	else if (*cmd == 's' && cmd[1] == 'n')
+	    p_magic = FALSE;
+    }
+    else if (STRNCMP(cmd, "sort", MAX(p - cmd, 3)) == 0)
+    {
+	// skip over flags
+	while (ASCII_ISALPHA(*(p = skipwhite(p))))
+	    ++p;
+	if (*p == NUL)
+	    return FALSE;
+    }
+    else if (STRNCMP(cmd, "vimgrep", MAX(p - cmd, 3)) == 0
+	|| STRNCMP(cmd, "vimgrepadd", MAX(p - cmd, 8)) == 0
+	|| STRNCMP(cmd, "lvimgrep", MAX(p - cmd, 2)) == 0
+	|| STRNCMP(cmd, "lvimgrepadd", MAX(p - cmd, 9)) == 0
+	|| STRNCMP(cmd, "global", p - cmd) == 0)
+    {
+	// skip over "!"
+	if (*p == '!')
+	{
+	    p++;
+	    if (*skipwhite(p) == NUL)
+		return FALSE;
+	}
+	if (*cmd != 'g')
+	    delim_optional = TRUE;
+    }
+    else
+	return FALSE;
+
+    p = skipwhite(p);
+    delim = (delim_optional && vim_isIDc(*p)) ? ' ' : *p++;
+    end = skip_regexp(p, delim, p_magic, NULL);
+
+    use_last_pat = end == p && *end == delim;
+
+    if (end == p && !use_last_pat)
+	return FALSE;
+
+    // Don't do 'hlsearch' highlighting if the pattern matches everything.
+    if (!use_last_pat)
+    {
+	char c = *end;
+	int  empty;
+
+	*end = NUL;
+	empty = empty_pattern(p);
+	*end = c;
+	if (empty)
+	    return FALSE;
+    }
+
+    // found a non-empty pattern or //
+    *skiplen = (int)(p - ccline.cmdbuff);
+    *patlen = (int)(end - p);
+
+    // parse the address range
+    save_cursor = curwin->w_cursor;
+    curwin->w_cursor = is_state->search_start;
+    parse_cmd_address(&ea, &dummy, TRUE);
+    if (ea.addr_count > 0)
+    {
+	// Allow for reverse match.
+	if (ea.line2 < ea.line1)
+	{
+	    search_first_line = ea.line2;
+	    search_last_line = ea.line1;
+	}
+	else
+	{
+	    search_first_line = ea.line1;
+	    search_last_line = ea.line2;
+	}
+    }
+    else if (cmd[0] == 's' && cmd[1] != 'o')
+    {
+	// :s defaults to the current line
+	search_first_line = curwin->w_cursor.lnum;
+	search_last_line = curwin->w_cursor.lnum;
+    }
+
+    curwin->w_cursor = save_cursor;
+    return TRUE;
+}
+
+    static void
+finish_incsearch_highlighting(
+	int gotesc,
+	incsearch_state_T *is_state,
+	int call_update_screen)
+{
+    if (is_state->did_incsearch)
+    {
+	is_state->did_incsearch = FALSE;
+	if (gotesc)
+	    curwin->w_cursor = is_state->save_cursor;
+	else
+	{
+	    if (!EQUAL_POS(is_state->save_cursor, is_state->search_start))
+	    {
+		// put the '" mark at the original position
+		curwin->w_cursor = is_state->save_cursor;
+		setpcmark();
+	    }
+	    curwin->w_cursor = is_state->search_start;
+	}
+	restore_viewstate(&is_state->old_viewstate);
+	highlight_match = FALSE;
+
+	// by default search all lines
+	search_first_line = 0;
+	search_last_line = MAXLNUM;
+
+	p_magic = is_state->magic_save;
+
+	validate_cursor();	/* needed for TAB */
+	redraw_all_later(SOME_VALID);
+	if (call_update_screen)
+	    update_screen(SOME_VALID);
+    }
+}
+
+/*
+ * Do 'incsearch' highlighting if desired.
+ */
+    static void
+may_do_incsearch_highlighting(
+	int		    firstc,
+	long		    count,
+	incsearch_state_T   *is_state)
+{
+    int		skiplen, patlen;
+    int		found;  // do_search() result
+    pos_T	end_pos;
+#ifdef FEAT_RELTIME
+    proftime_T	tm;
+#endif
+    int		next_char;
+    int		use_last_pat;
+
+    // Parsing range may already set the last search pattern.
+    // NOTE: must call restore_last_search_pattern() before returning!
+    save_last_search_pattern();
+
+    if (!do_incsearch_highlighting(firstc, is_state, &skiplen, &patlen))
+    {
+	restore_last_search_pattern();
+	finish_incsearch_highlighting(FALSE, is_state, TRUE);
+	return;
+    }
+
+    // If there is a character waiting, search and redraw later.
+    if (char_avail())
+    {
+	restore_last_search_pattern();
+	is_state->incsearch_postponed = TRUE;
+	return;
+    }
+    is_state->incsearch_postponed = FALSE;
+
+    if (search_first_line == 0)
+	// start at the original cursor position
+	curwin->w_cursor = is_state->search_start;
+    else if (search_first_line > curbuf->b_ml.ml_line_count)
+    {
+	// start after the last line
+	curwin->w_cursor.lnum = curbuf->b_ml.ml_line_count;
+	curwin->w_cursor.col = MAXCOL;
+    }
+    else
+    {
+	// start at the first line in the range
+	curwin->w_cursor.lnum = search_first_line;
+	curwin->w_cursor.col = 0;
+    }
+
+    // Use the previous pattern for ":s//".
+    next_char = ccline.cmdbuff[skiplen + patlen];
+    use_last_pat = patlen == 0 && skiplen > 0
+				   && ccline.cmdbuff[skiplen - 1] == next_char;
+
+    // If there is no pattern, don't do anything.
+    if (patlen == 0 && !use_last_pat)
+    {
+	found = 0;
+	set_no_hlsearch(TRUE); // turn off previous highlight
+	redraw_all_later(SOME_VALID);
+    }
+    else
+    {
+	int search_flags = SEARCH_OPT + SEARCH_NOOF + SEARCH_PEEK;
+
+	cursor_off();	// so the user knows we're busy
+	out_flush();
+	++emsg_off;	// so it doesn't beep if bad expr
+#ifdef FEAT_RELTIME
+	// Set the time limit to half a second.
+	profile_setlimit(500L, &tm);
+#endif
+	if (!p_hls)
+	    search_flags += SEARCH_KEEP;
+	if (search_first_line != 0)
+	    search_flags += SEARCH_START;
+	ccline.cmdbuff[skiplen + patlen] = NUL;
+	found = do_search(NULL, firstc == ':' ? '/' : firstc,
+				 ccline.cmdbuff + skiplen, count, search_flags,
+#ifdef FEAT_RELTIME
+		&tm, NULL
+#else
+		NULL, NULL
+#endif
+		);
+	ccline.cmdbuff[skiplen + patlen] = next_char;
+	--emsg_off;
+
+	if (curwin->w_cursor.lnum < search_first_line
+		|| curwin->w_cursor.lnum > search_last_line)
+	{
+	    // match outside of address range
+	    found = 0;
+	    curwin->w_cursor = is_state->search_start;
+	}
+
+	// if interrupted while searching, behave like it failed
+	if (got_int)
+	{
+	    (void)vpeekc();	// remove <C-C> from input stream
+	    got_int = FALSE;	// don't abandon the command line
+	    found = 0;
+	}
+	else if (char_avail())
+	    // cancelled searching because a char was typed
+	    is_state->incsearch_postponed = TRUE;
+    }
+    if (found != 0)
+	highlight_match = TRUE;		// highlight position
+    else
+	highlight_match = FALSE;	// remove highlight
+
+    // First restore the old curwin values, so the screen is positioned in the
+    // same way as the actual search command.
+    restore_viewstate(&is_state->old_viewstate);
+    changed_cline_bef_curs();
+    update_topline();
+
+    if (found != 0)
+    {
+	pos_T	    save_pos = curwin->w_cursor;
+
+	is_state->match_start = curwin->w_cursor;
+	set_search_match(&curwin->w_cursor);
+	validate_cursor();
+	end_pos = curwin->w_cursor;
+	is_state->match_end = end_pos;
+	curwin->w_cursor = save_pos;
+    }
+    else
+	end_pos = curwin->w_cursor; // shutup gcc 4
+
+    // Disable 'hlsearch' highlighting if the pattern matches everything.
+    // Avoids a flash when typing "foo\|".
+    if (!use_last_pat)
+    {
+	next_char = ccline.cmdbuff[skiplen + patlen];
+	ccline.cmdbuff[skiplen + patlen] = NUL;
+	if (empty_pattern(ccline.cmdbuff) && !no_hlsearch)
+	{
+	    redraw_all_later(SOME_VALID);
+	    set_no_hlsearch(TRUE);
+	}
+	ccline.cmdbuff[skiplen + patlen] = next_char;
+    }
+
+    validate_cursor();
+    // May redraw the status line to show the cursor position.
+    if (p_ru && curwin->w_status_height > 0)
+	curwin->w_redr_status = TRUE;
+
+    update_screen(SOME_VALID);
+    restore_last_search_pattern();
+
+    // Leave it at the end to make CTRL-R CTRL-W work.  But not when beyond the
+    // end of the pattern, e.g. for ":s/pat/".
+    if (ccline.cmdbuff[skiplen + patlen] != NUL)
+	curwin->w_cursor = is_state->search_start;
+    else if (found != 0)
+	curwin->w_cursor = end_pos;
+
+    msg_starthere();
+    redrawcmdline();
+    is_state->did_incsearch = TRUE;
+}
+
+/*
+ * May adjust 'incsearch' highlighting for typing CTRL-G and CTRL-T, go to next
+ * or previous match.
+ * Returns FAIL when jumping to cmdline_not_changed;
+ */
+    static int
+may_adjust_incsearch_highlighting(
+	int			firstc,
+	long			count,
+	incsearch_state_T	*is_state,
+	int			c)
+{
+    int	    skiplen, patlen;
+    pos_T   t;
+    char_u  *pat;
+    int	    search_flags = SEARCH_NOOF;
+    int	    i;
+    int	    save;
+
+    // Parsing range may already set the last search pattern.
+    // NOTE: must call restore_last_search_pattern() before returning!
+    save_last_search_pattern();
+
+    if (!do_incsearch_highlighting(firstc, is_state, &skiplen, &patlen))
+    {
+	restore_last_search_pattern();
+	return OK;
+    }
+    if (patlen == 0 && ccline.cmdbuff[skiplen] == NUL)
+    {
+	restore_last_search_pattern();
+	return FAIL;
+    }
+
+    if (firstc == ccline.cmdbuff[skiplen])
+    {
+	pat = last_search_pattern();
+	skiplen = 0;
+	patlen = (int)STRLEN(pat);
+    }
+    else
+	pat = ccline.cmdbuff + skiplen;
+
+    cursor_off();
+    out_flush();
+    if (c == Ctrl_G)
+    {
+	t = is_state->match_end;
+	if (LT_POS(is_state->match_start, is_state->match_end))
+	    // Start searching at the end of the match not at the beginning of
+	    // the next column.
+	    (void)decl(&t);
+	search_flags += SEARCH_COL;
+    }
+    else
+	t = is_state->match_start;
+    if (!p_hls)
+	search_flags += SEARCH_KEEP;
+    ++emsg_off;
+    save = pat[patlen];
+    pat[patlen] = NUL;
+    i = searchit(curwin, curbuf, &t, NULL,
+		 c == Ctrl_G ? FORWARD : BACKWARD,
+		 pat, count, search_flags,
+		 RE_SEARCH, 0, NULL, NULL);
+    --emsg_off;
+    pat[patlen] = save;
+    if (i)
+    {
+	is_state->search_start = is_state->match_start;
+	is_state->match_end = t;
+	is_state->match_start = t;
+	if (c == Ctrl_T && firstc != '?')
+	{
+	    // Move just before the current match, so that when nv_search
+	    // finishes the cursor will be put back on the match.
+	    is_state->search_start = t;
+	    (void)decl(&is_state->search_start);
+	}
+	else if (c == Ctrl_G && firstc == '?')
+	{
+	    // Move just after the current match, so that when nv_search
+	    // finishes the cursor will be put back on the match.
+	    is_state->search_start = t;
+	    (void)incl(&is_state->search_start);
+	}
+	if (LT_POS(t, is_state->search_start) && c == Ctrl_G)
+	{
+	    // wrap around
+	    is_state->search_start = t;
+	    if (firstc == '?')
+		(void)incl(&is_state->search_start);
+	    else
+		(void)decl(&is_state->search_start);
+	}
+
+	set_search_match(&is_state->match_end);
+	curwin->w_cursor = is_state->match_start;
+	changed_cline_bef_curs();
+	update_topline();
+	validate_cursor();
+	highlight_match = TRUE;
+	save_viewstate(&is_state->old_viewstate);
+	update_screen(NOT_VALID);
+	redrawcmdline();
+    }
+    else
+	vim_beep(BO_ERROR);
+    restore_last_search_pattern();
+    return FAIL;
+}
+
+/*
+ * When CTRL-L typed: add character from the match to the pattern.
+ * May set "*c" to the added character.
+ * Return OK when jumping to cmdline_not_changed.
+ */
+    static int
+may_add_char_to_search(int firstc, int *c, incsearch_state_T *is_state)
+{
+    int		skiplen, patlen;
+
+    // Parsing range may already set the last search pattern.
+    // NOTE: must call restore_last_search_pattern() before returning!
+    save_last_search_pattern();
+
+    if (!do_incsearch_highlighting(firstc, is_state, &skiplen, &patlen))
+    {
+	restore_last_search_pattern();
+	return FAIL;
+    }
+    restore_last_search_pattern();
+
+    // Add a character from under the cursor for 'incsearch'.
+    if (is_state->did_incsearch)
+    {
+	curwin->w_cursor = is_state->match_end;
+	if (!EQUAL_POS(curwin->w_cursor, is_state->search_start))
+	{
+	    *c = gchar_cursor();
+
+	    // If 'ignorecase' and 'smartcase' are set and the
+	    // command line has no uppercase characters, convert
+	    // the character to lowercase.
+	    if (p_ic && p_scs && !pat_has_uppercase(ccline.cmdbuff + skiplen))
+		*c = MB_TOLOWER(*c);
+	    if (*c != NUL)
+	    {
+		if (*c == firstc || vim_strchr((char_u *)(
+				   p_magic ? "\\~^$.*[" : "\\^$"), *c) != NULL)
+		{
+		    // put a backslash before special characters
+		    stuffcharReadbuff(*c);
+		    *c = '\\';
+		}
+		// add any composing characters
+		if (mb_char2len(*c) != mb_ptr2len(ml_get_cursor()))
+		{
+		    int save_c = *c;
+
+		    while (mb_char2len(*c) != mb_ptr2len(ml_get_cursor()))
+		    {
+			curwin->w_cursor.col += mb_char2len(*c);
+			*c = gchar_cursor();
+			stuffcharReadbuff(*c);
+		    }
+		    *c = save_c;
+		}
+		return FAIL;
+	    }
+	}
+    }
+    return OK;
+}
+#endif
+
+    void
+cmdline_init(void)
+{
+    vim_memset(&ccline, 0, sizeof(struct cmdline_info));
+}
+
+/*
+ * getcmdline() - accept a command line starting with firstc.
+ *
+ * firstc == ':'	    get ":" command line.
+ * firstc == '/' or '?'	    get search pattern
+ * firstc == '='	    get expression
+ * firstc == '@'	    get text for input() function
+ * firstc == '>'	    get text for debug mode
+ * firstc == NUL	    get text for :insert command
+ * firstc == -1		    like NUL, and break on CTRL-C
+ *
+ * The line is collected in ccline.cmdbuff, which is reallocated to fit the
+ * command line.
+ *
+ * Careful: getcmdline() can be called recursively!
+ *
+ * Return pointer to allocated string if there is a commandline, NULL
+ * otherwise.
+ */
+    char_u *
+getcmdline(
+    int		firstc,
+    long	count,		// only used for incremental search
+    int		indent)		// indent for inside conditionals
+{
+    return getcmdline_int(firstc, count, indent, TRUE);
+}
+
+    static char_u *
+getcmdline_int(
+    int		firstc,
+    long	count UNUSED,	// only used for incremental search
+    int		indent,		// indent for inside conditionals
+    int		init_ccline)	// clear ccline first
+{
+    int		c;
+    int		i;
+    int		j;
+    int		gotesc = FALSE;		/* TRUE when <ESC> just typed */
+    int		do_abbr;		/* when TRUE check for abbr. */
+#ifdef FEAT_CMDHIST
+    char_u	*lookfor = NULL;	/* string to match */
+    int		hiscnt;			/* current history line in use */
+    int		histype;		/* history type to be used */
+#endif
+#ifdef FEAT_SEARCH_EXTRA
+    incsearch_state_T	is_state;
+#endif
+    int		did_wild_list = FALSE;	/* did wild_list() recently */
+    int		wim_index = 0;		/* index in wim_flags[] */
+    int		res;
+    int		save_msg_scroll = msg_scroll;
+    int		save_State = State;	/* remember State when called */
+    int		some_key_typed = FALSE;	/* one of the keys was typed */
+#ifdef FEAT_MOUSE
+    /* mouse drag and release events are ignored, unless they are
+     * preceded with a mouse down event */
+    int		ignore_drag_release = TRUE;
+#endif
+#ifdef FEAT_EVAL
+    int		break_ctrl_c = FALSE;
+#endif
+    expand_T	xpc;
+    long	*b_im_ptr = NULL;
+    struct cmdline_info save_ccline;
+    int		did_save_ccline = FALSE;
+    int		cmdline_type;
+
+    if (ccline.cmdbuff != NULL)
+    {
+	// Being called recursively.  Since ccline is global, we need to save
+	// the current buffer and restore it when returning.
+	save_cmdline(&save_ccline);
+	did_save_ccline = TRUE;
+    }
+    if (init_ccline)
+	vim_memset(&ccline, 0, sizeof(struct cmdline_info));
+
+#ifdef FEAT_EVAL
+    if (firstc == -1)
+    {
+	firstc = NUL;
+	break_ctrl_c = TRUE;
+    }
+#endif
+#ifdef FEAT_RIGHTLEFT
+    /* start without Hebrew mapping for a command line */
+    if (firstc == ':' || firstc == '=' || firstc == '>')
+	cmd_hkmap = 0;
+#endif
+
+    ccline.overstrike = FALSE;		    /* always start in insert mode */
+
+#ifdef FEAT_SEARCH_EXTRA
+    init_incsearch_state(&is_state);
+#endif
+
+    /*
+     * set some variables for redrawcmd()
+     */
+    ccline.cmdfirstc = (firstc == '@' ? 0 : firstc);
+    ccline.cmdindent = (firstc > 0 ? indent : 0);
+
+    /* alloc initial ccline.cmdbuff */
+    alloc_cmdbuff(exmode_active ? 250 : indent + 1);
+    if (ccline.cmdbuff == NULL)
+	goto theend;	// out of memory
+    ccline.cmdlen = ccline.cmdpos = 0;
+    ccline.cmdbuff[0] = NUL;
+    sb_text_start_cmdline();
+
+    /* autoindent for :insert and :append */
+    if (firstc <= 0)
+    {
+	vim_memset(ccline.cmdbuff, ' ', indent);
+	ccline.cmdbuff[indent] = NUL;
+	ccline.cmdpos = indent;
+	ccline.cmdspos = indent;
+	ccline.cmdlen = indent;
+    }
+
+    ExpandInit(&xpc);
+    ccline.xpc = &xpc;
+
+#ifdef FEAT_RIGHTLEFT
+    if (curwin->w_p_rl && *curwin->w_p_rlc == 's'
+					  && (firstc == '/' || firstc == '?'))
+	cmdmsg_rl = TRUE;
+    else
+	cmdmsg_rl = FALSE;
+#endif
+
+    redir_off = TRUE;		/* don't redirect the typed command */
+    if (!cmd_silent)
+    {
+	i = msg_scrolled;
+	msg_scrolled = 0;		/* avoid wait_return message */
+	gotocmdline(TRUE);
+	msg_scrolled += i;
+	redrawcmdprompt();		/* draw prompt or indent */
+	set_cmdspos();
+    }
+    xpc.xp_context = EXPAND_NOTHING;
+    xpc.xp_backslash = XP_BS_NONE;
+#ifndef BACKSLASH_IN_FILENAME
+    xpc.xp_shell = FALSE;
+#endif
+
+#if defined(FEAT_EVAL)
+    if (ccline.input_fn)
+    {
+	xpc.xp_context = ccline.xp_context;
+	xpc.xp_pattern = ccline.cmdbuff;
+# if defined(FEAT_USR_CMDS) && defined(FEAT_CMDL_COMPL)
+	xpc.xp_arg = ccline.xp_arg;
+# endif
+    }
+#endif
+
+    /*
+     * Avoid scrolling when called by a recursive do_cmdline(), e.g. when
+     * doing ":@0" when register 0 doesn't contain a CR.
+     */
+    msg_scroll = FALSE;
+
+    State = CMDLINE;
+
+    if (firstc == '/' || firstc == '?' || firstc == '@')
+    {
+	/* Use ":lmap" mappings for search pattern and input(). */
+	if (curbuf->b_p_imsearch == B_IMODE_USE_INSERT)
+	    b_im_ptr = &curbuf->b_p_iminsert;
+	else
+	    b_im_ptr = &curbuf->b_p_imsearch;
+	if (*b_im_ptr == B_IMODE_LMAP)
+	    State |= LANGMAP;
+#ifdef HAVE_INPUT_METHOD
+	im_set_active(*b_im_ptr == B_IMODE_IM);
+#endif
+    }
+#ifdef HAVE_INPUT_METHOD
+    else if (p_imcmdline)
+	im_set_active(TRUE);
+#endif
+
+#ifdef FEAT_MOUSE
+    setmouse();
+#endif
+#ifdef CURSOR_SHAPE
+    ui_cursor_shape();		/* may show different cursor shape */
+#endif
+
+    /* When inside an autocommand for writing "exiting" may be set and
+     * terminal mode set to cooked.  Need to set raw mode here then. */
+    settmode(TMODE_RAW);
+
+    /* Trigger CmdlineEnter autocommands. */
+    cmdline_type = firstc == NUL ? '-' : firstc;
+    trigger_cmd_autocmd(cmdline_type, EVENT_CMDLINEENTER);
+
+#ifdef FEAT_CMDHIST
+    init_history();
+    hiscnt = hislen;		/* set hiscnt to impossible history value */
+    histype = hist_char2type(firstc);
+#endif
+
+#ifdef FEAT_DIGRAPHS
+    do_digraph(-1);		/* init digraph typeahead */
+#endif
+
+    /* If something above caused an error, reset the flags, we do want to type
+     * and execute commands. Display may be messed up a bit. */
+    if (did_emsg)
+	redrawcmd();
+    did_emsg = FALSE;
+    got_int = FALSE;
+
+    /*
+     * Collect the command string, handling editing keys.
+     */
+    for (;;)
+    {
+	redir_off = TRUE;	/* Don't redirect the typed command.
+				   Repeated, because a ":redir" inside
+				   completion may switch it on. */
+#ifdef USE_ON_FLY_SCROLL
+	dont_scroll = FALSE;	/* allow scrolling here */
+#endif
+	quit_more = FALSE;	/* reset after CTRL-D which had a more-prompt */
+
+	did_emsg = FALSE;	/* There can't really be a reason why an error
+				   that occurs while typing a command should
+				   cause the command not to be executed. */
+
+	cursorcmd();		/* set the cursor on the right spot */
+
+	/* Get a character.  Ignore K_IGNORE and K_NOP, they should not do
+	 * anything, such as stop completion. */
+	do
+	{
+	    c = safe_vgetc();
+	} while (c == K_IGNORE || c == K_NOP);
+
+	if (KeyTyped)
+	{
+	    some_key_typed = TRUE;
+#ifdef FEAT_RIGHTLEFT
+	    if (cmd_hkmap)
+		c = hkmap(c);
+# ifdef FEAT_FKMAP
+	    if (cmd_fkmap)
+		c = cmdl_fkmap(c);
+# endif
+	    if (cmdmsg_rl && !KeyStuffed)
+	    {
+		/* Invert horizontal movements and operations.  Only when
+		 * typed by the user directly, not when the result of a
+		 * mapping. */
+		switch (c)
+		{
+		    case K_RIGHT:   c = K_LEFT; break;
+		    case K_S_RIGHT: c = K_S_LEFT; break;
+		    case K_C_RIGHT: c = K_C_LEFT; break;
+		    case K_LEFT:    c = K_RIGHT; break;
+		    case K_S_LEFT:  c = K_S_RIGHT; break;
+		    case K_C_LEFT:  c = K_C_RIGHT; break;
+		}
+	    }
+#endif
+	}
+
+	/*
+	 * Ignore got_int when CTRL-C was typed here.
+	 * Don't ignore it in :global, we really need to break then, e.g., for
+	 * ":g/pat/normal /pat" (without the <CR>).
+	 * Don't ignore it for the input() function.
+	 */
+	if ((c == Ctrl_C
+#ifdef UNIX
+		|| c == intr_char
+#endif
+				)
+#if defined(FEAT_EVAL) || defined(FEAT_CRYPT)
+		&& firstc != '@'
+#endif
+#ifdef FEAT_EVAL
+		&& !break_ctrl_c
+#endif
+		&& !global_busy)
+	    got_int = FALSE;
+
+#ifdef FEAT_CMDHIST
+	/* free old command line when finished moving around in the history
+	 * list */
+	if (lookfor != NULL
+		&& c != K_S_DOWN && c != K_S_UP
+		&& c != K_DOWN && c != K_UP
+		&& c != K_PAGEDOWN && c != K_PAGEUP
+		&& c != K_KPAGEDOWN && c != K_KPAGEUP
+		&& c != K_LEFT && c != K_RIGHT
+		&& (xpc.xp_numfiles > 0 || (c != Ctrl_P && c != Ctrl_N)))
+	    VIM_CLEAR(lookfor);
+#endif
+
+	/*
+	 * When there are matching completions to select <S-Tab> works like
+	 * CTRL-P (unless 'wc' is <S-Tab>).
+	 */
+	if (c != p_wc && c == K_S_TAB && xpc.xp_numfiles > 0)
+	    c = Ctrl_P;
+
+#ifdef FEAT_WILDMENU
+	/* Special translations for 'wildmenu' */
+	if (did_wild_list && p_wmnu)
+	{
+	    if (c == K_LEFT)
+		c = Ctrl_P;
+	    else if (c == K_RIGHT)
+		c = Ctrl_N;
+	}
+	/* Hitting CR after "emenu Name.": complete submenu */
+	if (xpc.xp_context == EXPAND_MENUNAMES && p_wmnu
+		&& ccline.cmdpos > 1
+		&& ccline.cmdbuff[ccline.cmdpos - 1] == '.'
+		&& ccline.cmdbuff[ccline.cmdpos - 2] != '\\'
+		&& (c == '\n' || c == '\r' || c == K_KENTER))
+	    c = K_DOWN;
+#endif
+
+	/* free expanded names when finished walking through matches */
+	if (xpc.xp_numfiles != -1
+		&& !(c == p_wc && KeyTyped) && c != p_wcm
+		&& c != Ctrl_N && c != Ctrl_P && c != Ctrl_A
+		&& c != Ctrl_L)
+	{
+	    (void)ExpandOne(&xpc, NULL, NULL, 0, WILD_FREE);
+	    did_wild_list = FALSE;
+#ifdef FEAT_WILDMENU
+	    if (!p_wmnu || (c != K_UP && c != K_DOWN))
+#endif
+		xpc.xp_context = EXPAND_NOTHING;
+	    wim_index = 0;
+#ifdef FEAT_WILDMENU
+	    if (p_wmnu && wild_menu_showing != 0)
+	    {
+		int skt = KeyTyped;
+		int old_RedrawingDisabled = RedrawingDisabled;
+
+		if (ccline.input_fn)
+		    RedrawingDisabled = 0;
+
+		if (wild_menu_showing == WM_SCROLLED)
+		{
+		    /* Entered command line, move it up */
+		    cmdline_row--;
+		    redrawcmd();
+		}
+		else if (save_p_ls != -1)
+		{
+		    /* restore 'laststatus' and 'winminheight' */
+		    p_ls = save_p_ls;
+		    p_wmh = save_p_wmh;
+		    last_status(FALSE);
+		    update_screen(VALID);	/* redraw the screen NOW */
+		    redrawcmd();
+		    save_p_ls = -1;
+		}
+		else
+		{
+		    win_redraw_last_status(topframe);
+		    redraw_statuslines();
+		}
+		KeyTyped = skt;
+		wild_menu_showing = 0;
+		if (ccline.input_fn)
+		    RedrawingDisabled = old_RedrawingDisabled;
+	    }
+#endif
+	}
+
+#ifdef FEAT_WILDMENU
+	/* Special translations for 'wildmenu' */
+	if (xpc.xp_context == EXPAND_MENUNAMES && p_wmnu)
+	{
+	    /* Hitting <Down> after "emenu Name.": complete submenu */
+	    if (c == K_DOWN && ccline.cmdpos > 0
+				  && ccline.cmdbuff[ccline.cmdpos - 1] == '.')
+		c = p_wc;
+	    else if (c == K_UP)
+	    {
+		/* Hitting <Up>: Remove one submenu name in front of the
+		 * cursor */
+		int found = FALSE;
+
+		j = (int)(xpc.xp_pattern - ccline.cmdbuff);
+		i = 0;
+		while (--j > 0)
+		{
+		    /* check for start of menu name */
+		    if (ccline.cmdbuff[j] == ' '
+			    && ccline.cmdbuff[j - 1] != '\\')
+		    {
+			i = j + 1;
+			break;
+		    }
+		    /* check for start of submenu name */
+		    if (ccline.cmdbuff[j] == '.'
+			    && ccline.cmdbuff[j - 1] != '\\')
+		    {
+			if (found)
+			{
+			    i = j + 1;
+			    break;
+			}
+			else
+			    found = TRUE;
+		    }
+		}
+		if (i > 0)
+		    cmdline_del(i);
+		c = p_wc;
+		xpc.xp_context = EXPAND_NOTHING;
+	    }
+	}
+	if ((xpc.xp_context == EXPAND_FILES
+			      || xpc.xp_context == EXPAND_DIRECTORIES
+			      || xpc.xp_context == EXPAND_SHELLCMD) && p_wmnu)
+	{
+	    char_u upseg[5];
+
+	    upseg[0] = PATHSEP;
+	    upseg[1] = '.';
+	    upseg[2] = '.';
+	    upseg[3] = PATHSEP;
+	    upseg[4] = NUL;
+
+	    if (c == K_DOWN
+		    && ccline.cmdpos > 0
+		    && ccline.cmdbuff[ccline.cmdpos - 1] == PATHSEP
+		    && (ccline.cmdpos < 3
+			|| ccline.cmdbuff[ccline.cmdpos - 2] != '.'
+			|| ccline.cmdbuff[ccline.cmdpos - 3] != '.'))
+	    {
+		/* go down a directory */
+		c = p_wc;
+	    }
+	    else if (STRNCMP(xpc.xp_pattern, upseg + 1, 3) == 0 && c == K_DOWN)
+	    {
+		/* If in a direct ancestor, strip off one ../ to go down */
+		int found = FALSE;
+
+		j = ccline.cmdpos;
+		i = (int)(xpc.xp_pattern - ccline.cmdbuff);
+		while (--j > i)
+		{
+		    if (has_mbyte)
+			j -= (*mb_head_off)(ccline.cmdbuff, ccline.cmdbuff + j);
+		    if (vim_ispathsep(ccline.cmdbuff[j]))
+		    {
+			found = TRUE;
+			break;
+		    }
+		}
+		if (found
+			&& ccline.cmdbuff[j - 1] == '.'
+			&& ccline.cmdbuff[j - 2] == '.'
+			&& (vim_ispathsep(ccline.cmdbuff[j - 3]) || j == i + 2))
+		{
+		    cmdline_del(j - 2);
+		    c = p_wc;
+		}
+	    }
+	    else if (c == K_UP)
+	    {
+		/* go up a directory */
+		int found = FALSE;
+
+		j = ccline.cmdpos - 1;
+		i = (int)(xpc.xp_pattern - ccline.cmdbuff);
+		while (--j > i)
+		{
+		    if (has_mbyte)
+			j -= (*mb_head_off)(ccline.cmdbuff, ccline.cmdbuff + j);
+		    if (vim_ispathsep(ccline.cmdbuff[j])
+#ifdef BACKSLASH_IN_FILENAME
+			    && vim_strchr((char_u *)" *?[{`$%#",
+				ccline.cmdbuff[j + 1]) == NULL
+#endif
+		       )
+		    {
+			if (found)
+			{
+			    i = j + 1;
+			    break;
+			}
+			else
+			    found = TRUE;
+		    }
+		}
+
+		if (!found)
+		    j = i;
+		else if (STRNCMP(ccline.cmdbuff + j, upseg, 4) == 0)
+		    j += 4;
+		else if (STRNCMP(ccline.cmdbuff + j, upseg + 1, 3) == 0
+			     && j == i)
+		    j += 3;
+		else
+		    j = 0;
+		if (j > 0)
+		{
+		    /* TODO this is only for DOS/UNIX systems - need to put in
+		     * machine-specific stuff here and in upseg init */
+		    cmdline_del(j);
+		    put_on_cmdline(upseg + 1, 3, FALSE);
+		}
+		else if (ccline.cmdpos > i)
+		    cmdline_del(i);
+
+		/* Now complete in the new directory. Set KeyTyped in case the
+		 * Up key came from a mapping. */
+		c = p_wc;
+		KeyTyped = TRUE;
+	    }
+	}
+
+#endif	/* FEAT_WILDMENU */
+
+	/* CTRL-\ CTRL-N goes to Normal mode, CTRL-\ CTRL-G goes to Insert
+	 * mode when 'insertmode' is set, CTRL-\ e prompts for an expression. */
+	if (c == Ctrl_BSL)
+	{
+	    ++no_mapping;
+	    ++allow_keys;
+	    c = plain_vgetc();
+	    --no_mapping;
+	    --allow_keys;
+	    /* CTRL-\ e doesn't work when obtaining an expression, unless it
+	     * is in a mapping. */
+	    if (c != Ctrl_N && c != Ctrl_G && (c != 'e'
+				    || (ccline.cmdfirstc == '=' && KeyTyped)
+#ifdef FEAT_EVAL
+				    || cmdline_star > 0
+#endif
+				    ))
+	    {
+		vungetc(c);
+		c = Ctrl_BSL;
+	    }
+#ifdef FEAT_EVAL
+	    else if (c == 'e')
+	    {
+		char_u	*p = NULL;
+		int	len;
+
+		/*
+		 * Replace the command line with the result of an expression.
+		 * Need to save and restore the current command line, to be
+		 * able to enter a new one...
+		 */
+		if (ccline.cmdpos == ccline.cmdlen)
+		    new_cmdpos = 99999;	/* keep it at the end */
+		else
+		    new_cmdpos = ccline.cmdpos;
+
+		c = get_expr_register();
+		if (c == '=')
+		{
+		    /* Need to save and restore ccline.  And set "textlock"
+		     * to avoid nasty things like going to another buffer when
+		     * evaluating an expression. */
+		    ++textlock;
+		    p = get_expr_line();
+		    --textlock;
+
+		    if (p != NULL)
+		    {
+			len = (int)STRLEN(p);
+			if (realloc_cmdbuff(len + 1) == OK)
+			{
+			    ccline.cmdlen = len;
+			    STRCPY(ccline.cmdbuff, p);
+			    vim_free(p);
+
+			    /* Restore the cursor or use the position set with
+			     * set_cmdline_pos(). */
+			    if (new_cmdpos > ccline.cmdlen)
+				ccline.cmdpos = ccline.cmdlen;
+			    else
+				ccline.cmdpos = new_cmdpos;
+
+			    KeyTyped = FALSE;	/* Don't do p_wc completion. */
+			    redrawcmd();
+			    goto cmdline_changed;
+			}
+			vim_free(p);
+		    }
+		}
+		beep_flush();
+		got_int = FALSE;	/* don't abandon the command line */
+		did_emsg = FALSE;
+		emsg_on_display = FALSE;
+		redrawcmd();
+		goto cmdline_not_changed;
+	    }
+#endif
+	    else
+	    {
+		if (c == Ctrl_G && p_im && restart_edit == 0)
+		    restart_edit = 'a';
+		gotesc = TRUE;	/* will free ccline.cmdbuff after putting it
+				   in history */
+		goto returncmd;	/* back to Normal mode */
+	    }
+	}
+
+#ifdef FEAT_CMDWIN
+	if (c == cedit_key || c == K_CMDWIN)
+	{
+	    if (ex_normal_busy == 0 && got_int == FALSE)
+	    {
+		/*
+		 * Open a window to edit the command line (and history).
+		 */
+		c = open_cmdwin();
+		some_key_typed = TRUE;
+	    }
+	}
+# ifdef FEAT_DIGRAPHS
+	else
+# endif
+#endif
+#ifdef FEAT_DIGRAPHS
+	    c = do_digraph(c);
+#endif
+
+	if (c == '\n' || c == '\r' || c == K_KENTER || (c == ESC
+			&& (!KeyTyped || vim_strchr(p_cpo, CPO_ESC) != NULL)))
+	{
+	    /* In Ex mode a backslash escapes a newline. */
+	    if (exmode_active
+		    && c != ESC
+		    && ccline.cmdpos == ccline.cmdlen
+		    && ccline.cmdpos > 0
+		    && ccline.cmdbuff[ccline.cmdpos - 1] == '\\')
+	    {
+		if (c == K_KENTER)
+		    c = '\n';
+	    }
+	    else
+	    {
+		gotesc = FALSE;	/* Might have typed ESC previously, don't
+				       truncate the cmdline now. */
+		if (ccheck_abbr(c + ABBR_OFF))
+		    goto cmdline_changed;
+		if (!cmd_silent)
+		{
+		    windgoto(msg_row, 0);
+		    out_flush();
+		}
+		break;
+	    }
+	}
+
+	/*
+	 * Completion for 'wildchar' or 'wildcharm' key.
+	 * - hitting <ESC> twice means: abandon command line.
+	 * - wildcard expansion is only done when the 'wildchar' key is really
+	 *   typed, not when it comes from a macro
+	 */
+	if ((c == p_wc && !gotesc && KeyTyped) || c == p_wcm)
+	{
+	    if (xpc.xp_numfiles > 0)   /* typed p_wc at least twice */
+	    {
+		/* if 'wildmode' contains "list" may still need to list */
+		if (xpc.xp_numfiles > 1
+			&& !did_wild_list
+			&& (wim_flags[wim_index] & WIM_LIST))
+		{
+		    (void)showmatches(&xpc, FALSE);
+		    redrawcmd();
+		    did_wild_list = TRUE;
+		}
+		if (wim_flags[wim_index] & WIM_LONGEST)
+		    res = nextwild(&xpc, WILD_LONGEST, WILD_NO_BEEP,
+							       firstc != '@');
+		else if (wim_flags[wim_index] & WIM_FULL)
+		    res = nextwild(&xpc, WILD_NEXT, WILD_NO_BEEP,
+							       firstc != '@');
+		else
+		    res = OK;	    /* don't insert 'wildchar' now */
+	    }
+	    else		    /* typed p_wc first time */
+	    {
+		wim_index = 0;
+		j = ccline.cmdpos;
+		/* if 'wildmode' first contains "longest", get longest
+		 * common part */
+		if (wim_flags[0] & WIM_LONGEST)
+		    res = nextwild(&xpc, WILD_LONGEST, WILD_NO_BEEP,
+							       firstc != '@');
+		else
+		    res = nextwild(&xpc, WILD_EXPAND_KEEP, WILD_NO_BEEP,
+							       firstc != '@');
+
+		/* if interrupted while completing, behave like it failed */
+		if (got_int)
+		{
+		    (void)vpeekc();	/* remove <C-C> from input stream */
+		    got_int = FALSE;	/* don't abandon the command line */
+		    (void)ExpandOne(&xpc, NULL, NULL, 0, WILD_FREE);
+#ifdef FEAT_WILDMENU
+		    xpc.xp_context = EXPAND_NOTHING;
+#endif
+		    goto cmdline_changed;
+		}
+
+		/* when more than one match, and 'wildmode' first contains
+		 * "list", or no change and 'wildmode' contains "longest,list",
+		 * list all matches */
+		if (res == OK && xpc.xp_numfiles > 1)
+		{
+		    /* a "longest" that didn't do anything is skipped (but not
+		     * "list:longest") */
+		    if (wim_flags[0] == WIM_LONGEST && ccline.cmdpos == j)
+			wim_index = 1;
+		    if ((wim_flags[wim_index] & WIM_LIST)
+#ifdef FEAT_WILDMENU
+			    || (p_wmnu && (wim_flags[wim_index] & WIM_FULL) != 0)
+#endif
+			    )
+		    {
+			if (!(wim_flags[0] & WIM_LONGEST))
+			{
+#ifdef FEAT_WILDMENU
+			    int p_wmnu_save = p_wmnu;
+			    p_wmnu = 0;
+#endif
+			    /* remove match */
+			    nextwild(&xpc, WILD_PREV, 0, firstc != '@');
+#ifdef FEAT_WILDMENU
+			    p_wmnu = p_wmnu_save;
+#endif
+			}
+#ifdef FEAT_WILDMENU
+			(void)showmatches(&xpc, p_wmnu
+				&& ((wim_flags[wim_index] & WIM_LIST) == 0));
+#else
+			(void)showmatches(&xpc, FALSE);
+#endif
+			redrawcmd();
+			did_wild_list = TRUE;
+			if (wim_flags[wim_index] & WIM_LONGEST)
+			    nextwild(&xpc, WILD_LONGEST, WILD_NO_BEEP,
+							       firstc != '@');
+			else if (wim_flags[wim_index] & WIM_FULL)
+			    nextwild(&xpc, WILD_NEXT, WILD_NO_BEEP,
+							       firstc != '@');
+		    }
+		    else
+			vim_beep(BO_WILD);
+		}
+#ifdef FEAT_WILDMENU
+		else if (xpc.xp_numfiles == -1)
+		    xpc.xp_context = EXPAND_NOTHING;
+#endif
+	    }
+	    if (wim_index < 3)
+		++wim_index;
+	    if (c == ESC)
+		gotesc = TRUE;
+	    if (res == OK)
+		goto cmdline_changed;
+	}
+
+	gotesc = FALSE;
+
+	/* <S-Tab> goes to last match, in a clumsy way */
+	if (c == K_S_TAB && KeyTyped)
+	{
+	    if (nextwild(&xpc, WILD_EXPAND_KEEP, 0, firstc != '@') == OK
+		    && nextwild(&xpc, WILD_PREV, 0, firstc != '@') == OK
+		    && nextwild(&xpc, WILD_PREV, 0, firstc != '@') == OK)
+		goto cmdline_changed;
+	}
+
+	if (c == NUL || c == K_ZERO)	    /* NUL is stored as NL */
+	    c = NL;
+
+	do_abbr = TRUE;		/* default: check for abbreviation */
+
+	/*
+	 * Big switch for a typed command line character.
+	 */
+	switch (c)
+	{
+	case K_BS:
+	case Ctrl_H:
+	case K_DEL:
+	case K_KDEL:
+	case Ctrl_W:
+#ifdef FEAT_FKMAP
+		if (cmd_fkmap && c == K_BS)
+		    c = K_DEL;
+#endif
+		if (c == K_KDEL)
+		    c = K_DEL;
+
+		/*
+		 * delete current character is the same as backspace on next
+		 * character, except at end of line
+		 */
+		if (c == K_DEL && ccline.cmdpos != ccline.cmdlen)
+		    ++ccline.cmdpos;
+		if (has_mbyte && c == K_DEL)
+		    ccline.cmdpos += mb_off_next(ccline.cmdbuff,
+					      ccline.cmdbuff + ccline.cmdpos);
+		if (ccline.cmdpos > 0)
+		{
+		    char_u *p;
+
+		    j = ccline.cmdpos;
+		    p = ccline.cmdbuff + j;
+		    if (has_mbyte)
+		    {
+			p = mb_prevptr(ccline.cmdbuff, p);
+			if (c == Ctrl_W)
+			{
+			    while (p > ccline.cmdbuff && vim_isspace(*p))
+				p = mb_prevptr(ccline.cmdbuff, p);
+			    i = mb_get_class(p);
+			    while (p > ccline.cmdbuff && mb_get_class(p) == i)
+				p = mb_prevptr(ccline.cmdbuff, p);
+			    if (mb_get_class(p) != i)
+				p += (*mb_ptr2len)(p);
+			}
+		    }
+		    else if (c == Ctrl_W)
+		    {
+			while (p > ccline.cmdbuff && vim_isspace(p[-1]))
+			    --p;
+			i = vim_iswordc(p[-1]);
+			while (p > ccline.cmdbuff && !vim_isspace(p[-1])
+				&& vim_iswordc(p[-1]) == i)
+			    --p;
+		    }
+		    else
+			--p;
+		    ccline.cmdpos = (int)(p - ccline.cmdbuff);
+		    ccline.cmdlen -= j - ccline.cmdpos;
+		    i = ccline.cmdpos;
+		    while (i < ccline.cmdlen)
+			ccline.cmdbuff[i++] = ccline.cmdbuff[j++];
+
+		    /* Truncate at the end, required for multi-byte chars. */
+		    ccline.cmdbuff[ccline.cmdlen] = NUL;
+#ifdef FEAT_SEARCH_EXTRA
+		    if (ccline.cmdlen == 0)
+		    {
+			is_state.search_start = is_state.save_cursor;
+			/* save view settings, so that the screen
+			 * won't be restored at the wrong position */
+			is_state.old_viewstate = is_state.init_viewstate;
+		    }
+#endif
+		    redrawcmd();
+		}
+		else if (ccline.cmdlen == 0 && c != Ctrl_W
+				   && ccline.cmdprompt == NULL && indent == 0)
+		{
+		    /* In ex and debug mode it doesn't make sense to return. */
+		    if (exmode_active
+#ifdef FEAT_EVAL
+			    || ccline.cmdfirstc == '>'
+#endif
+			    )
+			goto cmdline_not_changed;
+
+		    VIM_CLEAR(ccline.cmdbuff);	/* no commandline to return */
+		    if (!cmd_silent)
+		    {
+#ifdef FEAT_RIGHTLEFT
+			if (cmdmsg_rl)
+			    msg_col = Columns;
+			else
+#endif
+			    msg_col = 0;
+			msg_putchar(' ');		/* delete ':' */
+		    }
+#ifdef FEAT_SEARCH_EXTRA
+		    if (ccline.cmdlen == 0)
+			is_state.search_start = is_state.save_cursor;
+#endif
+		    redraw_cmdline = TRUE;
+		    goto returncmd;		/* back to cmd mode */
+		}
+		goto cmdline_changed;
+
+	case K_INS:
+	case K_KINS:
+#ifdef FEAT_FKMAP
+		/* if Farsi mode set, we are in reverse insert mode -
+		   Do not change the mode */
+		if (cmd_fkmap)
+		    beep_flush();
+		else
+#endif
+		ccline.overstrike = !ccline.overstrike;
+#ifdef CURSOR_SHAPE
+		ui_cursor_shape();	/* may show different cursor shape */
+#endif
+		goto cmdline_not_changed;
+
+	case Ctrl_HAT:
+		if (map_to_exists_mode((char_u *)"", LANGMAP, FALSE))
+		{
+		    /* ":lmap" mappings exists, toggle use of mappings. */
+		    State ^= LANGMAP;
+#ifdef HAVE_INPUT_METHOD
+		    im_set_active(FALSE);	/* Disable input method */
+#endif
+		    if (b_im_ptr != NULL)
+		    {
+			if (State & LANGMAP)
+			    *b_im_ptr = B_IMODE_LMAP;
+			else
+			    *b_im_ptr = B_IMODE_NONE;
+		    }
+		}
+#ifdef HAVE_INPUT_METHOD
+		else
+		{
+		    /* There are no ":lmap" mappings, toggle IM.  When
+		     * 'imdisable' is set don't try getting the status, it's
+		     * always off. */
+		    if ((p_imdisable && b_im_ptr != NULL)
+			    ? *b_im_ptr == B_IMODE_IM : im_get_status())
+		    {
+			im_set_active(FALSE);	/* Disable input method */
+			if (b_im_ptr != NULL)
+			    *b_im_ptr = B_IMODE_NONE;
+		    }
+		    else
+		    {
+			im_set_active(TRUE);	/* Enable input method */
+			if (b_im_ptr != NULL)
+			    *b_im_ptr = B_IMODE_IM;
+		    }
+		}
+#endif
+		if (b_im_ptr != NULL)
+		{
+		    if (b_im_ptr == &curbuf->b_p_iminsert)
+			set_iminsert_global();
+		    else
+			set_imsearch_global();
+		}
+#ifdef CURSOR_SHAPE
+		ui_cursor_shape();	/* may show different cursor shape */
+#endif
+#if defined(FEAT_KEYMAP)
+		/* Show/unshow value of 'keymap' in status lines later. */
+		status_redraw_curbuf();
+#endif
+		goto cmdline_not_changed;
+
+/*	case '@':   only in very old vi */
+	case Ctrl_U:
+		/* delete all characters left of the cursor */
+		j = ccline.cmdpos;
+		ccline.cmdlen -= j;
+		i = ccline.cmdpos = 0;
+		while (i < ccline.cmdlen)
+		    ccline.cmdbuff[i++] = ccline.cmdbuff[j++];
+		/* Truncate at the end, required for multi-byte chars. */
+		ccline.cmdbuff[ccline.cmdlen] = NUL;
+#ifdef FEAT_SEARCH_EXTRA
+		if (ccline.cmdlen == 0)
+		    is_state.search_start = is_state.save_cursor;
+#endif
+		redrawcmd();
+		goto cmdline_changed;
+
+#ifdef FEAT_CLIPBOARD
+	case Ctrl_Y:
+		/* Copy the modeless selection, if there is one. */
+		if (clip_star.state != SELECT_CLEARED)
+		{
+		    if (clip_star.state == SELECT_DONE)
+			clip_copy_modeless_selection(TRUE);
+		    goto cmdline_not_changed;
+		}
+		break;
+#endif
+
+	case ESC:	/* get here if p_wc != ESC or when ESC typed twice */
+	case Ctrl_C:
+		/* In exmode it doesn't make sense to return.  Except when
+		 * ":normal" runs out of characters. */
+		if (exmode_active
+			       && (ex_normal_busy == 0 || typebuf.tb_len > 0))
+		    goto cmdline_not_changed;
+
+		gotesc = TRUE;		/* will free ccline.cmdbuff after
+					   putting it in history */
+		goto returncmd;		/* back to cmd mode */
+
+	case Ctrl_R:			/* insert register */
+#ifdef USE_ON_FLY_SCROLL
+		dont_scroll = TRUE;	/* disallow scrolling here */
+#endif
+		putcmdline('"', TRUE);
+		++no_mapping;
+		i = c = plain_vgetc();	/* CTRL-R <char> */
+		if (i == Ctrl_O)
+		    i = Ctrl_R;		/* CTRL-R CTRL-O == CTRL-R CTRL-R */
+		if (i == Ctrl_R)
+		    c = plain_vgetc();	/* CTRL-R CTRL-R <char> */
+		extra_char = NUL;
+		--no_mapping;
+#ifdef FEAT_EVAL
+		/*
+		 * Insert the result of an expression.
+		 * Need to save the current command line, to be able to enter
+		 * a new one...
+		 */
+		new_cmdpos = -1;
+		if (c == '=')
+		{
+		    if (ccline.cmdfirstc == '='  // can't do this recursively
+			    || cmdline_star > 0) // or when typing a password
+		    {
+			beep_flush();
+			c = ESC;
+		    }
+		    else
+			c = get_expr_register();
+		}
+#endif
+		if (c != ESC)	    /* use ESC to cancel inserting register */
+		{
+		    cmdline_paste(c, i == Ctrl_R, FALSE);
+
+#ifdef FEAT_EVAL
+		    /* When there was a serious error abort getting the
+		     * command line. */
+		    if (aborting())
+		    {
+			gotesc = TRUE;  /* will free ccline.cmdbuff after
+					   putting it in history */
+			goto returncmd; /* back to cmd mode */
+		    }
+#endif
+		    KeyTyped = FALSE;	/* Don't do p_wc completion. */
+#ifdef FEAT_EVAL
+		    if (new_cmdpos >= 0)
+		    {
+			/* set_cmdline_pos() was used */
+			if (new_cmdpos > ccline.cmdlen)
+			    ccline.cmdpos = ccline.cmdlen;
+			else
+			    ccline.cmdpos = new_cmdpos;
+		    }
+#endif
+		}
+		redrawcmd();
+		goto cmdline_changed;
+
+	case Ctrl_D:
+		if (showmatches(&xpc, FALSE) == EXPAND_NOTHING)
+		    break;	/* Use ^D as normal char instead */
+
+		redrawcmd();
+		continue;	/* don't do incremental search now */
+
+	case K_RIGHT:
+	case K_S_RIGHT:
+	case K_C_RIGHT:
+		do
+		{
+		    if (ccline.cmdpos >= ccline.cmdlen)
+			break;
+		    i = cmdline_charsize(ccline.cmdpos);
+		    if (KeyTyped && ccline.cmdspos + i >= Columns * Rows)
+			break;
+		    ccline.cmdspos += i;
+		    if (has_mbyte)
+			ccline.cmdpos += (*mb_ptr2len)(ccline.cmdbuff
+							     + ccline.cmdpos);
+		    else
+			++ccline.cmdpos;
+		}
+		while ((c == K_S_RIGHT || c == K_C_RIGHT
+			       || (mod_mask & (MOD_MASK_SHIFT|MOD_MASK_CTRL)))
+			&& ccline.cmdbuff[ccline.cmdpos] != ' ');
+		if (has_mbyte)
+		    set_cmdspos_cursor();
+		goto cmdline_not_changed;
+
+	case K_LEFT:
+	case K_S_LEFT:
+	case K_C_LEFT:
+		if (ccline.cmdpos == 0)
+		    goto cmdline_not_changed;
+		do
+		{
+		    --ccline.cmdpos;
+		    if (has_mbyte)	/* move to first byte of char */
+			ccline.cmdpos -= (*mb_head_off)(ccline.cmdbuff,
+					      ccline.cmdbuff + ccline.cmdpos);
+		    ccline.cmdspos -= cmdline_charsize(ccline.cmdpos);
+		}
+		while (ccline.cmdpos > 0
+			&& (c == K_S_LEFT || c == K_C_LEFT
+			       || (mod_mask & (MOD_MASK_SHIFT|MOD_MASK_CTRL)))
+			&& ccline.cmdbuff[ccline.cmdpos - 1] != ' ');
+		if (has_mbyte)
+		    set_cmdspos_cursor();
+		goto cmdline_not_changed;
+
+	case K_IGNORE:
+		/* Ignore mouse event or open_cmdwin() result. */
+		goto cmdline_not_changed;
+
+#ifdef FEAT_GUI_W32
+	    /* On Win32 ignore <M-F4>, we get it when closing the window was
+	     * cancelled. */
+	case K_F4:
+	    if (mod_mask == MOD_MASK_ALT)
+	    {
+		redrawcmd();	    /* somehow the cmdline is cleared */
+		goto cmdline_not_changed;
+	    }
+	    break;
+#endif
+
+#ifdef FEAT_MOUSE
+	case K_MIDDLEDRAG:
+	case K_MIDDLERELEASE:
+		goto cmdline_not_changed;	/* Ignore mouse */
+
+	case K_MIDDLEMOUSE:
+# ifdef FEAT_GUI
+		/* When GUI is active, also paste when 'mouse' is empty */
+		if (!gui.in_use)
+# endif
+		    if (!mouse_has(MOUSE_COMMAND))
+			goto cmdline_not_changed;   /* Ignore mouse */
+# ifdef FEAT_CLIPBOARD
+		if (clip_star.available)
+		    cmdline_paste('*', TRUE, TRUE);
+		else
+# endif
+		    cmdline_paste(0, TRUE, TRUE);
+		redrawcmd();
+		goto cmdline_changed;
+
+# ifdef FEAT_DND
+	case K_DROP:
+		cmdline_paste('~', TRUE, FALSE);
+		redrawcmd();
+		goto cmdline_changed;
+# endif
+
+	case K_LEFTDRAG:
+	case K_LEFTRELEASE:
+	case K_RIGHTDRAG:
+	case K_RIGHTRELEASE:
+		/* Ignore drag and release events when the button-down wasn't
+		 * seen before. */
+		if (ignore_drag_release)
+		    goto cmdline_not_changed;
+		/* FALLTHROUGH */
+	case K_LEFTMOUSE:
+	case K_RIGHTMOUSE:
+		if (c == K_LEFTRELEASE || c == K_RIGHTRELEASE)
+		    ignore_drag_release = TRUE;
+		else
+		    ignore_drag_release = FALSE;
+# ifdef FEAT_GUI
+		/* When GUI is active, also move when 'mouse' is empty */
+		if (!gui.in_use)
+# endif
+		    if (!mouse_has(MOUSE_COMMAND))
+			goto cmdline_not_changed;   /* Ignore mouse */
+# ifdef FEAT_CLIPBOARD
+		if (mouse_row < cmdline_row && clip_star.available)
+		{
+		    int	    button, is_click, is_drag;
+
+		    /*
+		     * Handle modeless selection.
+		     */
+		    button = get_mouse_button(KEY2TERMCAP1(c),
+							 &is_click, &is_drag);
+		    if (mouse_model_popup() && button == MOUSE_LEFT
+					       && (mod_mask & MOD_MASK_SHIFT))
+		    {
+			/* Translate shift-left to right button. */
+			button = MOUSE_RIGHT;
+			mod_mask &= ~MOD_MASK_SHIFT;
+		    }
+		    clip_modeless(button, is_click, is_drag);
+		    goto cmdline_not_changed;
+		}
+# endif
+
+		set_cmdspos();
+		for (ccline.cmdpos = 0; ccline.cmdpos < ccline.cmdlen;
+							      ++ccline.cmdpos)
+		{
+		    i = cmdline_charsize(ccline.cmdpos);
+		    if (mouse_row <= cmdline_row + ccline.cmdspos / Columns
+				  && mouse_col < ccline.cmdspos % Columns + i)
+			break;
+		    if (has_mbyte)
+		    {
+			/* Count ">" for double-wide char that doesn't fit. */
+			correct_cmdspos(ccline.cmdpos, i);
+			ccline.cmdpos += (*mb_ptr2len)(ccline.cmdbuff
+							 + ccline.cmdpos) - 1;
+		    }
+		    ccline.cmdspos += i;
+		}
+		goto cmdline_not_changed;
+
+	/* Mouse scroll wheel: ignored here */
+	case K_MOUSEDOWN:
+	case K_MOUSEUP:
+	case K_MOUSELEFT:
+	case K_MOUSERIGHT:
+	/* Alternate buttons ignored here */
+	case K_X1MOUSE:
+	case K_X1DRAG:
+	case K_X1RELEASE:
+	case K_X2MOUSE:
+	case K_X2DRAG:
+	case K_X2RELEASE:
+	case K_MOUSEMOVE:
+		goto cmdline_not_changed;
+
+#endif	/* FEAT_MOUSE */
+
+#ifdef FEAT_GUI
+	case K_LEFTMOUSE_NM:	/* mousefocus click, ignored */
+	case K_LEFTRELEASE_NM:
+		goto cmdline_not_changed;
+
+	case K_VER_SCROLLBAR:
+		if (msg_scrolled == 0)
+		{
+		    gui_do_scroll();
+		    redrawcmd();
+		}
+		goto cmdline_not_changed;
+
+	case K_HOR_SCROLLBAR:
+		if (msg_scrolled == 0)
+		{
+		    gui_do_horiz_scroll(scrollbar_value, FALSE);
+		    redrawcmd();
+		}
+		goto cmdline_not_changed;
+#endif
+#ifdef FEAT_GUI_TABLINE
+	case K_TABLINE:
+	case K_TABMENU:
+		/* Don't want to change any tabs here.  Make sure the same tab
+		 * is still selected. */
+		if (gui_use_tabline())
+		    gui_mch_set_curtab(tabpage_index(curtab));
+		goto cmdline_not_changed;
+#endif
+
+	case K_SELECT:	    /* end of Select mode mapping - ignore */
+		goto cmdline_not_changed;
+
+	case Ctrl_B:	    /* begin of command line */
+	case K_HOME:
+	case K_KHOME:
+	case K_S_HOME:
+	case K_C_HOME:
+		ccline.cmdpos = 0;
+		set_cmdspos();
+		goto cmdline_not_changed;
+
+	case Ctrl_E:	    /* end of command line */
+	case K_END:
+	case K_KEND:
+	case K_S_END:
+	case K_C_END:
+		ccline.cmdpos = ccline.cmdlen;
+		set_cmdspos_cursor();
+		goto cmdline_not_changed;
+
+	case Ctrl_A:	    /* all matches */
+		if (nextwild(&xpc, WILD_ALL, 0, firstc != '@') == FAIL)
+		    break;
+		goto cmdline_changed;
+
+	case Ctrl_L:
+#ifdef FEAT_SEARCH_EXTRA
+		if (may_add_char_to_search(firstc, &c, &is_state) == OK)
+		    goto cmdline_not_changed;
+#endif
+
+		/* completion: longest common part */
+		if (nextwild(&xpc, WILD_LONGEST, 0, firstc != '@') == FAIL)
+		    break;
+		goto cmdline_changed;
+
+	case Ctrl_N:	    /* next match */
+	case Ctrl_P:	    /* previous match */
+		if (xpc.xp_numfiles > 0)
+		{
+		    if (nextwild(&xpc, (c == Ctrl_P) ? WILD_PREV : WILD_NEXT,
+						    0, firstc != '@') == FAIL)
+			break;
+		    goto cmdline_not_changed;
+		}
+#ifdef FEAT_CMDHIST
+		/* FALLTHROUGH */
+	case K_UP:
+	case K_DOWN:
+	case K_S_UP:
+	case K_S_DOWN:
+	case K_PAGEUP:
+	case K_KPAGEUP:
+	case K_PAGEDOWN:
+	case K_KPAGEDOWN:
+		if (hislen == 0 || firstc == NUL)	/* no history */
+		    goto cmdline_not_changed;
+
+		i = hiscnt;
+
+		/* save current command string so it can be restored later */
+		if (lookfor == NULL)
+		{
+		    if ((lookfor = vim_strsave(ccline.cmdbuff)) == NULL)
+			goto cmdline_not_changed;
+		    lookfor[ccline.cmdpos] = NUL;
+		}
+
+		j = (int)STRLEN(lookfor);
+		for (;;)
+		{
+		    /* one step backwards */
+		    if (c == K_UP|| c == K_S_UP || c == Ctrl_P
+			    || c == K_PAGEUP || c == K_KPAGEUP)
+		    {
+			if (hiscnt == hislen)	/* first time */
+			    hiscnt = hisidx[histype];
+			else if (hiscnt == 0 && hisidx[histype] != hislen - 1)
+			    hiscnt = hislen - 1;
+			else if (hiscnt != hisidx[histype] + 1)
+			    --hiscnt;
+			else			/* at top of list */
+			{
+			    hiscnt = i;
+			    break;
+			}
+		    }
+		    else    /* one step forwards */
+		    {
+			/* on last entry, clear the line */
+			if (hiscnt == hisidx[histype])
+			{
+			    hiscnt = hislen;
+			    break;
+			}
+
+			/* not on a history line, nothing to do */
+			if (hiscnt == hislen)
+			    break;
+			if (hiscnt == hislen - 1)   /* wrap around */
+			    hiscnt = 0;
+			else
+			    ++hiscnt;
+		    }
+		    if (hiscnt < 0 || history[histype][hiscnt].hisstr == NULL)
+		    {
+			hiscnt = i;
+			break;
+		    }
+		    if ((c != K_UP && c != K_DOWN)
+			    || hiscnt == i
+			    || STRNCMP(history[histype][hiscnt].hisstr,
+						    lookfor, (size_t)j) == 0)
+			break;
+		}
+
+		if (hiscnt != i)	/* jumped to other entry */
+		{
+		    char_u	*p;
+		    int		len;
+		    int		old_firstc;
+
+		    VIM_CLEAR(ccline.cmdbuff);
+		    xpc.xp_context = EXPAND_NOTHING;
+		    if (hiscnt == hislen)
+			p = lookfor;	/* back to the old one */
+		    else
+			p = history[histype][hiscnt].hisstr;
+
+		    if (histype == HIST_SEARCH
+			    && p != lookfor
+			    && (old_firstc = p[STRLEN(p) + 1]) != firstc)
+		    {
+			/* Correct for the separator character used when
+			 * adding the history entry vs the one used now.
+			 * First loop: count length.
+			 * Second loop: copy the characters. */
+			for (i = 0; i <= 1; ++i)
+			{
+			    len = 0;
+			    for (j = 0; p[j] != NUL; ++j)
+			    {
+				/* Replace old sep with new sep, unless it is
+				 * escaped. */
+				if (p[j] == old_firstc
+					      && (j == 0 || p[j - 1] != '\\'))
+				{
+				    if (i > 0)
+					ccline.cmdbuff[len] = firstc;
+				}
+				else
+				{
+				    /* Escape new sep, unless it is already
+				     * escaped. */
+				    if (p[j] == firstc
+					      && (j == 0 || p[j - 1] != '\\'))
+				    {
+					if (i > 0)
+					    ccline.cmdbuff[len] = '\\';
+					++len;
+				    }
+				    if (i > 0)
+					ccline.cmdbuff[len] = p[j];
+				}
+				++len;
+			    }
+			    if (i == 0)
+			    {
+				alloc_cmdbuff(len);
+				if (ccline.cmdbuff == NULL)
+				    goto returncmd;
+			    }
+			}
+			ccline.cmdbuff[len] = NUL;
+		    }
+		    else
+		    {
+			alloc_cmdbuff((int)STRLEN(p));
+			if (ccline.cmdbuff == NULL)
+			    goto returncmd;
+			STRCPY(ccline.cmdbuff, p);
+		    }
+
+		    ccline.cmdpos = ccline.cmdlen = (int)STRLEN(ccline.cmdbuff);
+		    redrawcmd();
+		    goto cmdline_changed;
+		}
+		beep_flush();
+#endif
+		goto cmdline_not_changed;
+
+#ifdef FEAT_SEARCH_EXTRA
+	case Ctrl_G:	    /* next match */
+	case Ctrl_T:	    /* previous match */
+		if (may_adjust_incsearch_highlighting(
+					  firstc, count, &is_state, c) == FAIL)
+		    goto cmdline_not_changed;
+		break;
+#endif
+
+	case Ctrl_V:
+	case Ctrl_Q:
+#ifdef FEAT_MOUSE
+		ignore_drag_release = TRUE;
+#endif
+		putcmdline('^', TRUE);
+		c = get_literal();	    /* get next (two) character(s) */
+		do_abbr = FALSE;	    /* don't do abbreviation now */
+		extra_char = NUL;
+		/* may need to remove ^ when composing char was typed */
+		if (enc_utf8 && utf_iscomposing(c) && !cmd_silent)
+		{
+		    draw_cmdline(ccline.cmdpos, ccline.cmdlen - ccline.cmdpos);
+		    msg_putchar(' ');
+		    cursorcmd();
+		}
+		break;
+
+#ifdef FEAT_DIGRAPHS
+	case Ctrl_K:
+#ifdef FEAT_MOUSE
+		ignore_drag_release = TRUE;
+#endif
+		putcmdline('?', TRUE);
+#ifdef USE_ON_FLY_SCROLL
+		dont_scroll = TRUE;	    /* disallow scrolling here */
+#endif
+		c = get_digraph(TRUE);
+		extra_char = NUL;
+		if (c != NUL)
+		    break;
+
+		redrawcmd();
+		goto cmdline_not_changed;
+#endif /* FEAT_DIGRAPHS */
+
+#ifdef FEAT_RIGHTLEFT
+	case Ctrl__:	    /* CTRL-_: switch language mode */
+		if (!p_ari)
+		    break;
+# ifdef FEAT_FKMAP
+		if (p_altkeymap)
+		{
+		    cmd_fkmap = !cmd_fkmap;
+		    if (cmd_fkmap)	/* in Farsi always in Insert mode */
+			ccline.overstrike = FALSE;
+		}
+		else			    /* Hebrew is default */
+# endif
+		    cmd_hkmap = !cmd_hkmap;
+		goto cmdline_not_changed;
+#endif
+
+	case K_PS:
+		bracketed_paste(PASTE_CMDLINE, FALSE, NULL);
+		goto cmdline_changed;
+
+	default:
+#ifdef UNIX
+		if (c == intr_char)
+		{
+		    gotesc = TRUE;	/* will free ccline.cmdbuff after
+					   putting it in history */
+		    goto returncmd;	/* back to Normal mode */
+		}
+#endif
+		/*
+		 * Normal character with no special meaning.  Just set mod_mask
+		 * to 0x0 so that typing Shift-Space in the GUI doesn't enter
+		 * the string <S-Space>.  This should only happen after ^V.
+		 */
+		if (!IS_SPECIAL(c))
+		    mod_mask = 0x0;
+		break;
+	}
+	/*
+	 * End of switch on command line character.
+	 * We come here if we have a normal character.
+	 */
+
+	if (do_abbr && (IS_SPECIAL(c) || !vim_iswordc(c))
+		&& (ccheck_abbr(
+			// Add ABBR_OFF for characters above 0x100, this is
+			// what check_abbr() expects.
+				(has_mbyte && c >= 0x100) ? (c + ABBR_OFF) : c)
+		    || c == Ctrl_RSB))
+	    goto cmdline_changed;
+
+	/*
+	 * put the character in the command line
+	 */
+	if (IS_SPECIAL(c) || mod_mask != 0)
+	    put_on_cmdline(get_special_key_name(c, mod_mask), -1, TRUE);
+	else
+	{
+	    if (has_mbyte)
+	    {
+		j = (*mb_char2bytes)(c, IObuff);
+		IObuff[j] = NUL;	/* exclude composing chars */
+		put_on_cmdline(IObuff, j, TRUE);
+	    }
+	    else
+	    {
+		IObuff[0] = c;
+		put_on_cmdline(IObuff, 1, TRUE);
+	    }
+	}
+	goto cmdline_changed;
+
+/*
+ * This part implements incremental searches for "/" and "?"
+ * Jump to cmdline_not_changed when a character has been read but the command
+ * line did not change. Then we only search and redraw if something changed in
+ * the past.
+ * Jump to cmdline_changed when the command line did change.
+ * (Sorry for the goto's, I know it is ugly).
+ */
+cmdline_not_changed:
+#ifdef FEAT_SEARCH_EXTRA
+	if (!is_state.incsearch_postponed)
+	    continue;
+#endif
+
+cmdline_changed:
+	/* Trigger CmdlineChanged autocommands. */
+	trigger_cmd_autocmd(cmdline_type, EVENT_CMDLINECHANGED);
+
+#ifdef FEAT_SEARCH_EXTRA
+	may_do_incsearch_highlighting(firstc, count, &is_state);
+#endif
+
+#ifdef FEAT_RIGHTLEFT
+	if (cmdmsg_rl
+# ifdef FEAT_ARABIC
+		|| (p_arshape && !p_tbidi && enc_utf8)
+# endif
+		)
+	    /* Always redraw the whole command line to fix shaping and
+	     * right-left typing.  Not efficient, but it works.
+	     * Do it only when there are no characters left to read
+	     * to avoid useless intermediate redraws. */
+	    if (vpeekc() == NUL)
+		redrawcmd();
+#endif
+    }
+
+returncmd:
+
+#ifdef FEAT_RIGHTLEFT
+    cmdmsg_rl = FALSE;
+#endif
+
+#ifdef FEAT_FKMAP
+    cmd_fkmap = 0;
+#endif
+
+    ExpandCleanup(&xpc);
+    ccline.xpc = NULL;
+
+#ifdef FEAT_SEARCH_EXTRA
+    finish_incsearch_highlighting(gotesc, &is_state, FALSE);
+#endif
+
+    if (ccline.cmdbuff != NULL)
+    {
+	/*
+	 * Put line in history buffer (":" and "=" only when it was typed).
+	 */
+#ifdef FEAT_CMDHIST
+	if (ccline.cmdlen && firstc != NUL
+		&& (some_key_typed || histype == HIST_SEARCH))
+	{
+	    add_to_history(histype, ccline.cmdbuff, TRUE,
+				       histype == HIST_SEARCH ? firstc : NUL);
+	    if (firstc == ':')
+	    {
+		vim_free(new_last_cmdline);
+		new_last_cmdline = vim_strsave(ccline.cmdbuff);
+	    }
+	}
+#endif
+
+	if (gotesc)
+	    abandon_cmdline();
+    }
+
+    /*
+     * If the screen was shifted up, redraw the whole screen (later).
+     * If the line is too long, clear it, so ruler and shown command do
+     * not get printed in the middle of it.
+     */
+    msg_check();
+    msg_scroll = save_msg_scroll;
+    redir_off = FALSE;
+
+    /* When the command line was typed, no need for a wait-return prompt. */
+    if (some_key_typed)
+	need_wait_return = FALSE;
+
+    /* Trigger CmdlineLeave autocommands. */
+    trigger_cmd_autocmd(cmdline_type, EVENT_CMDLINELEAVE);
+
+    State = save_State;
+#ifdef HAVE_INPUT_METHOD
+    if (b_im_ptr != NULL && *b_im_ptr != B_IMODE_LMAP)
+	im_save_status(b_im_ptr);
+    im_set_active(FALSE);
+#endif
+#ifdef FEAT_MOUSE
+    setmouse();
+#endif
+#ifdef CURSOR_SHAPE
+    ui_cursor_shape();		/* may show different cursor shape */
+#endif
+    sb_text_end_cmdline();
+
+theend:
+    {
+	char_u *p = ccline.cmdbuff;
+
+	if (did_save_ccline)
+	    restore_cmdline(&save_ccline);
+	else
+	    ccline.cmdbuff = NULL;
+	return p;
+    }
+}
+
+#if (defined(FEAT_CRYPT) || defined(FEAT_EVAL)) || defined(PROTO)
+/*
+ * Get a command line with a prompt.
+ * This is prepared to be called recursively from getcmdline() (e.g. by
+ * f_input() when evaluating an expression from CTRL-R =).
+ * Returns the command line in allocated memory, or NULL.
+ */
+    char_u *
+getcmdline_prompt(
+    int		firstc,
+    char_u	*prompt,	/* command line prompt */
+    int		attr,		/* attributes for prompt */
+    int		xp_context,	/* type of expansion */
+    char_u	*xp_arg)	/* user-defined expansion argument */
+{
+    char_u		*s;
+    struct cmdline_info	save_ccline;
+    int			did_save_ccline = FALSE;
+    int			msg_col_save = msg_col;
+    int			msg_silent_save = msg_silent;
+
+    if (ccline.cmdbuff != NULL)
+    {
+	// Save the values of the current cmdline and restore them below.
+	save_cmdline(&save_ccline);
+	did_save_ccline = TRUE;
+    }
+
+    vim_memset(&ccline, 0, sizeof(struct cmdline_info));
+    ccline.cmdprompt = prompt;
+    ccline.cmdattr = attr;
+# ifdef FEAT_EVAL
+    ccline.xp_context = xp_context;
+    ccline.xp_arg = xp_arg;
+    ccline.input_fn = (firstc == '@');
+# endif
+    msg_silent = 0;
+    s = getcmdline_int(firstc, 1L, 0, FALSE);
+
+    if (did_save_ccline)
+	restore_cmdline(&save_ccline);
+
+    msg_silent = msg_silent_save;
+    /* Restore msg_col, the prompt from input() may have changed it.
+     * But only if called recursively and the commandline is therefore being
+     * restored to an old one; if not, the input() prompt stays on the screen,
+     * so we need its modified msg_col left intact. */
+    if (ccline.cmdbuff != NULL)
+	msg_col = msg_col_save;
+
+    return s;
+}
+#endif
+
+/*
+ * Return TRUE when the text must not be changed and we can't switch to
+ * another window or buffer.  Used when editing the command line, evaluating
+ * 'balloonexpr', etc.
+ */
+    int
+text_locked(void)
+{
+#ifdef FEAT_CMDWIN
+    if (cmdwin_type != 0)
+	return TRUE;
+#endif
+    return textlock != 0;
+}
+
+/*
+ * Give an error message for a command that isn't allowed while the cmdline
+ * window is open or editing the cmdline in another way.
+ */
+    void
+text_locked_msg(void)
+{
+    emsg(_(get_text_locked_msg()));
+}
+
+    char *
+get_text_locked_msg(void)
+{
+#ifdef FEAT_CMDWIN
+    if (cmdwin_type != 0)
+	return e_cmdwin;
+#endif
+    return e_secure;
+}
+
+/*
+ * Check if "curbuf_lock" or "allbuf_lock" is set and return TRUE when it is
+ * and give an error message.
+ */
+    int
+curbuf_locked(void)
+{
+    if (curbuf_lock > 0)
+    {
+	emsg(_("E788: Not allowed to edit another buffer now"));
+	return TRUE;
+    }
+    return allbuf_locked();
+}
+
+/*
+ * Check if "allbuf_lock" is set and return TRUE when it is and give an error
+ * message.
+ */
+    int
+allbuf_locked(void)
+{
+    if (allbuf_lock > 0)
+    {
+	emsg(_("E811: Not allowed to change buffer information now"));
+	return TRUE;
+    }
+    return FALSE;
+}
+
+    static int
+cmdline_charsize(int idx)
+{
+#if defined(FEAT_CRYPT) || defined(FEAT_EVAL)
+    if (cmdline_star > 0)	    /* showing '*', always 1 position */
+	return 1;
+#endif
+    return ptr2cells(ccline.cmdbuff + idx);
+}
+
+/*
+ * Compute the offset of the cursor on the command line for the prompt and
+ * indent.
+ */
+    static void
+set_cmdspos(void)
+{
+    if (ccline.cmdfirstc != NUL)
+	ccline.cmdspos = 1 + ccline.cmdindent;
+    else
+	ccline.cmdspos = 0 + ccline.cmdindent;
+}
+
+/*
+ * Compute the screen position for the cursor on the command line.
+ */
+    static void
+set_cmdspos_cursor(void)
+{
+    int		i, m, c;
+
+    set_cmdspos();
+    if (KeyTyped)
+    {
+	m = Columns * Rows;
+	if (m < 0)	/* overflow, Columns or Rows at weird value */
+	    m = MAXCOL;
+    }
+    else
+	m = MAXCOL;
+    for (i = 0; i < ccline.cmdlen && i < ccline.cmdpos; ++i)
+    {
+	c = cmdline_charsize(i);
+	/* Count ">" for double-wide multi-byte char that doesn't fit. */
+	if (has_mbyte)
+	    correct_cmdspos(i, c);
+	/* If the cmdline doesn't fit, show cursor on last visible char.
+	 * Don't move the cursor itself, so we can still append. */
+	if ((ccline.cmdspos += c) >= m)
+	{
+	    ccline.cmdspos -= c;
+	    break;
+	}
+	if (has_mbyte)
+	    i += (*mb_ptr2len)(ccline.cmdbuff + i) - 1;
+    }
+}
+
+/*
+ * Check if the character at "idx", which is "cells" wide, is a multi-byte
+ * character that doesn't fit, so that a ">" must be displayed.
+ */
+    static void
+correct_cmdspos(int idx, int cells)
+{
+    if ((*mb_ptr2len)(ccline.cmdbuff + idx) > 1
+		&& (*mb_ptr2cells)(ccline.cmdbuff + idx) > 1
+		&& ccline.cmdspos % Columns + cells > Columns)
+	ccline.cmdspos++;
+}
+
+/*
+ * Get an Ex command line for the ":" command.
+ */
+    char_u *
+getexline(
+    int		c,		/* normally ':', NUL for ":append" */
+    void	*cookie UNUSED,
+    int		indent)		/* indent for inside conditionals */
+{
+    /* When executing a register, remove ':' that's in front of each line. */
+    if (exec_from_reg && vpeekc() == ':')
+	(void)vgetc();
+    return getcmdline(c, 1L, indent);
+}
+
+/*
+ * Get an Ex command line for Ex mode.
+ * In Ex mode we only use the OS supplied line editing features and no
+ * mappings or abbreviations.
+ * Returns a string in allocated memory or NULL.
+ */
+    char_u *
+getexmodeline(
+    int		promptc,	/* normally ':', NUL for ":append" and '?' for
+				   :s prompt */
+    void	*cookie UNUSED,
+    int		indent)		/* indent for inside conditionals */
+{
+    garray_T	line_ga;
+    char_u	*pend;
+    int		startcol = 0;
+    int		c1 = 0;
+    int		escaped = FALSE;	/* CTRL-V typed */
+    int		vcol = 0;
+    char_u	*p;
+    int		prev_char;
+    int		len;
+
+    /* Switch cursor on now.  This avoids that it happens after the "\n", which
+     * confuses the system function that computes tabstops. */
+    cursor_on();
+
+    /* always start in column 0; write a newline if necessary */
+    compute_cmdrow();
+    if ((msg_col || msg_didout) && promptc != '?')
+	msg_putchar('\n');
+    if (promptc == ':')
+    {
+	/* indent that is only displayed, not in the line itself */
+	if (p_prompt)
+	    msg_putchar(':');
+	while (indent-- > 0)
+	    msg_putchar(' ');
+	startcol = msg_col;
+    }
+
+    ga_init2(&line_ga, 1, 30);
+
+    /* autoindent for :insert and :append is in the line itself */
+    if (promptc <= 0)
+    {
+	vcol = indent;
+	while (indent >= 8)
+	{
+	    ga_append(&line_ga, TAB);
+	    msg_puts("        ");
+	    indent -= 8;
+	}
+	while (indent-- > 0)
+	{
+	    ga_append(&line_ga, ' ');
+	    msg_putchar(' ');
+	}
+    }
+    ++no_mapping;
+    ++allow_keys;
+
+    /*
+     * Get the line, one character at a time.
+     */
+    got_int = FALSE;
+    while (!got_int)
+    {
+	long    sw;
+	char_u *s;
+
+	if (ga_grow(&line_ga, 40) == FAIL)
+	    break;
+
+	/*
+	 * Get one character at a time.
+	 */
+	prev_char = c1;
+
+	/* Check for a ":normal" command and no more characters left. */
+	if (ex_normal_busy > 0 && typebuf.tb_len == 0)
+	    c1 = '\n';
+	else
+	    c1 = vgetc();
+
+	/*
+	 * Handle line editing.
+	 * Previously this was left to the system, putting the terminal in
+	 * cooked mode, but then CTRL-D and CTRL-T can't be used properly.
+	 */
+	if (got_int)
+	{
+	    msg_putchar('\n');
+	    break;
+	}
+
+	if (c1 == K_PS)
+	{
+	    bracketed_paste(PASTE_EX, FALSE, &line_ga);
+	    goto redraw;
+	}
+
+	if (!escaped)
+	{
+	    /* CR typed means "enter", which is NL */
+	    if (c1 == '\r')
+		c1 = '\n';
+
+	    if (c1 == BS || c1 == K_BS
+			  || c1 == DEL || c1 == K_DEL || c1 == K_KDEL)
+	    {
+		if (line_ga.ga_len > 0)
+		{
+		    if (has_mbyte)
+		    {
+			p = (char_u *)line_ga.ga_data;
+			p[line_ga.ga_len] = NUL;
+			len = (*mb_head_off)(p, p + line_ga.ga_len - 1) + 1;
+			line_ga.ga_len -= len;
+		    }
+		    else
+			--line_ga.ga_len;
+		    goto redraw;
+		}
+		continue;
+	    }
+
+	    if (c1 == Ctrl_U)
+	    {
+		msg_col = startcol;
+		msg_clr_eos();
+		line_ga.ga_len = 0;
+		goto redraw;
+	    }
+
+	    if (c1 == Ctrl_T)
+	    {
+		sw = get_sw_value(curbuf);
+		p = (char_u *)line_ga.ga_data;
+		p[line_ga.ga_len] = NUL;
+		indent = get_indent_str(p, 8, FALSE);
+		indent += sw - indent % sw;
+add_indent:
+		while (get_indent_str(p, 8, FALSE) < indent)
+		{
+		    (void)ga_grow(&line_ga, 2);  /* one more for the NUL */
+		    p = (char_u *)line_ga.ga_data;
+		    s = skipwhite(p);
+		    mch_memmove(s + 1, s, line_ga.ga_len - (s - p) + 1);
+		    *s = ' ';
+		    ++line_ga.ga_len;
+		}
+redraw:
+		/* redraw the line */
+		msg_col = startcol;
+		vcol = 0;
+		p = (char_u *)line_ga.ga_data;
+		p[line_ga.ga_len] = NUL;
+		while (p < (char_u *)line_ga.ga_data + line_ga.ga_len)
+		{
+		    if (*p == TAB)
+		    {
+			do
+			{
+			    msg_putchar(' ');
+			} while (++vcol % 8);
+			++p;
+		    }
+		    else
+		    {
+			len = MB_PTR2LEN(p);
+			msg_outtrans_len(p, len);
+			vcol += ptr2cells(p);
+			p += len;
+		    }
+		}
+		msg_clr_eos();
+		windgoto(msg_row, msg_col);
+		continue;
+	    }
+
+	    if (c1 == Ctrl_D)
+	    {
+		/* Delete one shiftwidth. */
+		p = (char_u *)line_ga.ga_data;
+		if (prev_char == '0' || prev_char == '^')
+		{
+		    if (prev_char == '^')
+			ex_keep_indent = TRUE;
+		    indent = 0;
+		    p[--line_ga.ga_len] = NUL;
+		}
+		else
+		{
+		    p[line_ga.ga_len] = NUL;
+		    indent = get_indent_str(p, 8, FALSE);
+		    if (indent > 0)
+		    {
+			--indent;
+			indent -= indent % get_sw_value(curbuf);
+		    }
+		}
+		while (get_indent_str(p, 8, FALSE) > indent)
+		{
+		    s = skipwhite(p);
+		    mch_memmove(s - 1, s, line_ga.ga_len - (s - p) + 1);
+		    --line_ga.ga_len;
+		}
+		goto add_indent;
+	    }
+
+	    if (c1 == Ctrl_V || c1 == Ctrl_Q)
+	    {
+		escaped = TRUE;
+		continue;
+	    }
+
+	    /* Ignore special key codes: mouse movement, K_IGNORE, etc. */
+	    if (IS_SPECIAL(c1))
+		continue;
+	}
+
+	if (IS_SPECIAL(c1))
+	    c1 = '?';
+	if (has_mbyte)
+	    len = (*mb_char2bytes)(c1,
+				  (char_u *)line_ga.ga_data + line_ga.ga_len);
+	else
+	{
+	    len = 1;
+	    ((char_u *)line_ga.ga_data)[line_ga.ga_len] = c1;
+	}
+	if (c1 == '\n')
+	    msg_putchar('\n');
+	else if (c1 == TAB)
+	{
+	    /* Don't use chartabsize(), 'ts' can be different */
+	    do
+	    {
+		msg_putchar(' ');
+	    } while (++vcol % 8);
+	}
+	else
+	{
+	    msg_outtrans_len(
+		     ((char_u *)line_ga.ga_data) + line_ga.ga_len, len);
+	    vcol += char2cells(c1);
+	}
+	line_ga.ga_len += len;
+	escaped = FALSE;
+
+	windgoto(msg_row, msg_col);
+	pend = (char_u *)(line_ga.ga_data) + line_ga.ga_len;
+
+	/* We are done when a NL is entered, but not when it comes after an
+	 * odd number of backslashes, that results in a NUL. */
+	if (line_ga.ga_len > 0 && pend[-1] == '\n')
+	{
+	    int bcount = 0;
+
+	    while (line_ga.ga_len - 2 >= bcount && pend[-2 - bcount] == '\\')
+		++bcount;
+
+	    if (bcount > 0)
+	    {
+		/* Halve the number of backslashes: "\NL" -> "NUL", "\\NL" ->
+		 * "\NL", etc. */
+		line_ga.ga_len -= (bcount + 1) / 2;
+		pend -= (bcount + 1) / 2;
+		pend[-1] = '\n';
+	    }
+
+	    if ((bcount & 1) == 0)
+	    {
+		--line_ga.ga_len;
+		--pend;
+		*pend = NUL;
+		break;
+	    }
+	}
+    }
+
+    --no_mapping;
+    --allow_keys;
+
+    /* make following messages go to the next line */
+    msg_didout = FALSE;
+    msg_col = 0;
+    if (msg_row < Rows - 1)
+	++msg_row;
+    emsg_on_display = FALSE;		/* don't want ui_delay() */
+
+    if (got_int)
+	ga_clear(&line_ga);
+
+    return (char_u *)line_ga.ga_data;
+}
+
+# if defined(MCH_CURSOR_SHAPE) || defined(FEAT_GUI) \
+	|| defined(FEAT_MOUSESHAPE) || defined(PROTO)
+/*
+ * Return TRUE if ccline.overstrike is on.
+ */
+    int
+cmdline_overstrike(void)
+{
+    return ccline.overstrike;
+}
+
+/*
+ * Return TRUE if the cursor is at the end of the cmdline.
+ */
+    int
+cmdline_at_end(void)
+{
+    return (ccline.cmdpos >= ccline.cmdlen);
+}
+#endif
+
+#if (defined(FEAT_XIM) && (defined(FEAT_GUI_GTK))) || defined(PROTO)
+/*
+ * Return the virtual column number at the current cursor position.
+ * This is used by the IM code to obtain the start of the preedit string.
+ */
+    colnr_T
+cmdline_getvcol_cursor(void)
+{
+    if (ccline.cmdbuff == NULL || ccline.cmdpos > ccline.cmdlen)
+	return MAXCOL;
+
+    if (has_mbyte)
+    {
+	colnr_T	col;
+	int	i = 0;
+
+	for (col = 0; i < ccline.cmdpos; ++col)
+	    i += (*mb_ptr2len)(ccline.cmdbuff + i);
+
+	return col;
+    }
+    else
+	return ccline.cmdpos;
+}
+#endif
+
+#if defined(FEAT_XIM) && defined(FEAT_GUI_GTK)
+/*
+ * If part of the command line is an IM preedit string, redraw it with
+ * IM feedback attributes.  The cursor position is restored after drawing.
+ */
+    static void
+redrawcmd_preedit(void)
+{
+    if ((State & CMDLINE)
+	    && xic != NULL
+	    /* && im_get_status()  doesn't work when using SCIM */
+	    && !p_imdisable
+	    && im_is_preediting())
+    {
+	int	cmdpos = 0;
+	int	cmdspos;
+	int	old_row;
+	int	old_col;
+	colnr_T	col;
+
+	old_row = msg_row;
+	old_col = msg_col;
+	cmdspos = ((ccline.cmdfirstc != NUL) ? 1 : 0) + ccline.cmdindent;
+
+	if (has_mbyte)
+	{
+	    for (col = 0; col < preedit_start_col
+			  && cmdpos < ccline.cmdlen; ++col)
+	    {
+		cmdspos += (*mb_ptr2cells)(ccline.cmdbuff + cmdpos);
+		cmdpos  += (*mb_ptr2len)(ccline.cmdbuff + cmdpos);
+	    }
+	}
+	else
+	{
+	    cmdspos += preedit_start_col;
+	    cmdpos  += preedit_start_col;
+	}
+
+	msg_row = cmdline_row + (cmdspos / (int)Columns);
+	msg_col = cmdspos % (int)Columns;
+	if (msg_row >= Rows)
+	    msg_row = Rows - 1;
+
+	for (col = 0; cmdpos < ccline.cmdlen; ++col)
+	{
+	    int char_len;
+	    int char_attr;
+
+	    char_attr = im_get_feedback_attr(col);
+	    if (char_attr < 0)
+		break; /* end of preedit string */
+
+	    if (has_mbyte)
+		char_len = (*mb_ptr2len)(ccline.cmdbuff + cmdpos);
+	    else
+		char_len = 1;
+
+	    msg_outtrans_len_attr(ccline.cmdbuff + cmdpos, char_len, char_attr);
+	    cmdpos += char_len;
+	}
+
+	msg_row = old_row;
+	msg_col = old_col;
+    }
+}
+#endif /* FEAT_XIM && FEAT_GUI_GTK */
+
+/*
+ * Allocate a new command line buffer.
+ * Assigns the new buffer to ccline.cmdbuff and ccline.cmdbufflen.
+ */
+    static void
+alloc_cmdbuff(int len)
+{
+    /*
+     * give some extra space to avoid having to allocate all the time
+     */
+    if (len < 80)
+	len = 100;
+    else
+	len += 20;
+
+    ccline.cmdbuff = alloc(len);    /* caller should check for out-of-memory */
+    ccline.cmdbufflen = len;
+}
+
+/*
+ * Re-allocate the command line to length len + something extra.
+ * return FAIL for failure, OK otherwise
+ */
+    static int
+realloc_cmdbuff(int len)
+{
+    char_u	*p;
+
+    if (len < ccline.cmdbufflen)
+	return OK;			/* no need to resize */
+
+    p = ccline.cmdbuff;
+    alloc_cmdbuff(len);			/* will get some more */
+    if (ccline.cmdbuff == NULL)		/* out of memory */
+    {
+	ccline.cmdbuff = p;		/* keep the old one */
+	return FAIL;
+    }
+    /* There isn't always a NUL after the command, but it may need to be
+     * there, thus copy up to the NUL and add a NUL. */
+    mch_memmove(ccline.cmdbuff, p, (size_t)ccline.cmdlen);
+    ccline.cmdbuff[ccline.cmdlen] = NUL;
+    vim_free(p);
+
+    if (ccline.xpc != NULL
+	    && ccline.xpc->xp_pattern != NULL
+	    && ccline.xpc->xp_context != EXPAND_NOTHING
+	    && ccline.xpc->xp_context != EXPAND_UNSUCCESSFUL)
+    {
+	int i = (int)(ccline.xpc->xp_pattern - p);
+
+	/* If xp_pattern points inside the old cmdbuff it needs to be adjusted
+	 * to point into the newly allocated memory. */
+	if (i >= 0 && i <= ccline.cmdlen)
+	    ccline.xpc->xp_pattern = ccline.cmdbuff + i;
+    }
+
+    return OK;
+}
+
+#if defined(FEAT_ARABIC) || defined(PROTO)
+static char_u	*arshape_buf = NULL;
+
+# if defined(EXITFREE) || defined(PROTO)
+    void
+free_cmdline_buf(void)
+{
+    vim_free(arshape_buf);
+}
+# endif
+#endif
+
+/*
+ * Draw part of the cmdline at the current cursor position.  But draw stars
+ * when cmdline_star is TRUE.
+ */
+    static void
+draw_cmdline(int start, int len)
+{
+#if defined(FEAT_CRYPT) || defined(FEAT_EVAL)
+    int		i;
+
+    if (cmdline_star > 0)
+	for (i = 0; i < len; ++i)
+	{
+	    msg_putchar('*');
+	    if (has_mbyte)
+		i += (*mb_ptr2len)(ccline.cmdbuff + start + i) - 1;
+	}
+    else
+#endif
+#ifdef FEAT_ARABIC
+	if (p_arshape && !p_tbidi && enc_utf8 && len > 0)
+    {
+	static int	buflen = 0;
+	char_u		*p;
+	int		j;
+	int		newlen = 0;
+	int		mb_l;
+	int		pc, pc1 = 0;
+	int		prev_c = 0;
+	int		prev_c1 = 0;
+	int		u8c;
+	int		u8cc[MAX_MCO];
+	int		nc = 0;
+
+	/*
+	 * Do arabic shaping into a temporary buffer.  This is very
+	 * inefficient!
+	 */
+	if (len * 2 + 2 > buflen)
+	{
+	    /* Re-allocate the buffer.  We keep it around to avoid a lot of
+	     * alloc()/free() calls. */
+	    vim_free(arshape_buf);
+	    buflen = len * 2 + 2;
+	    arshape_buf = alloc(buflen);
+	    if (arshape_buf == NULL)
+		return;	/* out of memory */
+	}
+
+	if (utf_iscomposing(utf_ptr2char(ccline.cmdbuff + start)))
+	{
+	    /* Prepend a space to draw the leading composing char on. */
+	    arshape_buf[0] = ' ';
+	    newlen = 1;
+	}
+
+	for (j = start; j < start + len; j += mb_l)
+	{
+	    p = ccline.cmdbuff + j;
+	    u8c = utfc_ptr2char_len(p, u8cc, start + len - j);
+	    mb_l = utfc_ptr2len_len(p, start + len - j);
+	    if (ARABIC_CHAR(u8c))
+	    {
+		/* Do Arabic shaping. */
+		if (cmdmsg_rl)
+		{
+		    /* displaying from right to left */
+		    pc = prev_c;
+		    pc1 = prev_c1;
+		    prev_c1 = u8cc[0];
+		    if (j + mb_l >= start + len)
+			nc = NUL;
+		    else
+			nc = utf_ptr2char(p + mb_l);
+		}
+		else
+		{
+		    /* displaying from left to right */
+		    if (j + mb_l >= start + len)
+			pc = NUL;
+		    else
+		    {
+			int	pcc[MAX_MCO];
+
+			pc = utfc_ptr2char_len(p + mb_l, pcc,
+						      start + len - j - mb_l);
+			pc1 = pcc[0];
+		    }
+		    nc = prev_c;
+		}
+		prev_c = u8c;
+
+		u8c = arabic_shape(u8c, NULL, &u8cc[0], pc, pc1, nc);
+
+		newlen += (*mb_char2bytes)(u8c, arshape_buf + newlen);
+		if (u8cc[0] != 0)
+		{
+		    newlen += (*mb_char2bytes)(u8cc[0], arshape_buf + newlen);
+		    if (u8cc[1] != 0)
+			newlen += (*mb_char2bytes)(u8cc[1],
+							arshape_buf + newlen);
+		}
+	    }
+	    else
+	    {
+		prev_c = u8c;
+		mch_memmove(arshape_buf + newlen, p, mb_l);
+		newlen += mb_l;
+	    }
+	}
+
+	msg_outtrans_len(arshape_buf, newlen);
+    }
+    else
+#endif
+	msg_outtrans_len(ccline.cmdbuff + start, len);
+}
+
+/*
+ * Put a character on the command line.  Shifts the following text to the
+ * right when "shift" is TRUE.  Used for CTRL-V, CTRL-K, etc.
+ * "c" must be printable (fit in one display cell)!
+ */
+    void
+putcmdline(int c, int shift)
+{
+    if (cmd_silent)
+	return;
+    msg_no_more = TRUE;
+    msg_putchar(c);
+    if (shift)
+	draw_cmdline(ccline.cmdpos, ccline.cmdlen - ccline.cmdpos);
+    msg_no_more = FALSE;
+    cursorcmd();
+    extra_char = c;
+    extra_char_shift = shift;
+}
+
+/*
+ * Undo a putcmdline(c, FALSE).
+ */
+    void
+unputcmdline(void)
+{
+    if (cmd_silent)
+	return;
+    msg_no_more = TRUE;
+    if (ccline.cmdlen == ccline.cmdpos)
+	msg_putchar(' ');
+    else if (has_mbyte)
+	draw_cmdline(ccline.cmdpos,
+			       (*mb_ptr2len)(ccline.cmdbuff + ccline.cmdpos));
+    else
+	draw_cmdline(ccline.cmdpos, 1);
+    msg_no_more = FALSE;
+    cursorcmd();
+    extra_char = NUL;
+}
+
+/*
+ * Put the given string, of the given length, onto the command line.
+ * If len is -1, then STRLEN() is used to calculate the length.
+ * If 'redraw' is TRUE then the new part of the command line, and the remaining
+ * part will be redrawn, otherwise it will not.  If this function is called
+ * twice in a row, then 'redraw' should be FALSE and redrawcmd() should be
+ * called afterwards.
+ */
+    int
+put_on_cmdline(char_u *str, int len, int redraw)
+{
+    int		retval;
+    int		i;
+    int		m;
+    int		c;
+
+    if (len < 0)
+	len = (int)STRLEN(str);
+
+    /* Check if ccline.cmdbuff needs to be longer */
+    if (ccline.cmdlen + len + 1 >= ccline.cmdbufflen)
+	retval = realloc_cmdbuff(ccline.cmdlen + len + 1);
+    else
+	retval = OK;
+    if (retval == OK)
+    {
+	if (!ccline.overstrike)
+	{
+	    mch_memmove(ccline.cmdbuff + ccline.cmdpos + len,
+					       ccline.cmdbuff + ccline.cmdpos,
+				     (size_t)(ccline.cmdlen - ccline.cmdpos));
+	    ccline.cmdlen += len;
+	}
+	else
+	{
+	    if (has_mbyte)
+	    {
+		/* Count nr of characters in the new string. */
+		m = 0;
+		for (i = 0; i < len; i += (*mb_ptr2len)(str + i))
+		    ++m;
+		/* Count nr of bytes in cmdline that are overwritten by these
+		 * characters. */
+		for (i = ccline.cmdpos; i < ccline.cmdlen && m > 0;
+				 i += (*mb_ptr2len)(ccline.cmdbuff + i))
+		    --m;
+		if (i < ccline.cmdlen)
+		{
+		    mch_memmove(ccline.cmdbuff + ccline.cmdpos + len,
+			    ccline.cmdbuff + i, (size_t)(ccline.cmdlen - i));
+		    ccline.cmdlen += ccline.cmdpos + len - i;
+		}
+		else
+		    ccline.cmdlen = ccline.cmdpos + len;
+	    }
+	    else if (ccline.cmdpos + len > ccline.cmdlen)
+		ccline.cmdlen = ccline.cmdpos + len;
+	}
+	mch_memmove(ccline.cmdbuff + ccline.cmdpos, str, (size_t)len);
+	ccline.cmdbuff[ccline.cmdlen] = NUL;
+
+	if (enc_utf8)
+	{
+	    /* When the inserted text starts with a composing character,
+	     * backup to the character before it.  There could be two of them.
+	     */
+	    i = 0;
+	    c = utf_ptr2char(ccline.cmdbuff + ccline.cmdpos);
+	    while (ccline.cmdpos > 0 && utf_iscomposing(c))
+	    {
+		i = (*mb_head_off)(ccline.cmdbuff,
+				      ccline.cmdbuff + ccline.cmdpos - 1) + 1;
+		ccline.cmdpos -= i;
+		len += i;
+		c = utf_ptr2char(ccline.cmdbuff + ccline.cmdpos);
+	    }
+#ifdef FEAT_ARABIC
+	    if (i == 0 && ccline.cmdpos > 0 && arabic_maycombine(c))
+	    {
+		/* Check the previous character for Arabic combining pair. */
+		i = (*mb_head_off)(ccline.cmdbuff,
+				      ccline.cmdbuff + ccline.cmdpos - 1) + 1;
+		if (arabic_combine(utf_ptr2char(ccline.cmdbuff
+						     + ccline.cmdpos - i), c))
+		{
+		    ccline.cmdpos -= i;
+		    len += i;
+		}
+		else
+		    i = 0;
+	    }
+#endif
+	    if (i != 0)
+	    {
+		/* Also backup the cursor position. */
+		i = ptr2cells(ccline.cmdbuff + ccline.cmdpos);
+		ccline.cmdspos -= i;
+		msg_col -= i;
+		if (msg_col < 0)
+		{
+		    msg_col += Columns;
+		    --msg_row;
+		}
+	    }
+	}
+
+	if (redraw && !cmd_silent)
+	{
+	    msg_no_more = TRUE;
+	    i = cmdline_row;
+	    cursorcmd();
+	    draw_cmdline(ccline.cmdpos, ccline.cmdlen - ccline.cmdpos);
+	    /* Avoid clearing the rest of the line too often. */
+	    if (cmdline_row != i || ccline.overstrike)
+		msg_clr_eos();
+	    msg_no_more = FALSE;
+	}
+#ifdef FEAT_FKMAP
+	/*
+	 * If we are in Farsi command mode, the character input must be in
+	 * Insert mode. So do not advance the cmdpos.
+	 */
+	if (!cmd_fkmap)
+#endif
+	{
+	    if (KeyTyped)
+	    {
+		m = Columns * Rows;
+		if (m < 0)	/* overflow, Columns or Rows at weird value */
+		    m = MAXCOL;
+	    }
+	    else
+		m = MAXCOL;
+	    for (i = 0; i < len; ++i)
+	    {
+		c = cmdline_charsize(ccline.cmdpos);
+		/* count ">" for a double-wide char that doesn't fit. */
+		if (has_mbyte)
+		    correct_cmdspos(ccline.cmdpos, c);
+		/* Stop cursor at the end of the screen, but do increment the
+		 * insert position, so that entering a very long command
+		 * works, even though you can't see it. */
+		if (ccline.cmdspos + c < m)
+		    ccline.cmdspos += c;
+
+		if (has_mbyte)
+		{
+		    c = (*mb_ptr2len)(ccline.cmdbuff + ccline.cmdpos) - 1;
+		    if (c > len - i - 1)
+			c = len - i - 1;
+		    ccline.cmdpos += c;
+		    i += c;
+		}
+		++ccline.cmdpos;
+	    }
+	}
+    }
+    if (redraw)
+	msg_check();
+    return retval;
+}
+
+static struct cmdline_info  prev_ccline;
+static int		    prev_ccline_used = FALSE;
+
+/*
+ * Save ccline, because obtaining the "=" register may execute "normal :cmd"
+ * and overwrite it.  But get_cmdline_str() may need it, thus make it
+ * available globally in prev_ccline.
+ */
+    static void
+save_cmdline(struct cmdline_info *ccp)
+{
+    if (!prev_ccline_used)
+    {
+	vim_memset(&prev_ccline, 0, sizeof(struct cmdline_info));
+	prev_ccline_used = TRUE;
+    }
+    *ccp = prev_ccline;
+    prev_ccline = ccline;
+    ccline.cmdbuff = NULL;  // signal that ccline is not in use
+}
+
+/*
+ * Restore ccline after it has been saved with save_cmdline().
+ */
+    static void
+restore_cmdline(struct cmdline_info *ccp)
+{
+    ccline = prev_ccline;
+    prev_ccline = *ccp;
+}
+
+/*
+ * Paste a yank register into the command line.
+ * Used by CTRL-R command in command-line mode.
+ * insert_reg() can't be used here, because special characters from the
+ * register contents will be interpreted as commands.
+ *
+ * Return FAIL for failure, OK otherwise.
+ */
+    static int
+cmdline_paste(
+    int regname,
+    int literally,	/* Insert text literally instead of "as typed" */
+    int remcr)		/* remove trailing CR */
+{
+    long		i;
+    char_u		*arg;
+    char_u		*p;
+    int			allocated;
+
+    /* check for valid regname; also accept special characters for CTRL-R in
+     * the command line */
+    if (regname != Ctrl_F && regname != Ctrl_P && regname != Ctrl_W
+	    && regname != Ctrl_A && regname != Ctrl_L
+	    && !valid_yank_reg(regname, FALSE))
+	return FAIL;
+
+    /* A register containing CTRL-R can cause an endless loop.  Allow using
+     * CTRL-C to break the loop. */
+    line_breakcheck();
+    if (got_int)
+	return FAIL;
+
+#ifdef FEAT_CLIPBOARD
+    regname = may_get_selection(regname);
+#endif
+
+    // Need to  set "textlock" to avoid nasty things like going to another
+    // buffer when evaluating an expression.
+    ++textlock;
+    i = get_spec_reg(regname, &arg, &allocated, TRUE);
+    --textlock;
+
+    if (i)
+    {
+	/* Got the value of a special register in "arg". */
+	if (arg == NULL)
+	    return FAIL;
+
+	/* When 'incsearch' is set and CTRL-R CTRL-W used: skip the duplicate
+	 * part of the word. */
+	p = arg;
+	if (p_is && regname == Ctrl_W)
+	{
+	    char_u  *w;
+	    int	    len;
+
+	    /* Locate start of last word in the cmd buffer. */
+	    for (w = ccline.cmdbuff + ccline.cmdpos; w > ccline.cmdbuff; )
+	    {
+		if (has_mbyte)
+		{
+		    len = (*mb_head_off)(ccline.cmdbuff, w - 1) + 1;
+		    if (!vim_iswordc(mb_ptr2char(w - len)))
+			break;
+		    w -= len;
+		}
+		else
+		{
+		    if (!vim_iswordc(w[-1]))
+			break;
+		    --w;
+		}
+	    }
+	    len = (int)((ccline.cmdbuff + ccline.cmdpos) - w);
+	    if (p_ic ? STRNICMP(w, arg, len) == 0 : STRNCMP(w, arg, len) == 0)
+		p += len;
+	}
+
+	cmdline_paste_str(p, literally);
+	if (allocated)
+	    vim_free(arg);
+	return OK;
+    }
+
+    return cmdline_paste_reg(regname, literally, remcr);
+}
+
+/*
+ * Put a string on the command line.
+ * When "literally" is TRUE, insert literally.
+ * When "literally" is FALSE, insert as typed, but don't leave the command
+ * line.
+ */
+    void
+cmdline_paste_str(char_u *s, int literally)
+{
+    int		c, cv;
+
+    if (literally)
+	put_on_cmdline(s, -1, TRUE);
+    else
+	while (*s != NUL)
+	{
+	    cv = *s;
+	    if (cv == Ctrl_V && s[1])
+		++s;
+	    if (has_mbyte)
+		c = mb_cptr2char_adv(&s);
+	    else
+		c = *s++;
+	    if (cv == Ctrl_V || c == ESC || c == Ctrl_C
+		    || c == CAR || c == NL || c == Ctrl_L
+#ifdef UNIX
+		    || c == intr_char
+#endif
+		    || (c == Ctrl_BSL && *s == Ctrl_N))
+		stuffcharReadbuff(Ctrl_V);
+	    stuffcharReadbuff(c);
+	}
+}
+
+#ifdef FEAT_WILDMENU
+/*
+ * Delete characters on the command line, from "from" to the current
+ * position.
+ */
+    static void
+cmdline_del(int from)
+{
+    mch_memmove(ccline.cmdbuff + from, ccline.cmdbuff + ccline.cmdpos,
+	    (size_t)(ccline.cmdlen - ccline.cmdpos + 1));
+    ccline.cmdlen -= ccline.cmdpos - from;
+    ccline.cmdpos = from;
+}
+#endif
+
+/*
+ * This function is called when the screen size changes and with incremental
+ * search and in other situations where the command line may have been
+ * overwritten.
+ */
+    void
+redrawcmdline(void)
+{
+    redrawcmdline_ex(TRUE);
+}
+
+    void
+redrawcmdline_ex(int do_compute_cmdrow)
+{
+    if (cmd_silent)
+	return;
+    need_wait_return = FALSE;
+    if (do_compute_cmdrow)
+	compute_cmdrow();
+    redrawcmd();
+    cursorcmd();
+}
+
+    static void
+redrawcmdprompt(void)
+{
+    int		i;
+
+    if (cmd_silent)
+	return;
+    if (ccline.cmdfirstc != NUL)
+	msg_putchar(ccline.cmdfirstc);
+    if (ccline.cmdprompt != NULL)
+    {
+	msg_puts_attr((char *)ccline.cmdprompt, ccline.cmdattr);
+	ccline.cmdindent = msg_col + (msg_row - cmdline_row) * Columns;
+	/* do the reverse of set_cmdspos() */
+	if (ccline.cmdfirstc != NUL)
+	    --ccline.cmdindent;
+    }
+    else
+	for (i = ccline.cmdindent; i > 0; --i)
+	    msg_putchar(' ');
+}
+
+/*
+ * Redraw what is currently on the command line.
+ */
+    void
+redrawcmd(void)
+{
+    if (cmd_silent)
+	return;
+
+    /* when 'incsearch' is set there may be no command line while redrawing */
+    if (ccline.cmdbuff == NULL)
+    {
+	windgoto(cmdline_row, 0);
+	msg_clr_eos();
+	return;
+    }
+
+    msg_start();
+    redrawcmdprompt();
+
+    /* Don't use more prompt, truncate the cmdline if it doesn't fit. */
+    msg_no_more = TRUE;
+    draw_cmdline(0, ccline.cmdlen);
+    msg_clr_eos();
+    msg_no_more = FALSE;
+
+    set_cmdspos_cursor();
+    if (extra_char != NUL)
+	putcmdline(extra_char, extra_char_shift);
+
+    /*
+     * An emsg() before may have set msg_scroll. This is used in normal mode,
+     * in cmdline mode we can reset them now.
+     */
+    msg_scroll = FALSE;		/* next message overwrites cmdline */
+
+    /* Typing ':' at the more prompt may set skip_redraw.  We don't want this
+     * in cmdline mode */
+    skip_redraw = FALSE;
+}
+
+    void
+compute_cmdrow(void)
+{
+    if (exmode_active || msg_scrolled != 0)
+	cmdline_row = Rows - 1;
+    else
+	cmdline_row = W_WINROW(lastwin) + lastwin->w_height
+						    + lastwin->w_status_height;
+}
+
+    static void
+cursorcmd(void)
+{
+    if (cmd_silent)
+	return;
+
+#ifdef FEAT_RIGHTLEFT
+    if (cmdmsg_rl)
+    {
+	msg_row = cmdline_row  + (ccline.cmdspos / (int)(Columns - 1));
+	msg_col = (int)Columns - (ccline.cmdspos % (int)(Columns - 1)) - 1;
+	if (msg_row <= 0)
+	    msg_row = Rows - 1;
+    }
+    else
+#endif
+    {
+	msg_row = cmdline_row + (ccline.cmdspos / (int)Columns);
+	msg_col = ccline.cmdspos % (int)Columns;
+	if (msg_row >= Rows)
+	    msg_row = Rows - 1;
+    }
+
+    windgoto(msg_row, msg_col);
+#if defined(FEAT_XIM) && defined(FEAT_GUI_GTK)
+    if (p_imst == IM_ON_THE_SPOT)
+	redrawcmd_preedit();
+#endif
+#ifdef MCH_CURSOR_SHAPE
+    mch_update_cursor();
+#endif
+}
+
+    void
+gotocmdline(int clr)
+{
+    msg_start();
+#ifdef FEAT_RIGHTLEFT
+    if (cmdmsg_rl)
+	msg_col = Columns - 1;
+    else
+#endif
+	msg_col = 0;	    /* always start in column 0 */
+    if (clr)		    /* clear the bottom line(s) */
+	msg_clr_eos();	    /* will reset clear_cmdline */
+    windgoto(cmdline_row, 0);
+}
+
+/*
+ * Check the word in front of the cursor for an abbreviation.
+ * Called when the non-id character "c" has been entered.
+ * When an abbreviation is recognized it is removed from the text with
+ * backspaces and the replacement string is inserted, followed by "c".
+ */
+    static int
+ccheck_abbr(int c)
+{
+    int spos = 0;
+
+    if (p_paste || no_abbr)	    /* no abbreviations or in paste mode */
+	return FALSE;
+
+    /* Do not consider '<,'> be part of the mapping, skip leading whitespace.
+     * Actually accepts any mark. */
+    while (VIM_ISWHITE(ccline.cmdbuff[spos]) && spos < ccline.cmdlen)
+	spos++;
+    if (ccline.cmdlen - spos > 5
+	    && ccline.cmdbuff[spos] == '\''
+	    && ccline.cmdbuff[spos + 2] == ','
+	    && ccline.cmdbuff[spos + 3] == '\'')
+	spos += 5;
+    else
+	/* check abbreviation from the beginning of the commandline */
+	spos = 0;
+
+    return check_abbr(c, ccline.cmdbuff, ccline.cmdpos, spos);
+}
+
+#if defined(FEAT_CMDL_COMPL) || defined(PROTO)
+    static int
+#ifdef __BORLANDC__
+_RTLENTRYF
+#endif
+sort_func_compare(const void *s1, const void *s2)
+{
+    char_u *p1 = *(char_u **)s1;
+    char_u *p2 = *(char_u **)s2;
+
+    if (*p1 != '<' && *p2 == '<') return -1;
+    if (*p1 == '<' && *p2 != '<') return 1;
+    return STRCMP(p1, p2);
+}
+#endif
+
+/*
+ * Return FAIL if this is not an appropriate context in which to do
+ * completion of anything, return OK if it is (even if there are no matches).
+ * For the caller, this means that the character is just passed through like a
+ * normal character (instead of being expanded).  This allows :s/^I^D etc.
+ */
+    static int
+nextwild(
+    expand_T	*xp,
+    int		type,
+    int		options,	/* extra options for ExpandOne() */
+    int		escape)		/* if TRUE, escape the returned matches */
+{
+    int		i, j;
+    char_u	*p1;
+    char_u	*p2;
+    int		difflen;
+    int		v;
+
+    if (xp->xp_numfiles == -1)
+    {
+	set_expand_context(xp);
+	cmd_showtail = expand_showtail(xp);
+    }
+
+    if (xp->xp_context == EXPAND_UNSUCCESSFUL)
+    {
+	beep_flush();
+	return OK;  /* Something illegal on command line */
+    }
+    if (xp->xp_context == EXPAND_NOTHING)
+    {
+	/* Caller can use the character as a normal char instead */
+	return FAIL;
+    }
+
+    msg_puts("...");	    /* show that we are busy */
+    out_flush();
+
+    i = (int)(xp->xp_pattern - ccline.cmdbuff);
+    xp->xp_pattern_len = ccline.cmdpos - i;
+
+    if (type == WILD_NEXT || type == WILD_PREV)
+    {
+	/*
+	 * Get next/previous match for a previous expanded pattern.
+	 */
+	p2 = ExpandOne(xp, NULL, NULL, 0, type);
+    }
+    else
+    {
+	/*
+	 * Translate string into pattern and expand it.
+	 */
+	if ((p1 = addstar(xp->xp_pattern, xp->xp_pattern_len,
+						     xp->xp_context)) == NULL)
+	    p2 = NULL;
+	else
+	{
+	    int use_options = options |
+		    WILD_HOME_REPLACE|WILD_ADD_SLASH|WILD_SILENT;
+	    if (escape)
+		use_options |= WILD_ESCAPE;
+
+	    if (p_wic)
+		use_options += WILD_ICASE;
+	    p2 = ExpandOne(xp, p1,
+			 vim_strnsave(&ccline.cmdbuff[i], xp->xp_pattern_len),
+							   use_options, type);
+	    vim_free(p1);
+	    /* longest match: make sure it is not shorter, happens with :help */
+	    if (p2 != NULL && type == WILD_LONGEST)
+	    {
+		for (j = 0; j < xp->xp_pattern_len; ++j)
+		     if (ccline.cmdbuff[i + j] == '*'
+			     || ccline.cmdbuff[i + j] == '?')
+			 break;
+		if ((int)STRLEN(p2) < j)
+		    VIM_CLEAR(p2);
+	    }
+	}
+    }
+
+    if (p2 != NULL && !got_int)
+    {
+	difflen = (int)STRLEN(p2) - xp->xp_pattern_len;
+	if (ccline.cmdlen + difflen + 4 > ccline.cmdbufflen)
+	{
+	    v = realloc_cmdbuff(ccline.cmdlen + difflen + 4);
+	    xp->xp_pattern = ccline.cmdbuff + i;
+	}
+	else
+	    v = OK;
+	if (v == OK)
+	{
+	    mch_memmove(&ccline.cmdbuff[ccline.cmdpos + difflen],
+		    &ccline.cmdbuff[ccline.cmdpos],
+		    (size_t)(ccline.cmdlen - ccline.cmdpos + 1));
+	    mch_memmove(&ccline.cmdbuff[i], p2, STRLEN(p2));
+	    ccline.cmdlen += difflen;
+	    ccline.cmdpos += difflen;
+	}
+    }
+    vim_free(p2);
+
+    redrawcmd();
+    cursorcmd();
+
+    /* When expanding a ":map" command and no matches are found, assume that
+     * the key is supposed to be inserted literally */
+    if (xp->xp_context == EXPAND_MAPPINGS && p2 == NULL)
+	return FAIL;
+
+    if (xp->xp_numfiles <= 0 && p2 == NULL)
+	beep_flush();
+    else if (xp->xp_numfiles == 1)
+	/* free expanded pattern */
+	(void)ExpandOne(xp, NULL, NULL, 0, WILD_FREE);
+
+    return OK;
+}
+
+/*
+ * Do wildcard expansion on the string 'str'.
+ * Chars that should not be expanded must be preceded with a backslash.
+ * Return a pointer to allocated memory containing the new string.
+ * Return NULL for failure.
+ *
+ * "orig" is the originally expanded string, copied to allocated memory.  It
+ * should either be kept in orig_save or freed.  When "mode" is WILD_NEXT or
+ * WILD_PREV "orig" should be NULL.
+ *
+ * Results are cached in xp->xp_files and xp->xp_numfiles, except when "mode"
+ * is WILD_EXPAND_FREE or WILD_ALL.
+ *
+ * mode = WILD_FREE:	    just free previously expanded matches
+ * mode = WILD_EXPAND_FREE: normal expansion, do not keep matches
+ * mode = WILD_EXPAND_KEEP: normal expansion, keep matches
+ * mode = WILD_NEXT:	    use next match in multiple match, wrap to first
+ * mode = WILD_PREV:	    use previous match in multiple match, wrap to first
+ * mode = WILD_ALL:	    return all matches concatenated
+ * mode = WILD_LONGEST:	    return longest matched part
+ * mode = WILD_ALL_KEEP:    get all matches, keep matches
+ *
+ * options = WILD_LIST_NOTFOUND:    list entries without a match
+ * options = WILD_HOME_REPLACE:	    do home_replace() for buffer names
+ * options = WILD_USE_NL:	    Use '\n' for WILD_ALL
+ * options = WILD_NO_BEEP:	    Don't beep for multiple matches
+ * options = WILD_ADD_SLASH:	    add a slash after directory names
+ * options = WILD_KEEP_ALL:	    don't remove 'wildignore' entries
+ * options = WILD_SILENT:	    don't print warning messages
+ * options = WILD_ESCAPE:	    put backslash before special chars
+ * options = WILD_ICASE:	    ignore case for files
+ *
+ * The variables xp->xp_context and xp->xp_backslash must have been set!
+ */
+    char_u *
+ExpandOne(
+    expand_T	*xp,
+    char_u	*str,
+    char_u	*orig,	    /* allocated copy of original of expanded string */
+    int		options,
+    int		mode)
+{
+    char_u	*ss = NULL;
+    static int	findex;
+    static char_u *orig_save = NULL;	/* kept value of orig */
+    int		orig_saved = FALSE;
+    int		i;
+    long_u	len;
+    int		non_suf_match;		/* number without matching suffix */
+
+    /*
+     * first handle the case of using an old match
+     */
+    if (mode == WILD_NEXT || mode == WILD_PREV)
+    {
+	if (xp->xp_numfiles > 0)
+	{
+	    if (mode == WILD_PREV)
+	    {
+		if (findex == -1)
+		    findex = xp->xp_numfiles;
+		--findex;
+	    }
+	    else    /* mode == WILD_NEXT */
+		++findex;
+
+	    /*
+	     * When wrapping around, return the original string, set findex to
+	     * -1.
+	     */
+	    if (findex < 0)
+	    {
+		if (orig_save == NULL)
+		    findex = xp->xp_numfiles - 1;
+		else
+		    findex = -1;
+	    }
+	    if (findex >= xp->xp_numfiles)
+	    {
+		if (orig_save == NULL)
+		    findex = 0;
+		else
+		    findex = -1;
+	    }
+#ifdef FEAT_WILDMENU
+	    if (p_wmnu)
+		win_redr_status_matches(xp, xp->xp_numfiles, xp->xp_files,
+							findex, cmd_showtail);
+#endif
+	    if (findex == -1)
+		return vim_strsave(orig_save);
+	    return vim_strsave(xp->xp_files[findex]);
+	}
+	else
+	    return NULL;
+    }
+
+    /* free old names */
+    if (xp->xp_numfiles != -1 && mode != WILD_ALL && mode != WILD_LONGEST)
+    {
+	FreeWild(xp->xp_numfiles, xp->xp_files);
+	xp->xp_numfiles = -1;
+	VIM_CLEAR(orig_save);
+    }
+    findex = 0;
+
+    if (mode == WILD_FREE)	/* only release file name */
+	return NULL;
+
+    if (xp->xp_numfiles == -1)
+    {
+	vim_free(orig_save);
+	orig_save = orig;
+	orig_saved = TRUE;
+
+	/*
+	 * Do the expansion.
+	 */
+	if (ExpandFromContext(xp, str, &xp->xp_numfiles, &xp->xp_files,
+							     options) == FAIL)
+	{
+#ifdef FNAME_ILLEGAL
+	    /* Illegal file name has been silently skipped.  But when there
+	     * are wildcards, the real problem is that there was no match,
+	     * causing the pattern to be added, which has illegal characters.
+	     */
+	    if (!(options & WILD_SILENT) && (options & WILD_LIST_NOTFOUND))
+		semsg(_(e_nomatch2), str);
+#endif
+	}
+	else if (xp->xp_numfiles == 0)
+	{
+	    if (!(options & WILD_SILENT))
+		semsg(_(e_nomatch2), str);
+	}
+	else
+	{
+	    /* Escape the matches for use on the command line. */
+	    ExpandEscape(xp, str, xp->xp_numfiles, xp->xp_files, options);
+
+	    /*
+	     * Check for matching suffixes in file names.
+	     */
+	    if (mode != WILD_ALL && mode != WILD_ALL_KEEP
+						      && mode != WILD_LONGEST)
+	    {
+		if (xp->xp_numfiles)
+		    non_suf_match = xp->xp_numfiles;
+		else
+		    non_suf_match = 1;
+		if ((xp->xp_context == EXPAND_FILES
+			    || xp->xp_context == EXPAND_DIRECTORIES)
+			&& xp->xp_numfiles > 1)
+		{
+		    /*
+		     * More than one match; check suffix.
+		     * The files will have been sorted on matching suffix in
+		     * expand_wildcards, only need to check the first two.
+		     */
+		    non_suf_match = 0;
+		    for (i = 0; i < 2; ++i)
+			if (match_suffix(xp->xp_files[i]))
+			    ++non_suf_match;
+		}
+		if (non_suf_match != 1)
+		{
+		    /* Can we ever get here unless it's while expanding
+		     * interactively?  If not, we can get rid of this all
+		     * together. Don't really want to wait for this message
+		     * (and possibly have to hit return to continue!).
+		     */
+		    if (!(options & WILD_SILENT))
+			emsg(_(e_toomany));
+		    else if (!(options & WILD_NO_BEEP))
+			beep_flush();
+		}
+		if (!(non_suf_match != 1 && mode == WILD_EXPAND_FREE))
+		    ss = vim_strsave(xp->xp_files[0]);
+	    }
+	}
+    }
+
+    /* Find longest common part */
+    if (mode == WILD_LONGEST && xp->xp_numfiles > 0)
+    {
+	int mb_len = 1;
+	int c0, ci;
+
+	for (len = 0; xp->xp_files[0][len]; len += mb_len)
+	{
+	    if (has_mbyte)
+	    {
+		mb_len = (*mb_ptr2len)(&xp->xp_files[0][len]);
+		c0 =(* mb_ptr2char)(&xp->xp_files[0][len]);
+	    }
+	    else
+		c0 = xp->xp_files[0][len];
+	    for (i = 1; i < xp->xp_numfiles; ++i)
+	    {
+		if (has_mbyte)
+		    ci =(* mb_ptr2char)(&xp->xp_files[i][len]);
+		else
+		    ci = xp->xp_files[i][len];
+		if (p_fic && (xp->xp_context == EXPAND_DIRECTORIES
+			|| xp->xp_context == EXPAND_FILES
+			|| xp->xp_context == EXPAND_SHELLCMD
+			|| xp->xp_context == EXPAND_BUFFERS))
+		{
+		    if (MB_TOLOWER(c0) != MB_TOLOWER(ci))
+			break;
+		}
+		else if (c0 != ci)
+		    break;
+	    }
+	    if (i < xp->xp_numfiles)
+	    {
+		if (!(options & WILD_NO_BEEP))
+		    vim_beep(BO_WILD);
+		break;
+	    }
+	}
+
+	ss = alloc((unsigned)len + 1);
+	if (ss)
+	    vim_strncpy(ss, xp->xp_files[0], (size_t)len);
+	findex = -1;			    /* next p_wc gets first one */
+    }
+
+    /* Concatenate all matching names */
+    if (mode == WILD_ALL && xp->xp_numfiles > 0)
+    {
+	len = 0;
+	for (i = 0; i < xp->xp_numfiles; ++i)
+	    len += (long_u)STRLEN(xp->xp_files[i]) + 1;
+	ss = lalloc(len, TRUE);
+	if (ss != NULL)
+	{
+	    *ss = NUL;
+	    for (i = 0; i < xp->xp_numfiles; ++i)
+	    {
+		STRCAT(ss, xp->xp_files[i]);
+		if (i != xp->xp_numfiles - 1)
+		    STRCAT(ss, (options & WILD_USE_NL) ? "\n" : " ");
+	    }
+	}
+    }
+
+    if (mode == WILD_EXPAND_FREE || mode == WILD_ALL)
+	ExpandCleanup(xp);
+
+    /* Free "orig" if it wasn't stored in "orig_save". */
+    if (!orig_saved)
+	vim_free(orig);
+
+    return ss;
+}
+
+/*
+ * Prepare an expand structure for use.
+ */
+    void
+ExpandInit(expand_T *xp)
+{
+    xp->xp_pattern = NULL;
+    xp->xp_pattern_len = 0;
+    xp->xp_backslash = XP_BS_NONE;
+#ifndef BACKSLASH_IN_FILENAME
+    xp->xp_shell = FALSE;
+#endif
+    xp->xp_numfiles = -1;
+    xp->xp_files = NULL;
+#if defined(FEAT_USR_CMDS) && defined(FEAT_EVAL) && defined(FEAT_CMDL_COMPL)
+    xp->xp_arg = NULL;
+#endif
+    xp->xp_line = NULL;
+}
+
+/*
+ * Cleanup an expand structure after use.
+ */
+    void
+ExpandCleanup(expand_T *xp)
+{
+    if (xp->xp_numfiles >= 0)
+    {
+	FreeWild(xp->xp_numfiles, xp->xp_files);
+	xp->xp_numfiles = -1;
+    }
+}
+
+    void
+ExpandEscape(
+    expand_T	*xp,
+    char_u	*str,
+    int		numfiles,
+    char_u	**files,
+    int		options)
+{
+    int		i;
+    char_u	*p;
+
+    /*
+     * May change home directory back to "~"
+     */
+    if (options & WILD_HOME_REPLACE)
+	tilde_replace(str, numfiles, files);
+
+    if (options & WILD_ESCAPE)
+    {
+	if (xp->xp_context == EXPAND_FILES
+		|| xp->xp_context == EXPAND_FILES_IN_PATH
+		|| xp->xp_context == EXPAND_SHELLCMD
+		|| xp->xp_context == EXPAND_BUFFERS
+		|| xp->xp_context == EXPAND_DIRECTORIES)
+	{
+	    /*
+	     * Insert a backslash into a file name before a space, \, %, #
+	     * and wildmatch characters, except '~'.
+	     */
+	    for (i = 0; i < numfiles; ++i)
+	    {
+		/* for ":set path=" we need to escape spaces twice */
+		if (xp->xp_backslash == XP_BS_THREE)
+		{
+		    p = vim_strsave_escaped(files[i], (char_u *)" ");
+		    if (p != NULL)
+		    {
+			vim_free(files[i]);
+			files[i] = p;
+#if defined(BACKSLASH_IN_FILENAME)
+			p = vim_strsave_escaped(files[i], (char_u *)" ");
+			if (p != NULL)
+			{
+			    vim_free(files[i]);
+			    files[i] = p;
+			}
+#endif
+		    }
+		}
+#ifdef BACKSLASH_IN_FILENAME
+		p = vim_strsave_fnameescape(files[i], FALSE);
+#else
+		p = vim_strsave_fnameescape(files[i], xp->xp_shell);
+#endif
+		if (p != NULL)
+		{
+		    vim_free(files[i]);
+		    files[i] = p;
+		}
+
+		/* If 'str' starts with "\~", replace "~" at start of
+		 * files[i] with "\~". */
+		if (str[0] == '\\' && str[1] == '~' && files[i][0] == '~')
+		    escape_fname(&files[i]);
+	    }
+	    xp->xp_backslash = XP_BS_NONE;
+
+	    /* If the first file starts with a '+' escape it.  Otherwise it
+	     * could be seen as "+cmd". */
+	    if (*files[0] == '+')
+		escape_fname(&files[0]);
+	}
+	else if (xp->xp_context == EXPAND_TAGS)
+	{
+	    /*
+	     * Insert a backslash before characters in a tag name that
+	     * would terminate the ":tag" command.
+	     */
+	    for (i = 0; i < numfiles; ++i)
+	    {
+		p = vim_strsave_escaped(files[i], (char_u *)"\\|\"");
+		if (p != NULL)
+		{
+		    vim_free(files[i]);
+		    files[i] = p;
+		}
+	    }
+	}
+    }
+}
+
+/*
+ * Escape special characters in "fname" for when used as a file name argument
+ * after a Vim command, or, when "shell" is non-zero, a shell command.
+ * Returns the result in allocated memory.
+ */
+    char_u *
+vim_strsave_fnameescape(char_u *fname, int shell)
+{
+    char_u	*p;
+#ifdef BACKSLASH_IN_FILENAME
+    char_u	buf[20];
+    int		j = 0;
+
+    /* Don't escape '[', '{' and '!' if they are in 'isfname'. */
+    for (p = PATH_ESC_CHARS; *p != NUL; ++p)
+	if ((*p != '[' && *p != '{' && *p != '!') || !vim_isfilec(*p))
+	    buf[j++] = *p;
+    buf[j] = NUL;
+    p = vim_strsave_escaped(fname, buf);
+#else
+    p = vim_strsave_escaped(fname, shell ? SHELL_ESC_CHARS : PATH_ESC_CHARS);
+    if (shell && csh_like_shell() && p != NULL)
+    {
+	char_u	    *s;
+
+	/* For csh and similar shells need to put two backslashes before '!'.
+	 * One is taken by Vim, one by the shell. */
+	s = vim_strsave_escaped(p, (char_u *)"!");
+	vim_free(p);
+	p = s;
+    }
+#endif
+
+    /* '>' and '+' are special at the start of some commands, e.g. ":edit" and
+     * ":write".  "cd -" has a special meaning. */
+    if (p != NULL && (*p == '>' || *p == '+' || (*p == '-' && p[1] == NUL)))
+	escape_fname(&p);
+
+    return p;
+}
+
+/*
+ * Put a backslash before the file name in "pp", which is in allocated memory.
+ */
+    static void
+escape_fname(char_u **pp)
+{
+    char_u	*p;
+
+    p = alloc((unsigned)(STRLEN(*pp) + 2));
+    if (p != NULL)
+    {
+	p[0] = '\\';
+	STRCPY(p + 1, *pp);
+	vim_free(*pp);
+	*pp = p;
+    }
+}
+
+/*
+ * For each file name in files[num_files]:
+ * If 'orig_pat' starts with "~/", replace the home directory with "~".
+ */
+    void
+tilde_replace(
+    char_u  *orig_pat,
+    int	    num_files,
+    char_u  **files)
+{
+    int	    i;
+    char_u  *p;
+
+    if (orig_pat[0] == '~' && vim_ispathsep(orig_pat[1]))
+    {
+	for (i = 0; i < num_files; ++i)
+	{
+	    p = home_replace_save(NULL, files[i]);
+	    if (p != NULL)
+	    {
+		vim_free(files[i]);
+		files[i] = p;
+	    }
+	}
+    }
+}
+
+/*
+ * Show all matches for completion on the command line.
+ * Returns EXPAND_NOTHING when the character that triggered expansion should
+ * be inserted like a normal character.
+ */
+    static int
+showmatches(expand_T *xp, int wildmenu UNUSED)
+{
+#define L_SHOWFILE(m) (showtail ? sm_gettail(files_found[m]) : files_found[m])
+    int		num_files;
+    char_u	**files_found;
+    int		i, j, k;
+    int		maxlen;
+    int		lines;
+    int		columns;
+    char_u	*p;
+    int		lastlen;
+    int		attr;
+    int		showtail;
+
+    if (xp->xp_numfiles == -1)
+    {
+	set_expand_context(xp);
+	i = expand_cmdline(xp, ccline.cmdbuff, ccline.cmdpos,
+						    &num_files, &files_found);
+	showtail = expand_showtail(xp);
+	if (i != EXPAND_OK)
+	    return i;
+
+    }
+    else
+    {
+	num_files = xp->xp_numfiles;
+	files_found = xp->xp_files;
+	showtail = cmd_showtail;
+    }
+
+#ifdef FEAT_WILDMENU
+    if (!wildmenu)
+    {
+#endif
+	msg_didany = FALSE;		/* lines_left will be set */
+	msg_start();			/* prepare for paging */
+	msg_putchar('\n');
+	out_flush();
+	cmdline_row = msg_row;
+	msg_didany = FALSE;		/* lines_left will be set again */
+	msg_start();			/* prepare for paging */
+#ifdef FEAT_WILDMENU
+    }
+#endif
+
+    if (got_int)
+	got_int = FALSE;	/* only int. the completion, not the cmd line */
+#ifdef FEAT_WILDMENU
+    else if (wildmenu)
+	win_redr_status_matches(xp, num_files, files_found, -1, showtail);
+#endif
+    else
+    {
+	/* find the length of the longest file name */
+	maxlen = 0;
+	for (i = 0; i < num_files; ++i)
+	{
+	    if (!showtail && (xp->xp_context == EXPAND_FILES
+			  || xp->xp_context == EXPAND_SHELLCMD
+			  || xp->xp_context == EXPAND_BUFFERS))
+	    {
+		home_replace(NULL, files_found[i], NameBuff, MAXPATHL, TRUE);
+		j = vim_strsize(NameBuff);
+	    }
+	    else
+		j = vim_strsize(L_SHOWFILE(i));
+	    if (j > maxlen)
+		maxlen = j;
+	}
+
+	if (xp->xp_context == EXPAND_TAGS_LISTFILES)
+	    lines = num_files;
+	else
+	{
+	    /* compute the number of columns and lines for the listing */
+	    maxlen += 2;    /* two spaces between file names */
+	    columns = ((int)Columns + 2) / maxlen;
+	    if (columns < 1)
+		columns = 1;
+	    lines = (num_files + columns - 1) / columns;
+	}
+
+	attr = HL_ATTR(HLF_D);	/* find out highlighting for directories */
+
+	if (xp->xp_context == EXPAND_TAGS_LISTFILES)
+	{
+	    msg_puts_attr(_("tagname"), HL_ATTR(HLF_T));
+	    msg_clr_eos();
+	    msg_advance(maxlen - 3);
+	    msg_puts_attr(_(" kind file\n"), HL_ATTR(HLF_T));
+	}
+
+	/* list the files line by line */
+	for (i = 0; i < lines; ++i)
+	{
+	    lastlen = 999;
+	    for (k = i; k < num_files; k += lines)
+	    {
+		if (xp->xp_context == EXPAND_TAGS_LISTFILES)
+		{
+		    msg_outtrans_attr(files_found[k], HL_ATTR(HLF_D));
+		    p = files_found[k] + STRLEN(files_found[k]) + 1;
+		    msg_advance(maxlen + 1);
+		    msg_puts((char *)p);
+		    msg_advance(maxlen + 3);
+		    msg_outtrans_long_attr(p + 2, HL_ATTR(HLF_D));
+		    break;
+		}
+		for (j = maxlen - lastlen; --j >= 0; )
+		    msg_putchar(' ');
+		if (xp->xp_context == EXPAND_FILES
+					  || xp->xp_context == EXPAND_SHELLCMD
+					  || xp->xp_context == EXPAND_BUFFERS)
+		{
+		    /* highlight directories */
+		    if (xp->xp_numfiles != -1)
+		    {
+			char_u	*halved_slash;
+			char_u	*exp_path;
+
+			/* Expansion was done before and special characters
+			 * were escaped, need to halve backslashes.  Also
+			 * $HOME has been replaced with ~/. */
+			exp_path = expand_env_save_opt(files_found[k], TRUE);
+			halved_slash = backslash_halve_save(
+				exp_path != NULL ? exp_path : files_found[k]);
+			j = mch_isdir(halved_slash != NULL ? halved_slash
+							    : files_found[k]);
+			vim_free(exp_path);
+			vim_free(halved_slash);
+		    }
+		    else
+			/* Expansion was done here, file names are literal. */
+			j = mch_isdir(files_found[k]);
+		    if (showtail)
+			p = L_SHOWFILE(k);
+		    else
+		    {
+			home_replace(NULL, files_found[k], NameBuff, MAXPATHL,
+									TRUE);
+			p = NameBuff;
+		    }
+		}
+		else
+		{
+		    j = FALSE;
+		    p = L_SHOWFILE(k);
+		}
+		lastlen = msg_outtrans_attr(p, j ? attr : 0);
+	    }
+	    if (msg_col > 0)	/* when not wrapped around */
+	    {
+		msg_clr_eos();
+		msg_putchar('\n');
+	    }
+	    out_flush();		    /* show one line at a time */
+	    if (got_int)
+	    {
+		got_int = FALSE;
+		break;
+	    }
+	}
+
+	/*
+	 * we redraw the command below the lines that we have just listed
+	 * This is a bit tricky, but it saves a lot of screen updating.
+	 */
+	cmdline_row = msg_row;	/* will put it back later */
+    }
+
+    if (xp->xp_numfiles == -1)
+	FreeWild(num_files, files_found);
+
+    return EXPAND_OK;
+}
+
+/*
+ * Private gettail for showmatches() (and win_redr_status_matches()):
+ * Find tail of file name path, but ignore trailing "/".
+ */
+    char_u *
+sm_gettail(char_u *s)
+{
+    char_u	*p;
+    char_u	*t = s;
+    int		had_sep = FALSE;
+
+    for (p = s; *p != NUL; )
+    {
+	if (vim_ispathsep(*p)
+#ifdef BACKSLASH_IN_FILENAME
+		&& !rem_backslash(p)
+#endif
+	   )
+	    had_sep = TRUE;
+	else if (had_sep)
+	{
+	    t = p;
+	    had_sep = FALSE;
+	}
+	MB_PTR_ADV(p);
+    }
+    return t;
+}
+
+/*
+ * Return TRUE if we only need to show the tail of completion matches.
+ * When not completing file names or there is a wildcard in the path FALSE is
+ * returned.
+ */
+    static int
+expand_showtail(expand_T *xp)
+{
+    char_u	*s;
+    char_u	*end;
+
+    /* When not completing file names a "/" may mean something different. */
+    if (xp->xp_context != EXPAND_FILES
+	    && xp->xp_context != EXPAND_SHELLCMD
+	    && xp->xp_context != EXPAND_DIRECTORIES)
+	return FALSE;
+
+    end = gettail(xp->xp_pattern);
+    if (end == xp->xp_pattern)		/* there is no path separator */
+	return FALSE;
+
+    for (s = xp->xp_pattern; s < end; s++)
+    {
+	/* Skip escaped wildcards.  Only when the backslash is not a path
+	 * separator, on DOS the '*' "path\*\file" must not be skipped. */
+	if (rem_backslash(s))
+	    ++s;
+	else if (vim_strchr((char_u *)"*?[", *s) != NULL)
+	    return FALSE;
+    }
+    return TRUE;
+}
+
+/*
+ * Prepare a string for expansion.
+ * When expanding file names: The string will be used with expand_wildcards().
+ * Copy "fname[len]" into allocated memory and add a '*' at the end.
+ * When expanding other names: The string will be used with regcomp().  Copy
+ * the name into allocated memory and prepend "^".
+ */
+    char_u *
+addstar(
+    char_u	*fname,
+    int		len,
+    int		context)	/* EXPAND_FILES etc. */
+{
+    char_u	*retval;
+    int		i, j;
+    int		new_len;
+    char_u	*tail;
+    int		ends_in_star;
+
+    if (context != EXPAND_FILES
+	    && context != EXPAND_FILES_IN_PATH
+	    && context != EXPAND_SHELLCMD
+	    && context != EXPAND_DIRECTORIES)
+    {
+	/*
+	 * Matching will be done internally (on something other than files).
+	 * So we convert the file-matching-type wildcards into our kind for
+	 * use with vim_regcomp().  First work out how long it will be:
+	 */
+
+	/* For help tags the translation is done in find_help_tags().
+	 * For a tag pattern starting with "/" no translation is needed. */
+	if (context == EXPAND_HELP
+		|| context == EXPAND_COLORS
+		|| context == EXPAND_COMPILER
+		|| context == EXPAND_OWNSYNTAX
+		|| context == EXPAND_FILETYPE
+		|| context == EXPAND_PACKADD
+		|| ((context == EXPAND_TAGS_LISTFILES
+			|| context == EXPAND_TAGS)
+		    && fname[0] == '/'))
+	    retval = vim_strnsave(fname, len);
+	else
+	{
+	    new_len = len + 2;		/* +2 for '^' at start, NUL at end */
+	    for (i = 0; i < len; i++)
+	    {
+		if (fname[i] == '*' || fname[i] == '~')
+		    new_len++;		/* '*' needs to be replaced by ".*"
+					   '~' needs to be replaced by "\~" */
+
+		/* Buffer names are like file names.  "." should be literal */
+		if (context == EXPAND_BUFFERS && fname[i] == '.')
+		    new_len++;		/* "." becomes "\." */
+
+		/* Custom expansion takes care of special things, match
+		 * backslashes literally (perhaps also for other types?) */
+		if ((context == EXPAND_USER_DEFINED
+			  || context == EXPAND_USER_LIST) && fname[i] == '\\')
+		    new_len++;		/* '\' becomes "\\" */
+	    }
+	    retval = alloc(new_len);
+	    if (retval != NULL)
+	    {
+		retval[0] = '^';
+		j = 1;
+		for (i = 0; i < len; i++, j++)
+		{
+		    /* Skip backslash.  But why?  At least keep it for custom
+		     * expansion. */
+		    if (context != EXPAND_USER_DEFINED
+			    && context != EXPAND_USER_LIST
+			    && fname[i] == '\\'
+			    && ++i == len)
+			break;
+
+		    switch (fname[i])
+		    {
+			case '*':   retval[j++] = '.';
+				    break;
+			case '~':   retval[j++] = '\\';
+				    break;
+			case '?':   retval[j] = '.';
+				    continue;
+			case '.':   if (context == EXPAND_BUFFERS)
+					retval[j++] = '\\';
+				    break;
+			case '\\':  if (context == EXPAND_USER_DEFINED
+					    || context == EXPAND_USER_LIST)
+					retval[j++] = '\\';
+				    break;
+		    }
+		    retval[j] = fname[i];
+		}
+		retval[j] = NUL;
+	    }
+	}
+    }
+    else
+    {
+	retval = alloc(len + 4);
+	if (retval != NULL)
+	{
+	    vim_strncpy(retval, fname, len);
+
+	    /*
+	     * Don't add a star to *, ~, ~user, $var or `cmd`.
+	     * * would become **, which walks the whole tree.
+	     * ~ would be at the start of the file name, but not the tail.
+	     * $ could be anywhere in the tail.
+	     * ` could be anywhere in the file name.
+	     * When the name ends in '$' don't add a star, remove the '$'.
+	     */
+	    tail = gettail(retval);
+	    ends_in_star = (len > 0 && retval[len - 1] == '*');
+#ifndef BACKSLASH_IN_FILENAME
+	    for (i = len - 2; i >= 0; --i)
+	    {
+		if (retval[i] != '\\')
+		    break;
+		ends_in_star = !ends_in_star;
+	    }
+#endif
+	    if ((*retval != '~' || tail != retval)
+		    && !ends_in_star
+		    && vim_strchr(tail, '$') == NULL
+		    && vim_strchr(retval, '`') == NULL)
+		retval[len++] = '*';
+	    else if (len > 0 && retval[len - 1] == '$')
+		--len;
+	    retval[len] = NUL;
+	}
+    }
+    return retval;
+}
+
+/*
+ * Must parse the command line so far to work out what context we are in.
+ * Completion can then be done based on that context.
+ * This routine sets the variables:
+ *  xp->xp_pattern	    The start of the pattern to be expanded within
+ *				the command line (ends at the cursor).
+ *  xp->xp_context	    The type of thing to expand.  Will be one of:
+ *
+ *  EXPAND_UNSUCCESSFUL	    Used sometimes when there is something illegal on
+ *			    the command line, like an unknown command.	Caller
+ *			    should beep.
+ *  EXPAND_NOTHING	    Unrecognised context for completion, use char like
+ *			    a normal char, rather than for completion.	eg
+ *			    :s/^I/
+ *  EXPAND_COMMANDS	    Cursor is still touching the command, so complete
+ *			    it.
+ *  EXPAND_BUFFERS	    Complete file names for :buf and :sbuf commands.
+ *  EXPAND_FILES	    After command with XFILE set, or after setting
+ *			    with P_EXPAND set.	eg :e ^I, :w>>^I
+ *  EXPAND_DIRECTORIES	    In some cases this is used instead of the latter
+ *			    when we know only directories are of interest.  eg
+ *			    :set dir=^I
+ *  EXPAND_SHELLCMD	    After ":!cmd", ":r !cmd"  or ":w !cmd".
+ *  EXPAND_SETTINGS	    Complete variable names.  eg :set d^I
+ *  EXPAND_BOOL_SETTINGS    Complete boolean variables only,  eg :set no^I
+ *  EXPAND_TAGS		    Complete tags from the files in p_tags.  eg :ta a^I
+ *  EXPAND_TAGS_LISTFILES   As above, but list filenames on ^D, after :tselect
+ *  EXPAND_HELP		    Complete tags from the file 'helpfile'/tags
+ *  EXPAND_EVENTS	    Complete event names
+ *  EXPAND_SYNTAX	    Complete :syntax command arguments
+ *  EXPAND_HIGHLIGHT	    Complete highlight (syntax) group names
+ *  EXPAND_AUGROUP	    Complete autocommand group names
+ *  EXPAND_USER_VARS	    Complete user defined variable names, eg :unlet a^I
+ *  EXPAND_MAPPINGS	    Complete mapping and abbreviation names,
+ *			      eg :unmap a^I , :cunab x^I
+ *  EXPAND_FUNCTIONS	    Complete internal or user defined function names,
+ *			      eg :call sub^I
+ *  EXPAND_USER_FUNC	    Complete user defined function names, eg :delf F^I
+ *  EXPAND_EXPRESSION	    Complete internal or user defined function/variable
+ *			    names in expressions, eg :while s^I
+ *  EXPAND_ENV_VARS	    Complete environment variable names
+ *  EXPAND_USER		    Complete user names
+ */
+    static void
+set_expand_context(expand_T *xp)
+{
+    /* only expansion for ':', '>' and '=' command-lines */
+    if (ccline.cmdfirstc != ':'
+#ifdef FEAT_EVAL
+	    && ccline.cmdfirstc != '>' && ccline.cmdfirstc != '='
+	    && !ccline.input_fn
+#endif
+	    )
+    {
+	xp->xp_context = EXPAND_NOTHING;
+	return;
+    }
+    set_cmd_context(xp, ccline.cmdbuff, ccline.cmdlen, ccline.cmdpos, TRUE);
+}
+
+    void
+set_cmd_context(
+    expand_T	*xp,
+    char_u	*str,	    /* start of command line */
+    int		len,	    /* length of command line (excl. NUL) */
+    int		col,	    /* position of cursor */
+    int		use_ccline UNUSED) /* use ccline for info */
+{
+    int		old_char = NUL;
+    char_u	*nextcomm;
+
+    /*
+     * Avoid a UMR warning from Purify, only save the character if it has been
+     * written before.
+     */
+    if (col < len)
+	old_char = str[col];
+    str[col] = NUL;
+    nextcomm = str;
+
+#ifdef FEAT_EVAL
+    if (use_ccline && ccline.cmdfirstc == '=')
+    {
+# ifdef FEAT_CMDL_COMPL
+	/* pass CMD_SIZE because there is no real command */
+	set_context_for_expression(xp, str, CMD_SIZE);
+# endif
+    }
+    else if (use_ccline && ccline.input_fn)
+    {
+	xp->xp_context = ccline.xp_context;
+	xp->xp_pattern = ccline.cmdbuff;
+# if defined(FEAT_USR_CMDS) && defined(FEAT_CMDL_COMPL)
+	xp->xp_arg = ccline.xp_arg;
+# endif
+    }
+    else
+#endif
+	while (nextcomm != NULL)
+	    nextcomm = set_one_cmd_context(xp, nextcomm);
+
+    /* Store the string here so that call_user_expand_func() can get to them
+     * easily. */
+    xp->xp_line = str;
+    xp->xp_col = col;
+
+    str[col] = old_char;
+}
+
+/*
+ * Expand the command line "str" from context "xp".
+ * "xp" must have been set by set_cmd_context().
+ * xp->xp_pattern points into "str", to where the text that is to be expanded
+ * starts.
+ * Returns EXPAND_UNSUCCESSFUL when there is something illegal before the
+ * cursor.
+ * Returns EXPAND_NOTHING when there is nothing to expand, might insert the
+ * key that triggered expansion literally.
+ * Returns EXPAND_OK otherwise.
+ */
+    int
+expand_cmdline(
+    expand_T	*xp,
+    char_u	*str,		/* start of command line */
+    int		col,		/* position of cursor */
+    int		*matchcount,	/* return: nr of matches */
+    char_u	***matches)	/* return: array of pointers to matches */
+{
+    char_u	*file_str = NULL;
+    int		options = WILD_ADD_SLASH|WILD_SILENT;
+
+    if (xp->xp_context == EXPAND_UNSUCCESSFUL)
+    {
+	beep_flush();
+	return EXPAND_UNSUCCESSFUL;  /* Something illegal on command line */
+    }
+    if (xp->xp_context == EXPAND_NOTHING)
+    {
+	/* Caller can use the character as a normal char instead */
+	return EXPAND_NOTHING;
+    }
+
+    /* add star to file name, or convert to regexp if not exp. files. */
+    xp->xp_pattern_len = (int)(str + col - xp->xp_pattern);
+    file_str = addstar(xp->xp_pattern, xp->xp_pattern_len, xp->xp_context);
+    if (file_str == NULL)
+	return EXPAND_UNSUCCESSFUL;
+
+    if (p_wic)
+	options += WILD_ICASE;
+
+    /* find all files that match the description */
+    if (ExpandFromContext(xp, file_str, matchcount, matches, options) == FAIL)
+    {
+	*matchcount = 0;
+	*matches = NULL;
+    }
+    vim_free(file_str);
+
+    return EXPAND_OK;
+}
+
+#ifdef FEAT_MULTI_LANG
+/*
+ * Cleanup matches for help tags:
+ * Remove "@ab" if the top of 'helplang' is "ab" and the language of the first
+ * tag matches it.  Otherwise remove "@en" if "en" is the only language.
+ */
+    static void
+cleanup_help_tags(int num_file, char_u **file)
+{
+    int		i, j;
+    int		len;
+    char_u	buf[4];
+    char_u	*p = buf;
+
+    if (p_hlg[0] != NUL && (p_hlg[0] != 'e' || p_hlg[1] != 'n'))
+    {
+	*p++ = '@';
+	*p++ = p_hlg[0];
+	*p++ = p_hlg[1];
+    }
+    *p = NUL;
+
+    for (i = 0; i < num_file; ++i)
+    {
+	len = (int)STRLEN(file[i]) - 3;
+	if (len <= 0)
+	    continue;
+	if (STRCMP(file[i] + len, "@en") == 0)
+	{
+	    /* Sorting on priority means the same item in another language may
+	     * be anywhere.  Search all items for a match up to the "@en". */
+	    for (j = 0; j < num_file; ++j)
+		if (j != i && (int)STRLEN(file[j]) == len + 3
+			   && STRNCMP(file[i], file[j], len + 1) == 0)
+		    break;
+	    if (j == num_file)
+		/* item only exists with @en, remove it */
+		file[i][len] = NUL;
+	}
+    }
+
+    if (*buf != NUL)
+	for (i = 0; i < num_file; ++i)
+	{
+	    len = (int)STRLEN(file[i]) - 3;
+	    if (len <= 0)
+		continue;
+	    if (STRCMP(file[i] + len, buf) == 0)
+	    {
+		/* remove the default language */
+		file[i][len] = NUL;
+	    }
+	}
+}
+#endif
+
+/*
+ * Do the expansion based on xp->xp_context and "pat".
+ */
+    static int
+ExpandFromContext(
+    expand_T	*xp,
+    char_u	*pat,
+    int		*num_file,
+    char_u	***file,
+    int		options)  /* EW_ flags */
+{
+#ifdef FEAT_CMDL_COMPL
+    regmatch_T	regmatch;
+#endif
+    int		ret;
+    int		flags;
+
+    flags = EW_DIR;	/* include directories */
+    if (options & WILD_LIST_NOTFOUND)
+	flags |= EW_NOTFOUND;
+    if (options & WILD_ADD_SLASH)
+	flags |= EW_ADDSLASH;
+    if (options & WILD_KEEP_ALL)
+	flags |= EW_KEEPALL;
+    if (options & WILD_SILENT)
+	flags |= EW_SILENT;
+    if (options & WILD_ALLLINKS)
+	flags |= EW_ALLLINKS;
+
+    if (xp->xp_context == EXPAND_FILES
+	    || xp->xp_context == EXPAND_DIRECTORIES
+	    || xp->xp_context == EXPAND_FILES_IN_PATH)
+    {
+	/*
+	 * Expand file or directory names.
+	 */
+	int	free_pat = FALSE;
+	int	i;
+
+	/* for ":set path=" and ":set tags=" halve backslashes for escaped
+	 * space */
+	if (xp->xp_backslash != XP_BS_NONE)
+	{
+	    free_pat = TRUE;
+	    pat = vim_strsave(pat);
+	    for (i = 0; pat[i]; ++i)
+		if (pat[i] == '\\')
+		{
+		    if (xp->xp_backslash == XP_BS_THREE
+			    && pat[i + 1] == '\\'
+			    && pat[i + 2] == '\\'
+			    && pat[i + 3] == ' ')
+			STRMOVE(pat + i, pat + i + 3);
+		    if (xp->xp_backslash == XP_BS_ONE
+			    && pat[i + 1] == ' ')
+			STRMOVE(pat + i, pat + i + 1);
+		}
+	}
+
+	if (xp->xp_context == EXPAND_FILES)
+	    flags |= EW_FILE;
+	else if (xp->xp_context == EXPAND_FILES_IN_PATH)
+	    flags |= (EW_FILE | EW_PATH);
+	else
+	    flags = (flags | EW_DIR) & ~EW_FILE;
+	if (options & WILD_ICASE)
+	    flags |= EW_ICASE;
+
+	/* Expand wildcards, supporting %:h and the like. */
+	ret = expand_wildcards_eval(&pat, num_file, file, flags);
+	if (free_pat)
+	    vim_free(pat);
+	return ret;
+    }
+
+    *file = (char_u **)"";
+    *num_file = 0;
+    if (xp->xp_context == EXPAND_HELP)
+    {
+	/* With an empty argument we would get all the help tags, which is
+	 * very slow.  Get matches for "help" instead. */
+	if (find_help_tags(*pat == NUL ? (char_u *)"help" : pat,
+						 num_file, file, FALSE) == OK)
+	{
+#ifdef FEAT_MULTI_LANG
+	    cleanup_help_tags(*num_file, *file);
+#endif
+	    return OK;
+	}
+	return FAIL;
+    }
+
+#ifndef FEAT_CMDL_COMPL
+    return FAIL;
+#else
+    if (xp->xp_context == EXPAND_SHELLCMD)
+	return expand_shellcmd(pat, num_file, file, flags);
+    if (xp->xp_context == EXPAND_OLD_SETTING)
+	return ExpandOldSetting(num_file, file);
+    if (xp->xp_context == EXPAND_BUFFERS)
+	return ExpandBufnames(pat, num_file, file, options);
+    if (xp->xp_context == EXPAND_TAGS
+	    || xp->xp_context == EXPAND_TAGS_LISTFILES)
+	return expand_tags(xp->xp_context == EXPAND_TAGS, pat, num_file, file);
+    if (xp->xp_context == EXPAND_COLORS)
+    {
+	char *directories[] = {"colors", NULL};
+	return ExpandRTDir(pat, DIP_START + DIP_OPT, num_file, file,
+								directories);
+    }
+    if (xp->xp_context == EXPAND_COMPILER)
+    {
+	char *directories[] = {"compiler", NULL};
+	return ExpandRTDir(pat, 0, num_file, file, directories);
+    }
+    if (xp->xp_context == EXPAND_OWNSYNTAX)
+    {
+	char *directories[] = {"syntax", NULL};
+	return ExpandRTDir(pat, 0, num_file, file, directories);
+    }
+    if (xp->xp_context == EXPAND_FILETYPE)
+    {
+	char *directories[] = {"syntax", "indent", "ftplugin", NULL};
+	return ExpandRTDir(pat, 0, num_file, file, directories);
+    }
+# if defined(FEAT_USR_CMDS) && defined(FEAT_EVAL)
+    if (xp->xp_context == EXPAND_USER_LIST)
+	return ExpandUserList(xp, num_file, file);
+# endif
+    if (xp->xp_context == EXPAND_PACKADD)
+	return ExpandPackAddDir(pat, num_file, file);
+
+    regmatch.regprog = vim_regcomp(pat, p_magic ? RE_MAGIC : 0);
+    if (regmatch.regprog == NULL)
+	return FAIL;
+
+    /* set ignore-case according to p_ic, p_scs and pat */
+    regmatch.rm_ic = ignorecase(pat);
+
+    if (xp->xp_context == EXPAND_SETTINGS
+	    || xp->xp_context == EXPAND_BOOL_SETTINGS)
+	ret = ExpandSettings(xp, &regmatch, num_file, file);
+    else if (xp->xp_context == EXPAND_MAPPINGS)
+	ret = ExpandMappings(&regmatch, num_file, file);
+# if defined(FEAT_USR_CMDS) && defined(FEAT_EVAL)
+    else if (xp->xp_context == EXPAND_USER_DEFINED)
+	ret = ExpandUserDefined(xp, &regmatch, num_file, file);
+# endif
+    else
+    {
+	static struct expgen
+	{
+	    int		context;
+	    char_u	*((*func)(expand_T *, int));
+	    int		ic;
+	    int		escaped;
+	} tab[] =
+	{
+	    {EXPAND_COMMANDS, get_command_name, FALSE, TRUE},
+	    {EXPAND_BEHAVE, get_behave_arg, TRUE, TRUE},
+	    {EXPAND_MAPCLEAR, get_mapclear_arg, TRUE, TRUE},
+	    {EXPAND_MESSAGES, get_messages_arg, TRUE, TRUE},
+#ifdef FEAT_CMDHIST
+	    {EXPAND_HISTORY, get_history_arg, TRUE, TRUE},
+#endif
+#ifdef FEAT_USR_CMDS
+	    {EXPAND_USER_COMMANDS, get_user_commands, FALSE, TRUE},
+	    {EXPAND_USER_ADDR_TYPE, get_user_cmd_addr_type, FALSE, TRUE},
+	    {EXPAND_USER_CMD_FLAGS, get_user_cmd_flags, FALSE, TRUE},
+	    {EXPAND_USER_NARGS, get_user_cmd_nargs, FALSE, TRUE},
+	    {EXPAND_USER_COMPLETE, get_user_cmd_complete, FALSE, TRUE},
+#endif
+#ifdef FEAT_EVAL
+	    {EXPAND_USER_VARS, get_user_var_name, FALSE, TRUE},
+	    {EXPAND_FUNCTIONS, get_function_name, FALSE, TRUE},
+	    {EXPAND_USER_FUNC, get_user_func_name, FALSE, TRUE},
+	    {EXPAND_EXPRESSION, get_expr_name, FALSE, TRUE},
+#endif
+#ifdef FEAT_MENU
+	    {EXPAND_MENUS, get_menu_name, FALSE, TRUE},
+	    {EXPAND_MENUNAMES, get_menu_names, FALSE, TRUE},
+#endif
+#ifdef FEAT_SYN_HL
+	    {EXPAND_SYNTAX, get_syntax_name, TRUE, TRUE},
+#endif
+#ifdef FEAT_PROFILE
+	    {EXPAND_SYNTIME, get_syntime_arg, TRUE, TRUE},
+#endif
+	    {EXPAND_HIGHLIGHT, get_highlight_name, TRUE, TRUE},
+	    {EXPAND_EVENTS, get_event_name, TRUE, TRUE},
+	    {EXPAND_AUGROUP, get_augroup_name, TRUE, TRUE},
+#ifdef FEAT_CSCOPE
+	    {EXPAND_CSCOPE, get_cscope_name, TRUE, TRUE},
+#endif
+#ifdef FEAT_SIGNS
+	    {EXPAND_SIGN, get_sign_name, TRUE, TRUE},
+#endif
+#ifdef FEAT_PROFILE
+	    {EXPAND_PROFILE, get_profile_name, TRUE, TRUE},
+#endif
+#if defined(HAVE_LOCALE_H) || defined(X_LOCALE)
+	    {EXPAND_LANGUAGE, get_lang_arg, TRUE, FALSE},
+	    {EXPAND_LOCALES, get_locales, TRUE, FALSE},
+#endif
+	    {EXPAND_ENV_VARS, get_env_name, TRUE, TRUE},
+	    {EXPAND_USER, get_users, TRUE, FALSE},
+	    {EXPAND_ARGLIST, get_arglist_name, TRUE, FALSE},
+	};
+	int	i;
+
+	/*
+	 * Find a context in the table and call the ExpandGeneric() with the
+	 * right function to do the expansion.
+	 */
+	ret = FAIL;
+	for (i = 0; i < (int)(sizeof(tab) / sizeof(struct expgen)); ++i)
+	    if (xp->xp_context == tab[i].context)
+	    {
+		if (tab[i].ic)
+		    regmatch.rm_ic = TRUE;
+		ret = ExpandGeneric(xp, &regmatch, num_file, file,
+						tab[i].func, tab[i].escaped);
+		break;
+	    }
+    }
+
+    vim_regfree(regmatch.regprog);
+
+    return ret;
+#endif /* FEAT_CMDL_COMPL */
+}
+
+#if defined(FEAT_CMDL_COMPL) || defined(PROTO)
+/*
+ * Expand a list of names.
+ *
+ * Generic function for command line completion.  It calls a function to
+ * obtain strings, one by one.	The strings are matched against a regexp
+ * program.  Matching strings are copied into an array, which is returned.
+ *
+ * Returns OK when no problems encountered, FAIL for error (out of memory).
+ */
+    int
+ExpandGeneric(
+    expand_T	*xp,
+    regmatch_T	*regmatch,
+    int		*num_file,
+    char_u	***file,
+    char_u	*((*func)(expand_T *, int)),
+					  /* returns a string from the list */
+    int		escaped)
+{
+    int		i;
+    int		count = 0;
+    int		round;
+    char_u	*str;
+
+    /* do this loop twice:
+     * round == 0: count the number of matching names
+     * round == 1: copy the matching names into allocated memory
+     */
+    for (round = 0; round <= 1; ++round)
+    {
+	for (i = 0; ; ++i)
+	{
+	    str = (*func)(xp, i);
+	    if (str == NULL)	    /* end of list */
+		break;
+	    if (*str == NUL)	    /* skip empty strings */
+		continue;
+
+	    if (vim_regexec(regmatch, str, (colnr_T)0))
+	    {
+		if (round)
+		{
+		    if (escaped)
+			str = vim_strsave_escaped(str, (char_u *)" \t\\.");
+		    else
+			str = vim_strsave(str);
+		    (*file)[count] = str;
+#ifdef FEAT_MENU
+		    if (func == get_menu_names && str != NULL)
+		    {
+			/* test for separator added by get_menu_names() */
+			str += STRLEN(str) - 1;
+			if (*str == '\001')
+			    *str = '.';
+		    }
+#endif
+		}
+		++count;
+	    }
+	}
+	if (round == 0)
+	{
+	    if (count == 0)
+		return OK;
+	    *num_file = count;
+	    *file = (char_u **)alloc((unsigned)(count * sizeof(char_u *)));
+	    if (*file == NULL)
+	    {
+		*file = (char_u **)"";
+		return FAIL;
+	    }
+	    count = 0;
+	}
+    }
+
+    /* Sort the results.  Keep menu's in the specified order. */
+    if (xp->xp_context != EXPAND_MENUNAMES && xp->xp_context != EXPAND_MENUS)
+    {
+	if (xp->xp_context == EXPAND_EXPRESSION
+		|| xp->xp_context == EXPAND_FUNCTIONS
+		|| xp->xp_context == EXPAND_USER_FUNC)
+	    /* <SNR> functions should be sorted to the end. */
+	    qsort((void *)*file, (size_t)*num_file, sizeof(char_u *),
+							   sort_func_compare);
+	else
+	    sort_strings(*file, *num_file);
+    }
+
+#ifdef FEAT_CMDL_COMPL
+    /* Reset the variables used for special highlight names expansion, so that
+     * they don't show up when getting normal highlight names by ID. */
+    reset_expand_highlight();
+#endif
+
+    return OK;
+}
+
+/*
+ * Complete a shell command.
+ * Returns FAIL or OK;
+ */
+    static int
+expand_shellcmd(
+    char_u	*filepat,	/* pattern to match with command names */
+    int		*num_file,	/* return: number of matches */
+    char_u	***file,	/* return: array with matches */
+    int		flagsarg)	/* EW_ flags */
+{
+    char_u	*pat;
+    int		i;
+    char_u	*path = NULL;
+    int		mustfree = FALSE;
+    garray_T    ga;
+    char_u	*buf = alloc(MAXPATHL);
+    size_t	l;
+    char_u	*s, *e;
+    int		flags = flagsarg;
+    int		ret;
+    int		did_curdir = FALSE;
+    hashtab_T	found_ht;
+    hashitem_T	*hi;
+    hash_T	hash;
+
+    if (buf == NULL)
+	return FAIL;
+
+    /* for ":set path=" and ":set tags=" halve backslashes for escaped
+     * space */
+    pat = vim_strsave(filepat);
+    for (i = 0; pat[i]; ++i)
+	if (pat[i] == '\\' && pat[i + 1] == ' ')
+	    STRMOVE(pat + i, pat + i + 1);
+
+    flags |= EW_FILE | EW_EXEC | EW_SHELLCMD;
+
+    if (pat[0] == '.' && (vim_ispathsep(pat[1])
+			       || (pat[1] == '.' && vim_ispathsep(pat[2]))))
+	path = (char_u *)".";
+    else
+    {
+	/* For an absolute name we don't use $PATH. */
+	if (!mch_isFullName(pat))
+	    path = vim_getenv((char_u *)"PATH", &mustfree);
+	if (path == NULL)
+	    path = (char_u *)"";
+    }
+
+    /*
+     * Go over all directories in $PATH.  Expand matches in that directory and
+     * collect them in "ga".  When "." is not in $PATH also expand for the
+     * current directory, to find "subdir/cmd".
+     */
+    ga_init2(&ga, (int)sizeof(char *), 10);
+    hash_init(&found_ht);
+    for (s = path; ; s = e)
+    {
+#if defined(MSWIN)
+	e = vim_strchr(s, ';');
+#else
+	e = vim_strchr(s, ':');
+#endif
+	if (e == NULL)
+	    e = s + STRLEN(s);
+
+	if (*s == NUL)
+	{
+	    if (did_curdir)
+		break;
+	    // Find directories in the current directory, path is empty.
+	    did_curdir = TRUE;
+	    flags |= EW_DIR;
+	}
+	else if (STRNCMP(s, ".", (int)(e - s)) == 0)
+	{
+	    did_curdir = TRUE;
+	    flags |= EW_DIR;
+	}
+	else
+	    // Do not match directories inside a $PATH item.
+	    flags &= ~EW_DIR;
+
+	l = e - s;
+	if (l > MAXPATHL - 5)
+	    break;
+	vim_strncpy(buf, s, l);
+	add_pathsep(buf);
+	l = STRLEN(buf);
+	vim_strncpy(buf + l, pat, MAXPATHL - 1 - l);
+
+	/* Expand matches in one directory of $PATH. */
+	ret = expand_wildcards(1, &buf, num_file, file, flags);
+	if (ret == OK)
+	{
+	    if (ga_grow(&ga, *num_file) == FAIL)
+		FreeWild(*num_file, *file);
+	    else
+	    {
+		for (i = 0; i < *num_file; ++i)
+		{
+		    char_u *name = (*file)[i];
+
+		    if (STRLEN(name) > l)
+		    {
+			// Check if this name was already found.
+			hash = hash_hash(name + l);
+			hi = hash_lookup(&found_ht, name + l, hash);
+			if (HASHITEM_EMPTY(hi))
+			{
+			    // Remove the path that was prepended.
+			    STRMOVE(name, name + l);
+			    ((char_u **)ga.ga_data)[ga.ga_len++] = name;
+			    hash_add_item(&found_ht, hi, name, hash);
+			    name = NULL;
+			}
+		    }
+		    vim_free(name);
+		}
+		vim_free(*file);
+	    }
+	}
+	if (*e != NUL)
+	    ++e;
+    }
+    *file = ga.ga_data;
+    *num_file = ga.ga_len;
+
+    vim_free(buf);
+    vim_free(pat);
+    if (mustfree)
+	vim_free(path);
+    hash_clear(&found_ht);
+    return OK;
+}
+
+
+# if defined(FEAT_USR_CMDS) && defined(FEAT_EVAL)
+/*
+ * Call "user_expand_func()" to invoke a user defined Vim script function and
+ * return the result (either a string or a List).
+ */
+    static void *
+call_user_expand_func(
+    void	*(*user_expand_func)(char_u *, int, typval_T *),
+    expand_T	*xp,
+    int		*num_file,
+    char_u	***file)
+{
+    int		keep = 0;
+    typval_T	args[4];
+    sctx_T	save_current_sctx = current_sctx;
+    char_u	*pat = NULL;
+    void	*ret;
+
+    if (xp->xp_arg == NULL || xp->xp_arg[0] == '\0' || xp->xp_line == NULL)
+	return NULL;
+    *num_file = 0;
+    *file = NULL;
+
+    if (ccline.cmdbuff != NULL)
+    {
+	keep = ccline.cmdbuff[ccline.cmdlen];
+	ccline.cmdbuff[ccline.cmdlen] = 0;
+    }
+
+    pat = vim_strnsave(xp->xp_pattern, xp->xp_pattern_len);
+
+    args[0].v_type = VAR_STRING;
+    args[0].vval.v_string = pat;
+    args[1].v_type = VAR_STRING;
+    args[1].vval.v_string = xp->xp_line;
+    args[2].v_type = VAR_NUMBER;
+    args[2].vval.v_number = xp->xp_col;
+    args[3].v_type = VAR_UNKNOWN;
+
+    current_sctx = xp->xp_script_ctx;
+
+    ret = user_expand_func(xp->xp_arg, 3, args);
+
+    current_sctx = save_current_sctx;
+    if (ccline.cmdbuff != NULL)
+	ccline.cmdbuff[ccline.cmdlen] = keep;
+
+    vim_free(pat);
+    return ret;
+}
+
+/*
+ * Expand names with a function defined by the user.
+ */
+    static int
+ExpandUserDefined(
+    expand_T	*xp,
+    regmatch_T	*regmatch,
+    int		*num_file,
+    char_u	***file)
+{
+    char_u	*retstr;
+    char_u	*s;
+    char_u	*e;
+    int		keep;
+    garray_T	ga;
+    int		skip;
+
+    retstr = call_user_expand_func(call_func_retstr, xp, num_file, file);
+    if (retstr == NULL)
+	return FAIL;
+
+    ga_init2(&ga, (int)sizeof(char *), 3);
+    for (s = retstr; *s != NUL; s = e)
+    {
+	e = vim_strchr(s, '\n');
+	if (e == NULL)
+	    e = s + STRLEN(s);
+	keep = *e;
+	*e = NUL;
+
+	skip = xp->xp_pattern[0] && vim_regexec(regmatch, s, (colnr_T)0) == 0;
+	*e = keep;
+
+	if (!skip)
+	{
+	    if (ga_grow(&ga, 1) == FAIL)
+		break;
+	    ((char_u **)ga.ga_data)[ga.ga_len] = vim_strnsave(s, (int)(e - s));
+	    ++ga.ga_len;
+	}
+
+	if (*e != NUL)
+	    ++e;
+    }
+    vim_free(retstr);
+    *file = ga.ga_data;
+    *num_file = ga.ga_len;
+    return OK;
+}
+
+/*
+ * Expand names with a list returned by a function defined by the user.
+ */
+    static int
+ExpandUserList(
+    expand_T	*xp,
+    int		*num_file,
+    char_u	***file)
+{
+    list_T      *retlist;
+    listitem_T	*li;
+    garray_T	ga;
+
+    retlist = call_user_expand_func(call_func_retlist, xp, num_file, file);
+    if (retlist == NULL)
+	return FAIL;
+
+    ga_init2(&ga, (int)sizeof(char *), 3);
+    /* Loop over the items in the list. */
+    for (li = retlist->lv_first; li != NULL; li = li->li_next)
+    {
+	if (li->li_tv.v_type != VAR_STRING || li->li_tv.vval.v_string == NULL)
+	    continue;  /* Skip non-string items and empty strings */
+
+	if (ga_grow(&ga, 1) == FAIL)
+	    break;
+
+	((char_u **)ga.ga_data)[ga.ga_len] =
+					 vim_strsave(li->li_tv.vval.v_string);
+	++ga.ga_len;
+    }
+    list_unref(retlist);
+
+    *file = ga.ga_data;
+    *num_file = ga.ga_len;
+    return OK;
+}
+#endif
+
+/*
+ * Expand color scheme, compiler or filetype names.
+ * Search from 'runtimepath':
+ *   'runtimepath'/{dirnames}/{pat}.vim
+ * When "flags" has DIP_START: search also from 'start' of 'packpath':
+ *   'packpath'/pack/ * /start/ * /{dirnames}/{pat}.vim
+ * When "flags" has DIP_OPT: search also from 'opt' of 'packpath':
+ *   'packpath'/pack/ * /opt/ * /{dirnames}/{pat}.vim
+ * "dirnames" is an array with one or more directory names.
+ */
+    static int
+ExpandRTDir(
+    char_u	*pat,
+    int		flags,
+    int		*num_file,
+    char_u	***file,
+    char	*dirnames[])
+{
+    char_u	*s;
+    char_u	*e;
+    char_u	*match;
+    garray_T	ga;
+    int		i;
+    int		pat_len;
+
+    *num_file = 0;
+    *file = NULL;
+    pat_len = (int)STRLEN(pat);
+    ga_init2(&ga, (int)sizeof(char *), 10);
+
+    for (i = 0; dirnames[i] != NULL; ++i)
+    {
+	s = alloc((unsigned)(STRLEN(dirnames[i]) + pat_len + 7));
+	if (s == NULL)
+	{
+	    ga_clear_strings(&ga);
+	    return FAIL;
+	}
+	sprintf((char *)s, "%s/%s*.vim", dirnames[i], pat);
+	globpath(p_rtp, s, &ga, 0);
+	vim_free(s);
+    }
+
+    if (flags & DIP_START) {
+	for (i = 0; dirnames[i] != NULL; ++i)
+	{
+	    s = alloc((unsigned)(STRLEN(dirnames[i]) + pat_len + 22));
+	    if (s == NULL)
+	    {
+		ga_clear_strings(&ga);
+		return FAIL;
+	    }
+	    sprintf((char *)s, "pack/*/start/*/%s/%s*.vim", dirnames[i], pat);
+	    globpath(p_pp, s, &ga, 0);
+	    vim_free(s);
+	}
+    }
+
+    if (flags & DIP_OPT) {
+	for (i = 0; dirnames[i] != NULL; ++i)
+	{
+	    s = alloc((unsigned)(STRLEN(dirnames[i]) + pat_len + 20));
+	    if (s == NULL)
+	    {
+		ga_clear_strings(&ga);
+		return FAIL;
+	    }
+	    sprintf((char *)s, "pack/*/opt/*/%s/%s*.vim", dirnames[i], pat);
+	    globpath(p_pp, s, &ga, 0);
+	    vim_free(s);
+	}
+    }
+
+    for (i = 0; i < ga.ga_len; ++i)
+    {
+	match = ((char_u **)ga.ga_data)[i];
+	s = match;
+	e = s + STRLEN(s);
+	if (e - 4 > s && STRNICMP(e - 4, ".vim", 4) == 0)
+	{
+	    e -= 4;
+	    for (s = e; s > match; MB_PTR_BACK(match, s))
+		if (s < match || vim_ispathsep(*s))
+		    break;
+	    ++s;
+	    *e = NUL;
+	    mch_memmove(match, s, e - s + 1);
+	}
+    }
+
+    if (ga.ga_len == 0)
+	return FAIL;
+
+    /* Sort and remove duplicates which can happen when specifying multiple
+     * directories in dirnames. */
+    remove_duplicates(&ga);
+
+    *file = ga.ga_data;
+    *num_file = ga.ga_len;
+    return OK;
+}
+
+/*
+ * Expand loadplugin names:
+ * 'packpath'/pack/ * /opt/{pat}
+ */
+    static int
+ExpandPackAddDir(
+    char_u	*pat,
+    int		*num_file,
+    char_u	***file)
+{
+    char_u	*s;
+    char_u	*e;
+    char_u	*match;
+    garray_T	ga;
+    int		i;
+    int		pat_len;
+
+    *num_file = 0;
+    *file = NULL;
+    pat_len = (int)STRLEN(pat);
+    ga_init2(&ga, (int)sizeof(char *), 10);
+
+    s = alloc((unsigned)(pat_len + 26));
+    if (s == NULL)
+    {
+	ga_clear_strings(&ga);
+	return FAIL;
+    }
+    sprintf((char *)s, "pack/*/opt/%s*", pat);
+    globpath(p_pp, s, &ga, 0);
+    vim_free(s);
+
+    for (i = 0; i < ga.ga_len; ++i)
+    {
+	match = ((char_u **)ga.ga_data)[i];
+	s = gettail(match);
+	e = s + STRLEN(s);
+	mch_memmove(match, s, e - s + 1);
+    }
+
+    if (ga.ga_len == 0)
+	return FAIL;
+
+    /* Sort and remove duplicates which can happen when specifying multiple
+     * directories in dirnames. */
+    remove_duplicates(&ga);
+
+    *file = ga.ga_data;
+    *num_file = ga.ga_len;
+    return OK;
+}
+
+#endif
+
+#if defined(FEAT_CMDL_COMPL) || defined(FEAT_EVAL) || defined(PROTO)
+/*
+ * Expand "file" for all comma-separated directories in "path".
+ * Adds the matches to "ga".  Caller must init "ga".
+ */
+    void
+globpath(
+    char_u	*path,
+    char_u	*file,
+    garray_T	*ga,
+    int		expand_options)
+{
+    expand_T	xpc;
+    char_u	*buf;
+    int		i;
+    int		num_p;
+    char_u	**p;
+
+    buf = alloc(MAXPATHL);
+    if (buf == NULL)
+	return;
+
+    ExpandInit(&xpc);
+    xpc.xp_context = EXPAND_FILES;
+
+    /* Loop over all entries in {path}. */
+    while (*path != NUL)
+    {
+	/* Copy one item of the path to buf[] and concatenate the file name. */
+	copy_option_part(&path, buf, MAXPATHL, ",");
+	if (STRLEN(buf) + STRLEN(file) + 2 < MAXPATHL)
+	{
+# if defined(MSWIN)
+	    /* Using the platform's path separator (\) makes vim incorrectly
+	     * treat it as an escape character, use '/' instead. */
+	    if (*buf != NUL && !after_pathsep(buf, buf + STRLEN(buf)))
+		STRCAT(buf, "/");
+# else
+	    add_pathsep(buf);
+# endif
+	    STRCAT(buf, file);
+	    if (ExpandFromContext(&xpc, buf, &num_p, &p,
+			     WILD_SILENT|expand_options) != FAIL && num_p > 0)
+	    {
+		ExpandEscape(&xpc, buf, num_p, p, WILD_SILENT|expand_options);
+
+		if (ga_grow(ga, num_p) == OK)
+		{
+		    for (i = 0; i < num_p; ++i)
+		    {
+			((char_u **)ga->ga_data)[ga->ga_len] =
+					vim_strnsave(p[i], (int)STRLEN(p[i]));
+			++ga->ga_len;
+		    }
+		}
+
+		FreeWild(num_p, p);
+	    }
+	}
+    }
+
+    vim_free(buf);
+}
+
+#endif
+
+#if defined(FEAT_CMDHIST) || defined(PROTO)
+
+/*********************************
+ *  Command line history stuff	 *
+ *********************************/
+
+/*
+ * Translate a history character to the associated type number.
+ */
+    static int
+hist_char2type(int c)
+{
+    if (c == ':')
+	return HIST_CMD;
+    if (c == '=')
+	return HIST_EXPR;
+    if (c == '@')
+	return HIST_INPUT;
+    if (c == '>')
+	return HIST_DEBUG;
+    return HIST_SEARCH;	    /* must be '?' or '/' */
+}
+
+/*
+ * Table of history names.
+ * These names are used in :history and various hist...() functions.
+ * It is sufficient to give the significant prefix of a history name.
+ */
+
+static char *(history_names[]) =
+{
+    "cmd",
+    "search",
+    "expr",
+    "input",
+    "debug",
+    NULL
+};
+
+#if defined(FEAT_CMDL_COMPL) || defined(PROTO)
+/*
+ * Function given to ExpandGeneric() to obtain the possible first
+ * arguments of the ":history command.
+ */
+    static char_u *
+get_history_arg(expand_T *xp UNUSED, int idx)
+{
+    static char_u compl[2] = { NUL, NUL };
+    char *short_names = ":=@>?/";
+    int short_names_count = (int)STRLEN(short_names);
+    int history_name_count = sizeof(history_names) / sizeof(char *) - 1;
+
+    if (idx < short_names_count)
+    {
+	compl[0] = (char_u)short_names[idx];
+	return compl;
+    }
+    if (idx < short_names_count + history_name_count)
+	return (char_u *)history_names[idx - short_names_count];
+    if (idx == short_names_count + history_name_count)
+	return (char_u *)"all";
+    return NULL;
+}
+#endif
+
+/*
+ * init_history() - Initialize the command line history.
+ * Also used to re-allocate the history when the size changes.
+ */
+    void
+init_history(void)
+{
+    int		newlen;	    /* new length of history table */
+    histentry_T	*temp;
+    int		i;
+    int		j;
+    int		type;
+
+    /*
+     * If size of history table changed, reallocate it
+     */
+    newlen = (int)p_hi;
+    if (newlen != hislen)			/* history length changed */
+    {
+	for (type = 0; type < HIST_COUNT; ++type)   /* adjust the tables */
+	{
+	    if (newlen)
+	    {
+		temp = (histentry_T *)lalloc(
+				(long_u)(newlen * sizeof(histentry_T)), TRUE);
+		if (temp == NULL)   /* out of memory! */
+		{
+		    if (type == 0)  /* first one: just keep the old length */
+		    {
+			newlen = hislen;
+			break;
+		    }
+		    /* Already changed one table, now we can only have zero
+		     * length for all tables. */
+		    newlen = 0;
+		    type = -1;
+		    continue;
+		}
+	    }
+	    else
+		temp = NULL;
+	    if (newlen == 0 || temp != NULL)
+	    {
+		if (hisidx[type] < 0)		/* there are no entries yet */
+		{
+		    for (i = 0; i < newlen; ++i)
+			clear_hist_entry(&temp[i]);
+		}
+		else if (newlen > hislen)	/* array becomes bigger */
+		{
+		    for (i = 0; i <= hisidx[type]; ++i)
+			temp[i] = history[type][i];
+		    j = i;
+		    for ( ; i <= newlen - (hislen - hisidx[type]); ++i)
+			clear_hist_entry(&temp[i]);
+		    for ( ; j < hislen; ++i, ++j)
+			temp[i] = history[type][j];
+		}
+		else				/* array becomes smaller or 0 */
+		{
+		    j = hisidx[type];
+		    for (i = newlen - 1; ; --i)
+		    {
+			if (i >= 0)		/* copy newest entries */
+			    temp[i] = history[type][j];
+			else			/* remove older entries */
+			    vim_free(history[type][j].hisstr);
+			if (--j < 0)
+			    j = hislen - 1;
+			if (j == hisidx[type])
+			    break;
+		    }
+		    hisidx[type] = newlen - 1;
+		}
+		vim_free(history[type]);
+		history[type] = temp;
+	    }
+	}
+	hislen = newlen;
+    }
+}
+
+    static void
+clear_hist_entry(histentry_T *hisptr)
+{
+    hisptr->hisnum = 0;
+    hisptr->viminfo = FALSE;
+    hisptr->hisstr = NULL;
+    hisptr->time_set = 0;
+}
+
+/*
+ * Check if command line 'str' is already in history.
+ * If 'move_to_front' is TRUE, matching entry is moved to end of history.
+ */
+    static int
+in_history(
+    int	    type,
+    char_u  *str,
+    int	    move_to_front,	/* Move the entry to the front if it exists */
+    int	    sep,
+    int	    writing)		/* ignore entries read from viminfo */
+{
+    int	    i;
+    int	    last_i = -1;
+    char_u  *p;
+
+    if (hisidx[type] < 0)
+	return FALSE;
+    i = hisidx[type];
+    do
+    {
+	if (history[type][i].hisstr == NULL)
+	    return FALSE;
+
+	/* For search history, check that the separator character matches as
+	 * well. */
+	p = history[type][i].hisstr;
+	if (STRCMP(str, p) == 0
+		&& !(writing && history[type][i].viminfo)
+		&& (type != HIST_SEARCH || sep == p[STRLEN(p) + 1]))
+	{
+	    if (!move_to_front)
+		return TRUE;
+	    last_i = i;
+	    break;
+	}
+	if (--i < 0)
+	    i = hislen - 1;
+    } while (i != hisidx[type]);
+
+    if (last_i >= 0)
+    {
+	str = history[type][i].hisstr;
+	while (i != hisidx[type])
+	{
+	    if (++i >= hislen)
+		i = 0;
+	    history[type][last_i] = history[type][i];
+	    last_i = i;
+	}
+	history[type][i].hisnum = ++hisnum[type];
+	history[type][i].viminfo = FALSE;
+	history[type][i].hisstr = str;
+	history[type][i].time_set = vim_time();
+	return TRUE;
+    }
+    return FALSE;
+}
+
+/*
+ * Convert history name (from table above) to its HIST_ equivalent.
+ * When "name" is empty, return "cmd" history.
+ * Returns -1 for unknown history name.
+ */
+    int
+get_histtype(char_u *name)
+{
+    int		i;
+    int		len = (int)STRLEN(name);
+
+    /* No argument: use current history. */
+    if (len == 0)
+	return hist_char2type(ccline.cmdfirstc);
+
+    for (i = 0; history_names[i] != NULL; ++i)
+	if (STRNICMP(name, history_names[i], len) == 0)
+	    return i;
+
+    if (vim_strchr((char_u *)":=@>?/", name[0]) != NULL && name[1] == NUL)
+	return hist_char2type(name[0]);
+
+    return -1;
+}
+
+static int	last_maptick = -1;	/* last seen maptick */
+
+/*
+ * Add the given string to the given history.  If the string is already in the
+ * history then it is moved to the front.  "histype" may be one of he HIST_
+ * values.
+ */
+    void
+add_to_history(
+    int		histype,
+    char_u	*new_entry,
+    int		in_map,		/* consider maptick when inside a mapping */
+    int		sep)		/* separator character used (search hist) */
+{
+    histentry_T	*hisptr;
+    int		len;
+
+    if (hislen == 0)		/* no history */
+	return;
+
+    if (cmdmod.keeppatterns && histype == HIST_SEARCH)
+	return;
+
+    /*
+     * Searches inside the same mapping overwrite each other, so that only
+     * the last line is kept.  Be careful not to remove a line that was moved
+     * down, only lines that were added.
+     */
+    if (histype == HIST_SEARCH && in_map)
+    {
+	if (maptick == last_maptick && hisidx[HIST_SEARCH] >= 0)
+	{
+	    /* Current line is from the same mapping, remove it */
+	    hisptr = &history[HIST_SEARCH][hisidx[HIST_SEARCH]];
+	    vim_free(hisptr->hisstr);
+	    clear_hist_entry(hisptr);
+	    --hisnum[histype];
+	    if (--hisidx[HIST_SEARCH] < 0)
+		hisidx[HIST_SEARCH] = hislen - 1;
+	}
+	last_maptick = -1;
+    }
+    if (!in_history(histype, new_entry, TRUE, sep, FALSE))
+    {
+	if (++hisidx[histype] == hislen)
+	    hisidx[histype] = 0;
+	hisptr = &history[histype][hisidx[histype]];
+	vim_free(hisptr->hisstr);
+
+	/* Store the separator after the NUL of the string. */
+	len = (int)STRLEN(new_entry);
+	hisptr->hisstr = vim_strnsave(new_entry, len + 2);
+	if (hisptr->hisstr != NULL)
+	    hisptr->hisstr[len + 1] = sep;
+
+	hisptr->hisnum = ++hisnum[histype];
+	hisptr->viminfo = FALSE;
+	hisptr->time_set = vim_time();
+	if (histype == HIST_SEARCH && in_map)
+	    last_maptick = maptick;
+    }
+}
+
+#if defined(FEAT_EVAL) || defined(PROTO)
+
+/*
+ * Get identifier of newest history entry.
+ * "histype" may be one of the HIST_ values.
+ */
+    int
+get_history_idx(int histype)
+{
+    if (hislen == 0 || histype < 0 || histype >= HIST_COUNT
+		    || hisidx[histype] < 0)
+	return -1;
+
+    return history[histype][hisidx[histype]].hisnum;
+}
+
+/*
+ * Calculate history index from a number:
+ *   num > 0: seen as identifying number of a history entry
+ *   num < 0: relative position in history wrt newest entry
+ * "histype" may be one of the HIST_ values.
+ */
+    static int
+calc_hist_idx(int histype, int num)
+{
+    int		i;
+    histentry_T	*hist;
+    int		wrapped = FALSE;
+
+    if (hislen == 0 || histype < 0 || histype >= HIST_COUNT
+		    || (i = hisidx[histype]) < 0 || num == 0)
+	return -1;
+
+    hist = history[histype];
+    if (num > 0)
+    {
+	while (hist[i].hisnum > num)
+	    if (--i < 0)
+	    {
+		if (wrapped)
+		    break;
+		i += hislen;
+		wrapped = TRUE;
+	    }
+	if (hist[i].hisnum == num && hist[i].hisstr != NULL)
+	    return i;
+    }
+    else if (-num <= hislen)
+    {
+	i += num + 1;
+	if (i < 0)
+	    i += hislen;
+	if (hist[i].hisstr != NULL)
+	    return i;
+    }
+    return -1;
+}
+
+/*
+ * Get a history entry by its index.
+ * "histype" may be one of the HIST_ values.
+ */
+    char_u *
+get_history_entry(int histype, int idx)
+{
+    idx = calc_hist_idx(histype, idx);
+    if (idx >= 0)
+	return history[histype][idx].hisstr;
+    else
+	return (char_u *)"";
+}
+
+/*
+ * Clear all entries of a history.
+ * "histype" may be one of the HIST_ values.
+ */
+    int
+clr_history(int histype)
+{
+    int		i;
+    histentry_T	*hisptr;
+
+    if (hislen != 0 && histype >= 0 && histype < HIST_COUNT)
+    {
+	hisptr = history[histype];
+	for (i = hislen; i--;)
+	{
+	    vim_free(hisptr->hisstr);
+	    clear_hist_entry(hisptr);
+	    hisptr++;
+	}
+	hisidx[histype] = -1;	/* mark history as cleared */
+	hisnum[histype] = 0;	/* reset identifier counter */
+	return OK;
+    }
+    return FAIL;
+}
+
+/*
+ * Remove all entries matching {str} from a history.
+ * "histype" may be one of the HIST_ values.
+ */
+    int
+del_history_entry(int histype, char_u *str)
+{
+    regmatch_T	regmatch;
+    histentry_T	*hisptr;
+    int		idx;
+    int		i;
+    int		last;
+    int		found = FALSE;
+
+    regmatch.regprog = NULL;
+    regmatch.rm_ic = FALSE;	/* always match case */
+    if (hislen != 0
+	    && histype >= 0
+	    && histype < HIST_COUNT
+	    && *str != NUL
+	    && (idx = hisidx[histype]) >= 0
+	    && (regmatch.regprog = vim_regcomp(str, RE_MAGIC + RE_STRING))
+								      != NULL)
+    {
+	i = last = idx;
+	do
+	{
+	    hisptr = &history[histype][i];
+	    if (hisptr->hisstr == NULL)
+		break;
+	    if (vim_regexec(&regmatch, hisptr->hisstr, (colnr_T)0))
+	    {
+		found = TRUE;
+		vim_free(hisptr->hisstr);
+		clear_hist_entry(hisptr);
+	    }
+	    else
+	    {
+		if (i != last)
+		{
+		    history[histype][last] = *hisptr;
+		    clear_hist_entry(hisptr);
+		}
+		if (--last < 0)
+		    last += hislen;
+	    }
+	    if (--i < 0)
+		i += hislen;
+	} while (i != idx);
+	if (history[histype][idx].hisstr == NULL)
+	    hisidx[histype] = -1;
+    }
+    vim_regfree(regmatch.regprog);
+    return found;
+}
+
+/*
+ * Remove an indexed entry from a history.
+ * "histype" may be one of the HIST_ values.
+ */
+    int
+del_history_idx(int histype, int idx)
+{
+    int	    i, j;
+
+    i = calc_hist_idx(histype, idx);
+    if (i < 0)
+	return FALSE;
+    idx = hisidx[histype];
+    vim_free(history[histype][i].hisstr);
+
+    /* When deleting the last added search string in a mapping, reset
+     * last_maptick, so that the last added search string isn't deleted again.
+     */
+    if (histype == HIST_SEARCH && maptick == last_maptick && i == idx)
+	last_maptick = -1;
+
+    while (i != idx)
+    {
+	j = (i + 1) % hislen;
+	history[histype][i] = history[histype][j];
+	i = j;
+    }
+    clear_hist_entry(&history[histype][i]);
+    if (--i < 0)
+	i += hislen;
+    hisidx[histype] = i;
+    return TRUE;
+}
+
+#endif /* FEAT_EVAL */
+
+#if defined(FEAT_CRYPT) || defined(PROTO)
+/*
+ * Very specific function to remove the value in ":set key=val" from the
+ * history.
+ */
+    void
+remove_key_from_history(void)
+{
+    char_u	*p;
+    int		i;
+
+    i = hisidx[HIST_CMD];
+    if (i < 0)
+	return;
+    p = history[HIST_CMD][i].hisstr;
+    if (p != NULL)
+	for ( ; *p; ++p)
+	    if (STRNCMP(p, "key", 3) == 0 && !isalpha(p[3]))
+	    {
+		p = vim_strchr(p + 3, '=');
+		if (p == NULL)
+		    break;
+		++p;
+		for (i = 0; p[i] && !VIM_ISWHITE(p[i]); ++i)
+		    if (p[i] == '\\' && p[i + 1])
+			++i;
+		STRMOVE(p, p + i);
+		--p;
+	    }
+}
+#endif
+
+#endif /* FEAT_CMDHIST */
+
+#if defined(FEAT_EVAL) || defined(FEAT_CMDWIN) || defined(PROTO)
+/*
+ * Get pointer to the command line info to use. save_ccline() may clear
+ * ccline and put the previous value in prev_ccline.
+ */
+    static struct cmdline_info *
+get_ccline_ptr(void)
+{
+    if ((State & CMDLINE) == 0)
+	return NULL;
+    if (ccline.cmdbuff != NULL)
+	return &ccline;
+    if (prev_ccline_used && prev_ccline.cmdbuff != NULL)
+	return &prev_ccline;
+    return NULL;
+}
+#endif
+
+#if defined(FEAT_EVAL) || defined(PROTO)
+/*
+ * Get the current command line in allocated memory.
+ * Only works when the command line is being edited.
+ * Returns NULL when something is wrong.
+ */
+    char_u *
+get_cmdline_str(void)
+{
+    struct cmdline_info *p;
+
+    if (cmdline_star > 0)
+	return NULL;
+    p = get_ccline_ptr();
+    if (p == NULL)
+	return NULL;
+    return vim_strnsave(p->cmdbuff, p->cmdlen);
+}
+
+/*
+ * Get the current command line position, counted in bytes.
+ * Zero is the first position.
+ * Only works when the command line is being edited.
+ * Returns -1 when something is wrong.
+ */
+    int
+get_cmdline_pos(void)
+{
+    struct cmdline_info *p = get_ccline_ptr();
+
+    if (p == NULL)
+	return -1;
+    return p->cmdpos;
+}
+
+/*
+ * Set the command line byte position to "pos".  Zero is the first position.
+ * Only works when the command line is being edited.
+ * Returns 1 when failed, 0 when OK.
+ */
+    int
+set_cmdline_pos(
+    int		pos)
+{
+    struct cmdline_info *p = get_ccline_ptr();
+
+    if (p == NULL)
+	return 1;
+
+    /* The position is not set directly but after CTRL-\ e or CTRL-R = has
+     * changed the command line. */
+    if (pos < 0)
+	new_cmdpos = 0;
+    else
+	new_cmdpos = pos;
+    return 0;
+}
+#endif
+
+#if defined(FEAT_EVAL) || defined(FEAT_CMDWIN) || defined(PROTO)
+/*
+ * Get the current command-line type.
+ * Returns ':' or '/' or '?' or '@' or '>' or '-'
+ * Only works when the command line is being edited.
+ * Returns NUL when something is wrong.
+ */
+    int
+get_cmdline_type(void)
+{
+    struct cmdline_info *p = get_ccline_ptr();
+
+    if (p == NULL)
+	return NUL;
+    if (p->cmdfirstc == NUL)
+	return
+# ifdef FEAT_EVAL
+	    (p->input_fn) ? '@' :
+# endif
+	    '-';
+    return p->cmdfirstc;
+}
+#endif
+
+#if defined(FEAT_QUICKFIX) || defined(FEAT_CMDHIST) || defined(PROTO)
+/*
+ * Get indices "num1,num2" that specify a range within a list (not a range of
+ * text lines in a buffer!) from a string.  Used for ":history" and ":clist".
+ * Returns OK if parsed successfully, otherwise FAIL.
+ */
+    int
+get_list_range(char_u **str, int *num1, int *num2)
+{
+    int		len;
+    int		first = FALSE;
+    varnumber_T	num;
+
+    *str = skipwhite(*str);
+    if (**str == '-' || vim_isdigit(**str))  /* parse "from" part of range */
+    {
+	vim_str2nr(*str, NULL, &len, 0, &num, NULL, 0);
+	*str += len;
+	*num1 = (int)num;
+	first = TRUE;
+    }
+    *str = skipwhite(*str);
+    if (**str == ',')			/* parse "to" part of range */
+    {
+	*str = skipwhite(*str + 1);
+	vim_str2nr(*str, NULL, &len, 0, &num, NULL, 0);
+	if (len > 0)
+	{
+	    *num2 = (int)num;
+	    *str = skipwhite(*str + len);
+	}
+	else if (!first)		/* no number given at all */
+	    return FAIL;
+    }
+    else if (first)			/* only one number given */
+	*num2 = *num1;
+    return OK;
+}
+#endif
+
+#if defined(FEAT_CMDHIST) || defined(PROTO)
+/*
+ * :history command - print a history
+ */
+    void
+ex_history(exarg_T *eap)
+{
+    histentry_T	*hist;
+    int		histype1 = HIST_CMD;
+    int		histype2 = HIST_CMD;
+    int		hisidx1 = 1;
+    int		hisidx2 = -1;
+    int		idx;
+    int		i, j, k;
+    char_u	*end;
+    char_u	*arg = eap->arg;
+
+    if (hislen == 0)
+    {
+	msg(_("'history' option is zero"));
+	return;
+    }
+
+    if (!(VIM_ISDIGIT(*arg) || *arg == '-' || *arg == ','))
+    {
+	end = arg;
+	while (ASCII_ISALPHA(*end)
+		|| vim_strchr((char_u *)":=@>/?", *end) != NULL)
+	    end++;
+	i = *end;
+	*end = NUL;
+	histype1 = get_histtype(arg);
+	if (histype1 == -1)
+	{
+	    if (STRNICMP(arg, "all", STRLEN(arg)) == 0)
+	    {
+		histype1 = 0;
+		histype2 = HIST_COUNT-1;
+	    }
+	    else
+	    {
+		*end = i;
+		emsg(_(e_trailing));
+		return;
+	    }
+	}
+	else
+	    histype2 = histype1;
+	*end = i;
+    }
+    else
+	end = arg;
+    if (!get_list_range(&end, &hisidx1, &hisidx2) || *end != NUL)
+    {
+	emsg(_(e_trailing));
+	return;
+    }
+
+    for (; !got_int && histype1 <= histype2; ++histype1)
+    {
+	STRCPY(IObuff, "\n      #  ");
+	STRCAT(STRCAT(IObuff, history_names[histype1]), " history");
+	msg_puts_title((char *)IObuff);
+	idx = hisidx[histype1];
+	hist = history[histype1];
+	j = hisidx1;
+	k = hisidx2;
+	if (j < 0)
+	    j = (-j > hislen) ? 0 : hist[(hislen+j+idx+1) % hislen].hisnum;
+	if (k < 0)
+	    k = (-k > hislen) ? 0 : hist[(hislen+k+idx+1) % hislen].hisnum;
+	if (idx >= 0 && j <= k)
+	    for (i = idx + 1; !got_int; ++i)
+	    {
+		if (i == hislen)
+		    i = 0;
+		if (hist[i].hisstr != NULL
+			&& hist[i].hisnum >= j && hist[i].hisnum <= k)
+		{
+		    msg_putchar('\n');
+		    sprintf((char *)IObuff, "%c%6d  ", i == idx ? '>' : ' ',
+							      hist[i].hisnum);
+		    if (vim_strsize(hist[i].hisstr) > (int)Columns - 10)
+			trunc_string(hist[i].hisstr, IObuff + STRLEN(IObuff),
+			     (int)Columns - 10, IOSIZE - (int)STRLEN(IObuff));
+		    else
+			STRCAT(IObuff, hist[i].hisstr);
+		    msg_outtrans(IObuff);
+		    out_flush();
+		}
+		if (i == idx)
+		    break;
+	    }
+    }
+}
+#endif
+
+#if (defined(FEAT_VIMINFO) && defined(FEAT_CMDHIST)) || defined(PROTO)
+/*
+ * Buffers for history read from a viminfo file.  Only valid while reading.
+ */
+static histentry_T *viminfo_history[HIST_COUNT] =
+					       {NULL, NULL, NULL, NULL, NULL};
+static int	viminfo_hisidx[HIST_COUNT] = {0, 0, 0, 0, 0};
+static int	viminfo_hislen[HIST_COUNT] = {0, 0, 0, 0, 0};
+static int	viminfo_add_at_front = FALSE;
+
+/*
+ * Translate a history type number to the associated character.
+ */
+    static int
+hist_type2char(
+    int	    type,
+    int	    use_question)	    /* use '?' instead of '/' */
+{
+    if (type == HIST_CMD)
+	return ':';
+    if (type == HIST_SEARCH)
+    {
+	if (use_question)
+	    return '?';
+	else
+	    return '/';
+    }
+    if (type == HIST_EXPR)
+	return '=';
+    return '@';
+}
+
+/*
+ * Prepare for reading the history from the viminfo file.
+ * This allocates history arrays to store the read history lines.
+ */
+    void
+prepare_viminfo_history(int asklen, int writing)
+{
+    int	    i;
+    int	    num;
+    int	    type;
+    int	    len;
+
+    init_history();
+    viminfo_add_at_front = (asklen != 0 && !writing);
+    if (asklen > hislen)
+	asklen = hislen;
+
+    for (type = 0; type < HIST_COUNT; ++type)
+    {
+	/* Count the number of empty spaces in the history list.  Entries read
+	 * from viminfo previously are also considered empty.  If there are
+	 * more spaces available than we request, then fill them up. */
+	for (i = 0, num = 0; i < hislen; i++)
+	    if (history[type][i].hisstr == NULL || history[type][i].viminfo)
+		num++;
+	len = asklen;
+	if (num > len)
+	    len = num;
+	if (len <= 0)
+	    viminfo_history[type] = NULL;
+	else
+	    viminfo_history[type] = (histentry_T *)lalloc(
+				  (long_u)(len * sizeof(histentry_T)), FALSE);
+	if (viminfo_history[type] == NULL)
+	    len = 0;
+	viminfo_hislen[type] = len;
+	viminfo_hisidx[type] = 0;
+    }
+}
+
+/*
+ * Accept a line from the viminfo, store it in the history array when it's
+ * new.
+ */
+    int
+read_viminfo_history(vir_T *virp, int writing)
+{
+    int		type;
+    long_u	len;
+    char_u	*val;
+    char_u	*p;
+
+    type = hist_char2type(virp->vir_line[0]);
+    if (viminfo_hisidx[type] < viminfo_hislen[type])
+    {
+	val = viminfo_readstring(virp, 1, TRUE);
+	if (val != NULL && *val != NUL)
+	{
+	    int sep = (*val == ' ' ? NUL : *val);
+
+	    if (!in_history(type, val + (type == HIST_SEARCH),
+					  viminfo_add_at_front, sep, writing))
+	    {
+		/* Need to re-allocate to append the separator byte. */
+		len = STRLEN(val);
+		p = lalloc(len + 2, TRUE);
+		if (p != NULL)
+		{
+		    if (type == HIST_SEARCH)
+		    {
+			/* Search entry: Move the separator from the first
+			 * column to after the NUL. */
+			mch_memmove(p, val + 1, (size_t)len);
+			p[len] = sep;
+		    }
+		    else
+		    {
+			/* Not a search entry: No separator in the viminfo
+			 * file, add a NUL separator. */
+			mch_memmove(p, val, (size_t)len + 1);
+			p[len + 1] = NUL;
+		    }
+		    viminfo_history[type][viminfo_hisidx[type]].hisstr = p;
+		    viminfo_history[type][viminfo_hisidx[type]].time_set = 0;
+		    viminfo_history[type][viminfo_hisidx[type]].viminfo = TRUE;
+		    viminfo_history[type][viminfo_hisidx[type]].hisnum = 0;
+		    viminfo_hisidx[type]++;
+		}
+	    }
+	}
+	vim_free(val);
+    }
+    return viminfo_readline(virp);
+}
+
+/*
+ * Accept a new style history line from the viminfo, store it in the history
+ * array when it's new.
+ */
+    void
+handle_viminfo_history(
+	garray_T    *values,
+	int	    writing)
+{
+    int		type;
+    long_u	len;
+    char_u	*val;
+    char_u	*p;
+    bval_T	*vp = (bval_T *)values->ga_data;
+
+    /* Check the format:
+     * |{bartype},{histtype},{timestamp},{separator},"text" */
+    if (values->ga_len < 4
+	    || vp[0].bv_type != BVAL_NR
+	    || vp[1].bv_type != BVAL_NR
+	    || (vp[2].bv_type != BVAL_NR && vp[2].bv_type != BVAL_EMPTY)
+	    || vp[3].bv_type != BVAL_STRING)
+	return;
+
+    type = vp[0].bv_nr;
+    if (type >= HIST_COUNT)
+	return;
+    if (viminfo_hisidx[type] < viminfo_hislen[type])
+    {
+	val = vp[3].bv_string;
+	if (val != NULL && *val != NUL)
+	{
+	    int sep = type == HIST_SEARCH && vp[2].bv_type == BVAL_NR
+						      ? vp[2].bv_nr : NUL;
+	    int idx;
+	    int overwrite = FALSE;
+
+	    if (!in_history(type, val, viminfo_add_at_front, sep, writing))
+	    {
+		/* If lines were written by an older Vim we need to avoid
+		 * getting duplicates. See if the entry already exists. */
+		for (idx = 0; idx < viminfo_hisidx[type]; ++idx)
+		{
+		    p = viminfo_history[type][idx].hisstr;
+		    if (STRCMP(val, p) == 0
+			  && (type != HIST_SEARCH || sep == p[STRLEN(p) + 1]))
+		    {
+			overwrite = TRUE;
+			break;
+		    }
+		}
+
+		if (!overwrite)
+		{
+		    /* Need to re-allocate to append the separator byte. */
+		    len = vp[3].bv_len;
+		    p = lalloc(len + 2, TRUE);
+		}
+		else
+		    len = 0; /* for picky compilers */
+		if (p != NULL)
+		{
+		    viminfo_history[type][idx].time_set = vp[1].bv_nr;
+		    if (!overwrite)
+		    {
+			mch_memmove(p, val, (size_t)len + 1);
+			/* Put the separator after the NUL. */
+			p[len + 1] = sep;
+			viminfo_history[type][idx].hisstr = p;
+			viminfo_history[type][idx].hisnum = 0;
+			viminfo_history[type][idx].viminfo = TRUE;
+			viminfo_hisidx[type]++;
+		    }
+		}
+	    }
+	}
+    }
+}
+
+/*
+ * Concatenate history lines from viminfo after the lines typed in this Vim.
+ */
+    static void
+concat_history(int type)
+{
+    int idx;
+    int i;
+
+    idx = hisidx[type] + viminfo_hisidx[type];
+    if (idx >= hislen)
+	idx -= hislen;
+    else if (idx < 0)
+	idx = hislen - 1;
+    if (viminfo_add_at_front)
+	hisidx[type] = idx;
+    else
+    {
+	if (hisidx[type] == -1)
+	    hisidx[type] = hislen - 1;
+	do
+	{
+	    if (history[type][idx].hisstr != NULL
+					    || history[type][idx].viminfo)
+		break;
+	    if (++idx == hislen)
+		idx = 0;
+	} while (idx != hisidx[type]);
+	if (idx != hisidx[type] && --idx < 0)
+	    idx = hislen - 1;
+    }
+    for (i = 0; i < viminfo_hisidx[type]; i++)
+    {
+	vim_free(history[type][idx].hisstr);
+	history[type][idx].hisstr = viminfo_history[type][i].hisstr;
+	history[type][idx].viminfo = TRUE;
+	history[type][idx].time_set = viminfo_history[type][i].time_set;
+	if (--idx < 0)
+	    idx = hislen - 1;
+    }
+    idx += 1;
+    idx %= hislen;
+    for (i = 0; i < viminfo_hisidx[type]; i++)
+    {
+	history[type][idx++].hisnum = ++hisnum[type];
+	idx %= hislen;
+    }
+}
+
+#if defined(FEAT_CMDL_COMPL) || defined(PROTO)
+    static int
+#ifdef __BORLANDC__
+_RTLENTRYF
+#endif
+sort_hist(const void *s1, const void *s2)
+{
+    histentry_T *p1 = *(histentry_T **)s1;
+    histentry_T *p2 = *(histentry_T **)s2;
+
+    if (p1->time_set < p2->time_set) return -1;
+    if (p1->time_set > p2->time_set) return 1;
+    return 0;
+}
+#endif
+
+/*
+ * Merge history lines from viminfo and lines typed in this Vim based on the
+ * timestamp;
+ */
+    static void
+merge_history(int type)
+{
+    int		max_len;
+    histentry_T **tot_hist;
+    histentry_T *new_hist;
+    int		i;
+    int		len;
+
+    /* Make one long list with all entries. */
+    max_len = hislen + viminfo_hisidx[type];
+    tot_hist = (histentry_T **)alloc(max_len * (int)sizeof(histentry_T *));
+    new_hist = (histentry_T *)alloc(hislen * (int)sizeof(histentry_T));
+    if (tot_hist == NULL || new_hist == NULL)
+    {
+	vim_free(tot_hist);
+	vim_free(new_hist);
+	return;
+    }
+    for (i = 0; i < viminfo_hisidx[type]; i++)
+	tot_hist[i] = &viminfo_history[type][i];
+    len = i;
+    for (i = 0; i < hislen; i++)
+	if (history[type][i].hisstr != NULL)
+	    tot_hist[len++] = &history[type][i];
+
+    /* Sort the list on timestamp. */
+    qsort((void *)tot_hist, (size_t)len, sizeof(histentry_T *), sort_hist);
+
+    /* Keep the newest ones. */
+    for (i = 0; i < hislen; i++)
+    {
+	if (i < len)
+	{
+	    new_hist[i] = *tot_hist[i];
+	    tot_hist[i]->hisstr = NULL;
+	    if (new_hist[i].hisnum == 0)
+		new_hist[i].hisnum = ++hisnum[type];
+	}
+	else
+	    clear_hist_entry(&new_hist[i]);
+    }
+    hisidx[type] = (i < len ? i : len) - 1;
+
+    /* Free what is not kept. */
+    for (i = 0; i < viminfo_hisidx[type]; i++)
+	vim_free(viminfo_history[type][i].hisstr);
+    for (i = 0; i < hislen; i++)
+	vim_free(history[type][i].hisstr);
+    vim_free(history[type]);
+    history[type] = new_hist;
+    vim_free(tot_hist);
+}
+
+/*
+ * Finish reading history lines from viminfo.  Not used when writing viminfo.
+ */
+    void
+finish_viminfo_history(vir_T *virp)
+{
+    int	type;
+    int merge = virp->vir_version >= VIMINFO_VERSION_WITH_HISTORY;
+
+    for (type = 0; type < HIST_COUNT; ++type)
+    {
+	if (history[type] == NULL)
+	    continue;
+
+	if (merge)
+	    merge_history(type);
+	else
+	    concat_history(type);
+
+	VIM_CLEAR(viminfo_history[type]);
+	viminfo_hisidx[type] = 0;
+    }
+}
+
+/*
+ * Write history to viminfo file in "fp".
+ * When "merge" is TRUE merge history lines with a previously read viminfo
+ * file, data is in viminfo_history[].
+ * When "merge" is FALSE just write all history lines.  Used for ":wviminfo!".
+ */
+    void
+write_viminfo_history(FILE *fp, int merge)
+{
+    int	    i;
+    int	    type;
+    int	    num_saved;
+    int     round;
+
+    init_history();
+    if (hislen == 0)
+	return;
+    for (type = 0; type < HIST_COUNT; ++type)
+    {
+	num_saved = get_viminfo_parameter(hist_type2char(type, FALSE));
+	if (num_saved == 0)
+	    continue;
+	if (num_saved < 0)  /* Use default */
+	    num_saved = hislen;
+	fprintf(fp, _("\n# %s History (newest to oldest):\n"),
+			    type == HIST_CMD ? _("Command Line") :
+			    type == HIST_SEARCH ? _("Search String") :
+			    type == HIST_EXPR ? _("Expression") :
+			    type == HIST_INPUT ? _("Input Line") :
+					_("Debug Line"));
+	if (num_saved > hislen)
+	    num_saved = hislen;
+
+	/*
+	 * Merge typed and viminfo history:
+	 * round 1: history of typed commands.
+	 * round 2: history from recently read viminfo.
+	 */
+	for (round = 1; round <= 2; ++round)
+	{
+	    if (round == 1)
+		/* start at newest entry, somewhere in the list */
+		i = hisidx[type];
+	    else if (viminfo_hisidx[type] > 0)
+		/* start at newest entry, first in the list */
+		i = 0;
+	    else
+		/* empty list */
+		i = -1;
+	    if (i >= 0)
+		while (num_saved > 0
+			&& !(round == 2 && i >= viminfo_hisidx[type]))
+		{
+		    char_u  *p;
+		    time_t  timestamp;
+		    int	    c = NUL;
+
+		    if (round == 1)
+		    {
+			p = history[type][i].hisstr;
+			timestamp = history[type][i].time_set;
+		    }
+		    else
+		    {
+			p = viminfo_history[type] == NULL ? NULL
+					    : viminfo_history[type][i].hisstr;
+			timestamp = viminfo_history[type] == NULL ? 0
+					  : viminfo_history[type][i].time_set;
+		    }
+
+		    if (p != NULL && (round == 2
+				       || !merge
+				       || !history[type][i].viminfo))
+		    {
+			--num_saved;
+			fputc(hist_type2char(type, TRUE), fp);
+			/* For the search history: put the separator in the
+			 * second column; use a space if there isn't one. */
+			if (type == HIST_SEARCH)
+			{
+			    c = p[STRLEN(p) + 1];
+			    putc(c == NUL ? ' ' : c, fp);
+			}
+			viminfo_writestring(fp, p);
+
+			{
+			    char    cbuf[NUMBUFLEN];
+
+			    /* New style history with a bar line. Format:
+			     * |{bartype},{histtype},{timestamp},{separator},"text" */
+			    if (c == NUL)
+				cbuf[0] = NUL;
+			    else
+				sprintf(cbuf, "%d", c);
+			    fprintf(fp, "|%d,%d,%ld,%s,", BARTYPE_HISTORY,
+						 type, (long)timestamp, cbuf);
+			    barline_writestring(fp, p, LSIZE - 20);
+			    putc('\n', fp);
+			}
+		    }
+		    if (round == 1)
+		    {
+			/* Decrement index, loop around and stop when back at
+			 * the start. */
+			if (--i < 0)
+			    i = hislen - 1;
+			if (i == hisidx[type])
+			    break;
+		    }
+		    else
+		    {
+			/* Increment index. Stop at the end in the while. */
+			++i;
+		    }
+		}
+	}
+	for (i = 0; i < viminfo_hisidx[type]; ++i)
+	    if (viminfo_history[type] != NULL)
+		vim_free(viminfo_history[type][i].hisstr);
+	VIM_CLEAR(viminfo_history[type]);
+	viminfo_hisidx[type] = 0;
+    }
+}
+#endif /* FEAT_VIMINFO */
+
+#if defined(FEAT_FKMAP) || defined(PROTO)
+/*
+ * Write a character at the current cursor+offset position.
+ * It is directly written into the command buffer block.
+ */
+    void
+cmd_pchar(int c, int offset)
+{
+    if (ccline.cmdpos + offset >= ccline.cmdlen || ccline.cmdpos + offset < 0)
+    {
+	emsg(_("E198: cmd_pchar beyond the command length"));
+	return;
+    }
+    ccline.cmdbuff[ccline.cmdpos + offset] = (char_u)c;
+    ccline.cmdbuff[ccline.cmdlen] = NUL;
+}
+
+    int
+cmd_gchar(int offset)
+{
+    if (ccline.cmdpos + offset >= ccline.cmdlen || ccline.cmdpos + offset < 0)
+    {
+	// emsg(_("cmd_gchar beyond the command length"));
+	return NUL;
+    }
+    return (int)ccline.cmdbuff[ccline.cmdpos + offset];
+}
+#endif
+
+#if defined(FEAT_CMDWIN) || defined(PROTO)
+/*
+ * Open a window on the current command line and history.  Allow editing in
+ * the window.  Returns when the window is closed.
+ * Returns:
+ *	CR	 if the command is to be executed
+ *	Ctrl_C	 if it is to be abandoned
+ *	K_IGNORE if editing continues
+ */
+    static int
+open_cmdwin(void)
+{
+    bufref_T		old_curbuf;
+    win_T		*old_curwin = curwin;
+    bufref_T		bufref;
+    win_T		*wp;
+    int			i;
+    linenr_T		lnum;
+    int			histtype;
+    garray_T		winsizes;
+    int			save_restart_edit = restart_edit;
+    int			save_State = State;
+    int			save_exmode = exmode_active;
+#ifdef FEAT_RIGHTLEFT
+    int			save_cmdmsg_rl = cmdmsg_rl;
+#endif
+#ifdef FEAT_FOLDING
+    int			save_KeyTyped;
+#endif
+
+    /* Can't do this recursively.  Can't do it when typing a password. */
+    if (cmdwin_type != 0
+# if defined(FEAT_CRYPT) || defined(FEAT_EVAL)
+	    || cmdline_star > 0
+# endif
+	    )
+    {
+	beep_flush();
+	return K_IGNORE;
+    }
+    set_bufref(&old_curbuf, curbuf);
+
+    /* Save current window sizes. */
+    win_size_save(&winsizes);
+
+    /* Don't execute autocommands while creating the window. */
+    block_autocmds();
+
+#if defined(FEAT_INS_EXPAND)
+    // When using completion in Insert mode with <C-R>=<C-F> one can open the
+    // command line window, but we don't want the popup menu then.
+    pum_undisplay();
+#endif
+
+    /* don't use a new tab page */
+    cmdmod.tab = 0;
+    cmdmod.noswapfile = 1;
+
+    /* Create a window for the command-line buffer. */
+    if (win_split((int)p_cwh, WSP_BOT) == FAIL)
+    {
+	beep_flush();
+	unblock_autocmds();
+	return K_IGNORE;
+    }
+    cmdwin_type = get_cmdline_type();
+
+    /* Create the command-line buffer empty. */
+    (void)do_ecmd(0, NULL, NULL, NULL, ECMD_ONE, ECMD_HIDE, NULL);
+    (void)setfname(curbuf, (char_u *)"[Command Line]", NULL, TRUE);
+    set_option_value((char_u *)"bt", 0L, (char_u *)"nofile", OPT_LOCAL);
+    curbuf->b_p_ma = TRUE;
+#ifdef FEAT_FOLDING
+    curwin->w_p_fen = FALSE;
+#endif
+# ifdef FEAT_RIGHTLEFT
+    curwin->w_p_rl = cmdmsg_rl;
+    cmdmsg_rl = FALSE;
+# endif
+    RESET_BINDING(curwin);
+
+    /* Do execute autocommands for setting the filetype (load syntax). */
+    unblock_autocmds();
+    /* But don't allow switching to another buffer. */
+    ++curbuf_lock;
+
+    /* Showing the prompt may have set need_wait_return, reset it. */
+    need_wait_return = FALSE;
+
+    histtype = hist_char2type(cmdwin_type);
+    if (histtype == HIST_CMD || histtype == HIST_DEBUG)
+    {
+	if (p_wc == TAB)
+	{
+	    add_map((char_u *)"<buffer> <Tab> <C-X><C-V>", INSERT);
+	    add_map((char_u *)"<buffer> <Tab> a<C-X><C-V>", NORMAL);
+	}
+	set_option_value((char_u *)"ft", 0L, (char_u *)"vim", OPT_LOCAL);
+    }
+    --curbuf_lock;
+
+    /* Reset 'textwidth' after setting 'filetype' (the Vim filetype plugin
+     * sets 'textwidth' to 78). */
+    curbuf->b_p_tw = 0;
+
+    /* Fill the buffer with the history. */
+    init_history();
+    if (hislen > 0)
+    {
+	i = hisidx[histtype];
+	if (i >= 0)
+	{
+	    lnum = 0;
+	    do
+	    {
+		if (++i == hislen)
+		    i = 0;
+		if (history[histtype][i].hisstr != NULL)
+		    ml_append(lnum++, history[histtype][i].hisstr,
+							   (colnr_T)0, FALSE);
+	    }
+	    while (i != hisidx[histtype]);
+	}
+    }
+
+    /* Replace the empty last line with the current command-line and put the
+     * cursor there. */
+    ml_replace(curbuf->b_ml.ml_line_count, ccline.cmdbuff, TRUE);
+    curwin->w_cursor.lnum = curbuf->b_ml.ml_line_count;
+    curwin->w_cursor.col = ccline.cmdpos;
+    changed_line_abv_curs();
+    invalidate_botline();
+    redraw_later(SOME_VALID);
+
+    /* No Ex mode here! */
+    exmode_active = 0;
+
+    State = NORMAL;
+# ifdef FEAT_MOUSE
+    setmouse();
+# endif
+
+    /* Trigger CmdwinEnter autocommands. */
+    trigger_cmd_autocmd(cmdwin_type, EVENT_CMDWINENTER);
+    if (restart_edit != 0)	/* autocmd with ":startinsert" */
+	stuffcharReadbuff(K_NOP);
+
+    i = RedrawingDisabled;
+    RedrawingDisabled = 0;
+
+    /*
+     * Call the main loop until <CR> or CTRL-C is typed.
+     */
+    cmdwin_result = 0;
+    main_loop(TRUE, FALSE);
+
+    RedrawingDisabled = i;
+
+# ifdef FEAT_FOLDING
+    save_KeyTyped = KeyTyped;
+# endif
+
+    /* Trigger CmdwinLeave autocommands. */
+    trigger_cmd_autocmd(cmdwin_type, EVENT_CMDWINLEAVE);
+
+# ifdef FEAT_FOLDING
+    /* Restore KeyTyped in case it is modified by autocommands */
+    KeyTyped = save_KeyTyped;
+# endif
+
+    cmdwin_type = 0;
+    exmode_active = save_exmode;
+
+    /* Safety check: The old window or buffer was deleted: It's a bug when
+     * this happens! */
+    if (!win_valid(old_curwin) || !bufref_valid(&old_curbuf))
+    {
+	cmdwin_result = Ctrl_C;
+	emsg(_("E199: Active window or buffer deleted"));
+    }
+    else
+    {
+# if defined(FEAT_EVAL)
+	/* autocmds may abort script processing */
+	if (aborting() && cmdwin_result != K_IGNORE)
+	    cmdwin_result = Ctrl_C;
+# endif
+	/* Set the new command line from the cmdline buffer. */
+	vim_free(ccline.cmdbuff);
+	if (cmdwin_result == K_XF1 || cmdwin_result == K_XF2) /* :qa[!] typed */
+	{
+	    char *p = (cmdwin_result == K_XF2) ? "qa" : "qa!";
+
+	    if (histtype == HIST_CMD)
+	    {
+		/* Execute the command directly. */
+		ccline.cmdbuff = vim_strsave((char_u *)p);
+		cmdwin_result = CAR;
+	    }
+	    else
+	    {
+		/* First need to cancel what we were doing. */
+		ccline.cmdbuff = NULL;
+		stuffcharReadbuff(':');
+		stuffReadbuff((char_u *)p);
+		stuffcharReadbuff(CAR);
+	    }
+	}
+	else if (cmdwin_result == K_XF2)	/* :qa typed */
+	{
+	    ccline.cmdbuff = vim_strsave((char_u *)"qa");
+	    cmdwin_result = CAR;
+	}
+	else if (cmdwin_result == Ctrl_C)
+	{
+	    /* :q or :close, don't execute any command
+	     * and don't modify the cmd window. */
+	    ccline.cmdbuff = NULL;
+	}
+	else
+	    ccline.cmdbuff = vim_strsave(ml_get_curline());
+	if (ccline.cmdbuff == NULL)
+	{
+	    ccline.cmdbuff = vim_strsave((char_u *)"");
+	    ccline.cmdlen = 0;
+	    ccline.cmdbufflen = 1;
+	    ccline.cmdpos = 0;
+	    cmdwin_result = Ctrl_C;
+	}
+	else
+	{
+	    ccline.cmdlen = (int)STRLEN(ccline.cmdbuff);
+	    ccline.cmdbufflen = ccline.cmdlen + 1;
+	    ccline.cmdpos = curwin->w_cursor.col;
+	    if (ccline.cmdpos > ccline.cmdlen)
+		ccline.cmdpos = ccline.cmdlen;
+	    if (cmdwin_result == K_IGNORE)
+	    {
+		set_cmdspos_cursor();
+		redrawcmd();
+	    }
+	}
+
+	/* Don't execute autocommands while deleting the window. */
+	block_autocmds();
+# ifdef FEAT_CONCEAL
+	/* Avoid command-line window first character being concealed. */
+	curwin->w_p_cole = 0;
+# endif
+	wp = curwin;
+	set_bufref(&bufref, curbuf);
+	win_goto(old_curwin);
+	win_close(wp, TRUE);
+
+	/* win_close() may have already wiped the buffer when 'bh' is
+	 * set to 'wipe' */
+	if (bufref_valid(&bufref))
+	    close_buffer(NULL, bufref.br_buf, DOBUF_WIPE, FALSE);
+
+	/* Restore window sizes. */
+	win_size_restore(&winsizes);
+
+	unblock_autocmds();
+    }
+
+    ga_clear(&winsizes);
+    restart_edit = save_restart_edit;
+# ifdef FEAT_RIGHTLEFT
+    cmdmsg_rl = save_cmdmsg_rl;
+# endif
+
+    State = save_State;
+# ifdef FEAT_MOUSE
+    setmouse();
+# endif
+
+    return cmdwin_result;
+}
+#endif /* FEAT_CMDWIN */
+
+/*
+ * Used for commands that either take a simple command string argument, or:
+ *	cmd << endmarker
+ *	  {script}
+ *	endmarker
+ * Returns a pointer to allocated memory with {script} or NULL.
+ */
+    char_u *
+script_get(exarg_T *eap, char_u *cmd)
+{
+    char_u	*theline;
+    char	*end_pattern = NULL;
+    char	dot[] = ".";
+    garray_T	ga;
+
+    if (cmd[0] != '<' || cmd[1] != '<' || eap->getline == NULL)
+	return NULL;
+
+    ga_init2(&ga, 1, 0x400);
+
+    if (cmd[2] != NUL)
+	end_pattern = (char *)skipwhite(cmd + 2);
+    else
+	end_pattern = dot;
+
+    for (;;)
+    {
+	theline = eap->getline(
+#ifdef FEAT_EVAL
+	    eap->cstack->cs_looplevel > 0 ? -1 :
+#endif
+	    NUL, eap->cookie, 0);
+
+	if (theline == NULL || STRCMP(end_pattern, theline) == 0)
+	{
+	    vim_free(theline);
+	    break;
+	}
+
+	ga_concat(&ga, theline);
+	ga_append(&ga, '\n');
+	vim_free(theline);
+    }
+    ga_append(&ga, NUL);
+
+    return (char_u *)ga.ga_data;
+}