Adding upstream version 2.9.0dev.6.upstream/2.9.0dev.6upstream

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

1 files changed, 6231 insertions, 0 deletions

diff --git a/src/LYStrings.c b/src/LYStrings.c
new file mode 100644
index 0000000..f4719f8
--- /dev/null
+++ b/src/LYStrings.c
@@ -0,0 +1,6231 @@
+/* $LynxId: LYStrings.c,v 1.277 2020/09/04 00:34:02 tom Exp $ */
+#include <HTUtils.h>
+#include <HTCJK.h>
+#include <UCAux.h>
+#include <LYGlobalDefs.h>
+#include <LYUtils.h>
+#include <LYStrings.h>
+#include <GridText.h>
+#include <LYKeymap.h>
+#include <LYClean.h>
+#include <LYMail.h>
+#include <LYNews.h>
+#include <LYOptions.h>
+#include <LYCharSets.h>
+#include <HTAlert.h>
+#include <HTString.h>
+#include <LYCharUtils.h>
+#include <HTList.h>
+#include <HTParse.h>
+#ifdef USE_MOUSE
+#include <LYMainLoop.h>
+#endif
+
+#ifdef DJGPP_KEYHANDLER
+#include <pc.h>
+#include <keys.h>
+#endif /* DJGPP_KEYHANDLER */
+
+#ifdef USE_COLOR_STYLE
+#include <LYHash.h>
+#include <AttrList.h>
+#endif
+
+#ifdef USE_SCROLLBAR
+#include <LYMainLoop.h>
+#endif
+
+#ifdef USE_CMD_LOGGING
+#include <LYReadCFG.h>
+#include <LYrcFile.h>
+#endif
+
+#include <LYShowInfo.h>
+#include <LYLeaks.h>
+
+#if defined(WIN_EX)
+#undef  BUTTON_CTRL
+#define BUTTON_CTRL	0	/* Quick hack */
+#endif
+
+#ifdef DEBUG_EDIT
+#define CTRACE_EDIT(p) CTRACE(p)
+#else
+#define CTRACE_EDIT(p)		/*nothing */
+#endif
+
+#ifdef SUPPORT_MULTIBYTE_EDIT
+#define IsWordChar(c) (isalnum(UCH(c)) || is8bits(c))
+#else
+#define IsWordChar(c) isalnum(UCH(c))
+#endif
+
+/*
+ * The edit_history lists allow the user to press tab when entering URL to get
+ * the closest match in the closet
+ */
+#define LYClosetSize 100
+
+static HTList *URL_edit_history;
+static HTList *MAIL_edit_history;
+
+/* If you want to add mouse support for some new platform, it's fairly
+ * simple to do.  Once you've determined the X and Y coordinates of
+ * the mouse event, loop through the elements in the links[] array and
+ * see if the coordinates fall within a highlighted link area.	If so,
+ * the code must set mouse_link to the index of the chosen link,
+ * and return a key value that corresponds to LYK_ACTIVATE.  The
+ * LYK_ACTIVATE code in LYMainLoop.c will then check mouse_link
+ * and activate that link.  If the mouse event didn't fall within a
+ * link, the code should just set mouse_link to -1 and return -1. --AMK
+ */
+
+/* The number of the link selected w/ the mouse (-1 if none) */
+static int mouse_link = -1;
+
+static int have_levent;
+
+#if defined(USE_MOUSE) && defined(NCURSES)
+static MEVENT levent;
+#endif
+
+/* Return the value of mouse_link */
+int peek_mouse_levent(void)
+{
+#if defined(USE_MOUSE) && defined(NCURSES)
+    if (have_levent > 0) {
+	ungetmouse(&levent);
+	have_levent--;
+	return 1;
+    }
+#endif
+    return 0;
+}
+
+/* Return the value of mouse_link, erasing it */
+int get_mouse_link(void)
+{
+    int t;
+
+    t = mouse_link;
+    mouse_link = -1;
+    if (t < 0)
+	t = -1;			/* Backward compatibility. */
+    return t;
+}
+
+/* Return the value of mouse_link */
+int peek_mouse_link(void)
+{
+    return mouse_link;
+}
+
+int fancy_mouse(WINDOW * win, int row,
+		int *position)
+{
+    int cmd = LYK_DO_NOTHING;
+
+#ifdef USE_MOUSE
+/*********************************************************************/
+
+#if defined(WIN_EX) && defined(PDCURSES)
+
+    request_mouse_pos();
+
+    if (BUTTON_STATUS(1)
+	&& (MOUSE_X_POS >= getbegx(win) &&
+	    MOUSE_X_POS < (getbegx(win) + getmaxx(win)))) {
+	int mypos = MOUSE_Y_POS - getbegy(win);
+	int delta = mypos - row;
+
+	if (mypos + 1 == getmaxy(win)) {
+	    /* At the decorative border: scroll forward */
+	    if (BUTTON_STATUS(1) & BUTTON1_TRIPLE_CLICKED)
+		cmd = LYK_END;
+	    else if (BUTTON_STATUS(1) & BUTTON1_DOUBLE_CLICKED)
+		cmd = LYK_NEXT_PAGE;
+	    else
+		cmd = LYK_NEXT_LINK;
+	} else if (mypos >= getmaxy(win)) {
+	    if (BUTTON_STATUS(1) & (BUTTON1_DOUBLE_CLICKED | BUTTON1_TRIPLE_CLICKED))
+		cmd = LYK_END;
+	    else
+		cmd = LYK_NEXT_PAGE;
+	} else if (mypos == 0) {
+	    /* At the decorative border: scroll back */
+	    if (BUTTON_STATUS(1) & BUTTON1_TRIPLE_CLICKED)
+		cmd = LYK_HOME;
+	    else if (BUTTON_STATUS(1) & BUTTON1_DOUBLE_CLICKED)
+		cmd = LYK_PREV_PAGE;
+	    else
+		cmd = LYK_PREV_LINK;
+	} else if (mypos < 0) {
+	    if (BUTTON_STATUS(1) & (BUTTON1_DOUBLE_CLICKED | BUTTON1_TRIPLE_CLICKED))
+		cmd = LYK_HOME;
+	    else
+		cmd = LYK_PREV_PAGE;
+#ifdef KNOW_HOW_TO_TOGGLE
+	} else if (BUTTON_STATUS(1) & (BUTTON_CTRL)) {
+	    cur_selection += delta;
+	    cmd = LYX_TOGGLE;
+#endif
+	} else if (BUTTON_STATUS(1) & (BUTTON_ALT | BUTTON_SHIFT | BUTTON_CTRL)) {
+	    /* Probably some unrelated activity, such as selecting some text.
+	     * Select, but do nothing else.
+	     */
+	    *position += delta;
+	    cmd = -1;
+	} else {
+	    /* No scrolling or overflow checks necessary. */
+	    *position += delta;
+	    cmd = LYK_ACTIVATE;
+	}
+    } else if (BUTTON_STATUS(1) & (BUTTON3_CLICKED | BUTTON3_DOUBLE_CLICKED | BUTTON3_TRIPLE_CLICKED)) {
+	cmd = LYK_QUIT;
+    }
+#else
+#if defined(NCURSES)
+#define ButtonModifiers (BUTTON_ALT | BUTTON_SHIFT | BUTTON_CTRL)
+    MEVENT event;
+
+    getmouse(&event);
+    if ((event.bstate & (BUTTON1_CLICKED |
+			 BUTTON1_DOUBLE_CLICKED |
+			 BUTTON1_TRIPLE_CLICKED))) {
+	int mypos = event.y - getbegy(win);
+	int delta = mypos - row;
+
+	if ((event.x < getbegx(win) ||
+	     event.x >= (getbegx(win) + getmaxx(win)))
+	    && !(event.bstate & ButtonModifiers))
+	    return LYK_QUIT;	/* User clicked outside, wants to quit? */
+	if (mypos + 1 == getmaxy(win)) {
+	    /* At the decorative border: scroll forward */
+	    if (event.bstate & BUTTON1_TRIPLE_CLICKED)
+		cmd = LYK_END;
+	    else if (event.bstate & BUTTON1_DOUBLE_CLICKED)
+		cmd = LYK_NEXT_PAGE;
+	    else
+		cmd = LYK_NEXT_LINK;
+	} else if (mypos >= getmaxy(win)) {
+	    if (event.bstate & (BUTTON1_DOUBLE_CLICKED |
+				BUTTON1_TRIPLE_CLICKED))
+		cmd = LYK_END;
+	    else
+		cmd = LYK_NEXT_PAGE;
+	} else if (mypos == 0) {
+	    /* At the decorative border: scroll back */
+	    if (event.bstate & BUTTON1_TRIPLE_CLICKED)
+		cmd = LYK_HOME;
+	    else if (event.bstate & BUTTON1_DOUBLE_CLICKED)
+		cmd = LYK_PREV_PAGE;
+	    else
+		cmd = LYK_PREV_LINK;
+	} else if (mypos < 0) {
+	    if (event.bstate & (BUTTON1_DOUBLE_CLICKED |
+				BUTTON1_TRIPLE_CLICKED))
+		cmd = LYK_HOME;
+	    else
+		cmd = LYK_PREV_PAGE;
+#ifdef KNOW_HOW_TO_TOGGLE
+	} else if (event.bstate & (BUTTON_CTRL)) {
+	    cur_selection += delta;
+	    cmd = LYX_TOGGLE;
+#endif
+	} else if (event.x <= getbegx(win) + 1 ||
+		   event.x >= getbegx(win) + getmaxx(win) - 2) {
+	    /* Click on left or right border for positioning without
+	     * immediate action: select, but do nothing else.
+	     * Actually, allow an error of one position inwards. - kw
+	     */
+	    *position += delta;
+	    cmd = -1;
+	} else if (event.bstate & ButtonModifiers) {
+	    /* Probably some unrelated activity, such as selecting some text.
+	     * Select, but do nothing else.
+	     */
+	    /* Possibly this is never returned by ncurses, so this case
+	     * may be useless depending on situation (kind of mouse support
+	     * and library versions). - kw
+	     */
+	    *position += delta;
+	    cmd = -1;
+	} else {
+	    /* No scrolling or overflow checks necessary. */
+	    *position += delta;
+	    cmd = LYK_ACTIVATE;
+	}
+    } else if (event.bstate & (BUTTON3_CLICKED | BUTTON3_DOUBLE_CLICKED | BUTTON3_TRIPLE_CLICKED)) {
+	cmd = LYK_QUIT;
+    }
+#endif /* NCURSES */
+#endif /* PDCURSES */
+
+/************************************************************************/
+#endif /* USE_MOUSE */
+    (void) win;
+    (void) row;
+    (void) position;
+
+    return cmd;
+}
+
+/*
+ * Manage the collection of edit-histories
+ */
+static HTList *whichRecall(RecallType recall)
+{
+    HTList **list;
+
+    switch (recall) {
+    case RECALL_CMD:
+	return LYcommandList();
+    case RECALL_MAIL:
+	list = &MAIL_edit_history;
+	break;
+    default:
+	list = &URL_edit_history;
+	break;
+    }
+    if (*list == 0)
+	*list = HTList_new();
+    return *list;
+}
+
+/*
+ * Remove the oldest item in the closet
+ */
+static void LYRemoveFromCloset(HTList *list)
+{
+    void *data = HTList_removeFirstObject(list);
+
+    if (data != 0)
+	FREE(data);
+}
+
+void LYCloseCloset(RecallType recall)
+{
+    HTList *list = whichRecall(recall);
+
+    while (!HTList_isEmpty(list)) {
+	LYRemoveFromCloset(list);
+    }
+    HTList_delete(list);	/* should already be empty */
+}
+
+/*
+ * Strategy:  We begin at the top and search downwards.  We return the first
+ * match, i.e., the newest since we search from the top.  This should be made
+ * more intelligent, but works for now.
+ */
+static char *LYFindInCloset(RecallType recall, char *base)
+{
+    HTList *list = whichRecall(recall);
+    char *data;
+    size_t len = strlen(base);
+
+    while (!HTList_isEmpty(list)) {
+	data = (char *) HTList_nextObject(list);
+	if (data != NULL && !StrNCmp(base, data, len))
+	    return (data);
+    }
+
+    return (0);
+}
+
+static void LYAddToCloset(RecallType recall, char *str)
+{
+    HTList *list = whichRecall(recall);
+    char *data = NULL;
+
+    StrAllocCopy(data, str);
+    HTList_addObject(list, data);
+    while (HTList_count(list) > LYClosetSize)
+	LYRemoveFromCloset(list);
+}
+
+#ifdef USE_MOUSE
+static int XYdist(int x1,
+		  int y1,
+		  int x2,
+		  int y2,
+		  int dx2)
+{
+    int xerr = 3 * (x2 - x1), yerr = 9 * (y2 - y1);
+
+    if (xerr < 0)
+	xerr = 3 * (x1 - x2 - dx2) + 1;		/* pos after string not really in it */
+    if (xerr < 0)
+	xerr = 0;
+    if (yerr < 0)
+	yerr = -yerr;
+    if (!yerr)			/* same line is good */
+	return (xerr > 0) ? (xerr * 2 - 1) : 0;
+    if (xerr < 9 && yerr)	/* x-dist of 3 cell better than y-dist of 1 cell */
+	yerr += (9 - xerr);
+    return 2 * xerr + yerr;	/* Subjective factor; ratio -> approx. 6 / 9 */
+/*
+old: (IZ 1999-07-30)
+ 3  2  2  2  1  1  1 XX XX XX XX XX  0  1  1  1  2  2  2  3  3
+ 4\ 3  3  3  2  2  2  2  2  2  2  2  2  2  2  2  3  3  3/ 4  4
+ 5  4  4  4\ 3  3  3  3  3  3  3  3  3  3  3  3/ 4  4  4  5  5
+ 6  5  5  5  4  4  4  4  4  4  4  4  4  4  4  4  5  5  5  6  5
+now: (kw 1999-10-23)
+41 35 29|23 17 11  5 XX XX XX XX XX  1  7 13 19 25|31 37 43 49
+   45 39 33\27 24 21 18 18 18 18 18 19 22 25 28/34 40 46 50
+      48 42 36 33 30\27 27 27 27 27 28/31 34 37 43 49
+         51 45 42 39 36 36 36 36 36 37 40 43 46 49
+               51 48 45 45 45 45 45 46 49 52
+*/
+}
+
+/* Given X and Y coordinates of a mouse event, set mouse_link to the
+ * index of the corresponding hyperlink, or set mouse_link to -1 if no
+ * link matches the event.  Returns -1 if no link matched the click,
+ * or a keycode that must be returned from LYgetch() to activate the
+ * link.
+ */
+
+static int set_clicked_link(int x,
+			    int y,
+			    int code,
+			    int clicks)
+{
+    int left = 6;
+    int right = LYcolLimit - 5;
+
+    /* yes, I am assuming that my screen will be a certain width. */
+    int i;
+    int c = -1;
+
+    if (y == (LYlines - 1) || y == 0) {		/* First or last row */
+	/* XXXX In fact # is not always at x==0?  KANJI_CODE_OVERRIDE? */
+	int toolbar = (y == 0 && HText_hasToolbar(HTMainText));
+
+	mouse_link = -2;
+	if (x == 0 && toolbar)	/* On '#' */
+	    c = LAC_TO_LKC0(LYK_TOOLBAR);
+#if defined(CAN_CUT_AND_PASTE) && defined(USE_COLOR_STYLE)
+	else if (y == 0 && x == LYcolLimit && s_hot_paste != NOSTYLE)
+	    c = LAC_TO_LKC0(LYK_PASTE_URL);
+#endif
+	else if (clicks > 1) {
+	    if (x < left + toolbar)
+		c = (code == FOR_PROMPT && y)
+		    ? HOME_KEY : LAC_TO_LKC0(LYK_MAIN_MENU);
+	    else if (x > right)
+		c = (code == FOR_PROMPT && y)
+		    ? END_KEY : LAC_TO_LKC0(LYK_VLINKS);
+	    else if (y)		/* Last row */
+		c = LAC_TO_LKC0(LYK_END);
+	    else		/* First row */
+		c = LAC_TO_LKC0(LYK_HOME);
+	} else {
+	    if (x < left + toolbar)
+		c = (code == FOR_PROMPT && y)
+		    ? LTARROW_KEY
+		    : (
+#ifdef USE_COLOR_STYLE
+			  (s_forw_backw != NOSTYLE && x - toolbar >= 3)
+			  ? LAC_TO_LKC0(LYK_NEXT_DOC)
+			  : LAC_TO_LKC0(LYK_PREV_DOC)
+#else
+			  LAC_TO_LKC0(LYK_NEXT_DOC)
+#endif
+		    );
+	    else if (x > right)
+		c = (code == FOR_PROMPT && y)
+		    ? RTARROW_KEY : LAC_TO_LKC0(LYK_HISTORY);
+	    else if (y)		/* Last row */
+		c = LAC_TO_LKC0(LYK_NEXT_PAGE);
+	    else		/* First row */
+		c = LAC_TO_LKC0(LYK_PREV_PAGE);
+	}
+#ifdef USE_SCROLLBAR
+    } else if (x == (LYcols - 1) && LYShowScrollbar && LYsb_begin >= 0) {
+	int h = display_lines - 2 * (LYsb_arrow != 0);
+
+	mouse_link = -2;
+	y -= 1 + (LYsb_arrow != 0);
+	if (y < 0)
+	    return LAC_TO_LKC0(LYK_UP_TWO);
+	if (y >= h)
+	    return LAC_TO_LKC0(LYK_DOWN_TWO);
+
+	if (clicks >= 2) {
+	    double frac = (1. * y) / (h - 1);
+	    int l = HText_getNumOfLines() + 1;	/* NOL() off by one? */
+
+	    l -= display_lines;
+	    if (l > 0)
+		LYSetNewline((int) (frac * l + 1 + 0.5));
+	    return LYReverseKeymap(LYK_DO_NOTHING);
+	}
+
+	if (y < LYsb_begin)
+	    return LAC_TO_LKC0(LYK_PREV_PAGE);
+	if (y >= LYsb_end)
+	    return LAC_TO_LKC0(LYK_NEXT_PAGE);
+	mouse_link = -1;	/* No action in edit fields */
+#endif
+    } else {
+	int mouse_err = 29, /* subjctv-dist better than this for approx stuff */ cur_err;
+
+	/* Loop over the links and see if we can get a match */
+	for (i = 0; i < nlinks; i++) {
+	    int len, lx = links[i].lx, is_text = 0;
+	    int count = 0;
+	    const char *text = LYGetHiliteStr(i, count);
+
+	    if (links[i].type == WWW_FORM_LINK_TYPE
+		&& F_TEXTLIKE(links[i].l_form->type))
+		is_text = 1;
+
+	    /* Check the first line of the link */
+	    if (text != NULL) {
+		if (is_text)
+		    len = links[i].l_form->size;
+		else
+		    len = (int) LYstrCells(text);
+		cur_err = XYdist(x, y, links[i].lx, links[i].ly, len);
+		/* Check the second line */
+		while (cur_err > 0
+		       && (text = LYGetHiliteStr(i, ++count)) != NULL) {
+		    /* Note that there is at most one hightext if is_text */
+		    int cur_err_2 = XYdist(x, y,
+					   LYGetHilitePos(i, count),
+					   links[i].ly + count,
+					   (int) LYstrCells(text));
+
+		    cur_err = HTMIN(cur_err, cur_err_2);
+		}
+		if (cur_err > 0 && is_text)
+		    cur_err--;	/* a bit of preference for text fields,
+				   enter field if hit exactly at end - kw */
+		if (cur_err == 0) {
+		    int cury, curx;
+
+		    LYGetYX(cury, curx);
+		    /* double-click, if we care:
+		       submit text submit fields. - kw */
+		    if (clicks > 1 && is_text &&
+			links[i].l_form->type == F_TEXT_SUBMIT_TYPE) {
+			if (code != FOR_INPUT
+			/* submit current input field directly */
+			    || !(cury == y &&
+				 (curx >= lx) &&
+				 ((curx - lx) <= len))) {
+			    c = LAC_TO_LKC0(LYK_MOUSE_SUBMIT);
+			    mouse_link = i;
+			} else {
+			    c = LAC_TO_LKC0(LYK_MOUSE_SUBMIT);
+			    mouse_link = -1;
+			}
+			mouse_err = 0;
+			break;
+		    }
+		    if (code != FOR_INPUT
+		    /* Do not pick up the current input field */
+			|| !((cury == y && (curx >= lx) && ((curx - lx) <= len)))) {
+			if (is_text) {
+			    have_levent = 1;
+#if defined(TEXTFIELDS_MAY_NEED_ACTIVATION) && defined(INACTIVE_INPUT_STYLE_VH)
+			    if (x == links[i].lx && y == links[i].ly)
+				textinput_redrawn = FALSE;
+#endif /* TEXTFIELDS_MAY_NEED_ACTIVATION && INACTIVE_INPUT_STYLE_VH */
+			}
+			mouse_link = i;
+		    } else
+			mouse_link = -1;
+		    mouse_err = 0;
+		    break;
+		} else if (cur_err < mouse_err) {
+		    mouse_err = cur_err;
+		    mouse_link = i;
+		}
+	    }
+	}
+	/*
+	 * If a link was hit, we must look for a key which will activate
+	 * LYK_ACTIVATE We expect to find LYK_ACTIVATE (it's usually mapped to
+	 * the Enter key).
+	 */
+	if (mouse_link >= 0) {
+	    if (mouse_err == 0) {
+		if (c == -1)
+		    c = LAC_TO_LKC0(LYK_ACTIVATE);
+	    } else if (mouse_err >= 0)
+		c = LAC_TO_LKC0(LYK_CHANGE_LINK);
+	} else {
+	    if (2 * y > LYlines) {	/* Bottom Half of the screen */
+		if (4 * y < 3 * LYlines) {
+		    c = LAC_TO_LKC0(LYK_DOWN_TWO);	/* Third quarter */
+		} else
+		    c = LAC_TO_LKC0(LYK_DOWN_HALF);	/* Fourth quarter */
+	    } else {		/* Upper Half of the screen */
+		if (4 * y < LYlines) {
+		    c = LAC_TO_LKC0(LYK_UP_HALF);	/* First quarter */
+		} else
+		    c = LAC_TO_LKC0(LYK_UP_TWO);	/* Second quarter */
+	    }
+	}
+    }
+    return c;
+}
+#endif /* USE_MOUSE */
+
+/*
+ * LYstrncpy() ensures that the copied strings end with a nul byte.
+ * The nul is written to the n+1 position of the target.
+ */
+char *LYstrncpy(char *target,
+		const char *source,
+		int n)
+{
+    char *val = target;
+    int len;
+
+    if (source == 0)
+	source = "";
+    len = (int) strlen(source);
+
+    if (n > 0) {
+	if (n > len)
+	    n = len;
+	(void) memcpy(target, source, (size_t) n);
+    } else {
+	n = 0;
+    }
+    target[n] = '\0';
+    return val;
+}
+
+#define IS_NEW_GLYPH(ch) (utf_flag && (UCH(ch)&0xc0) != 0x80)
+#define IS_UTF_EXTRA(ch) (utf_flag && (UCH(ch)&0xc0) == 0x80)
+
+/*
+ * LYmbcsstrncpy() terminates strings with a null byte.  It takes account of
+ * multibyte characters.  The source string is copied until either end of string
+ * or max number of either bytes or glyphs (mbcs sequences) (CJK or UTF8).  The
+ * utf_flag argument should be TRUE for UTF8.  - KW & FM
+ */
+char *LYmbcsstrncpy(char *target,
+		    const char *source,
+		    int n_bytes,
+		    int n_glyphs,
+		    int utf_flag)
+{
+    char *val = target;
+    int i_bytes = 0, i_glyphs = 0;
+
+    if (n_bytes < 0)
+	n_bytes = 0;
+    if (n_glyphs < 0)
+	n_glyphs = 0;
+
+    for (; *source != '\0' && i_bytes < n_bytes; i_bytes++) {
+	if (IS_NEW_GLYPH(*source)) {
+	    if (i_glyphs++ >= n_glyphs) {
+		*target = '\0';
+		return val;
+	    }
+	}
+	*(target++) = *(source++);
+    }
+    *target = '\0';
+
+    return val;
+}
+
+/*
+ * LYmbcs_skip_glyphs() skips a given number of character positions in a string
+ * and returns the resulting pointer.  It takes account of UTF-8 encoded
+ * characters.  - KW
+ */
+const char *LYmbcs_skip_glyphs(const char *data,
+			       int n_glyphs,
+			       int utf_flag)
+{
+    int i_glyphs = 0;
+
+    if (n_glyphs < 0)
+	n_glyphs = 0;
+
+    if (non_empty(data)) {
+	if (!utf_flag) {
+	    while (n_glyphs-- > 0) {
+		if (!*++data)
+		    break;
+	    }
+	} else {
+	    while (*data) {
+		if (IS_NEW_GLYPH(*data)) {
+		    if (i_glyphs++ >= n_glyphs) {
+			break;
+		    }
+		}
+		data++;
+	    }
+	}
+    }
+    return data;
+}
+
+/*
+ * LYmbcs_skip_cells() skips a given number of display positions in a string
+ * and returns the resulting pointer.  It takes account of UTF-8 encoded
+ * characters.  - TD
+ */
+const char *LYmbcs_skip_cells(const char *data,
+			      int n_cells,
+			      int utf_flag)
+{
+    const char *result;
+    int actual;
+    int target = n_cells;
+
+    do {
+	result = LYmbcs_skip_glyphs(data, target--, utf_flag);
+	actual = LYstrExtent2(data, (int) (result - data));
+    } while ((actual > 0) && (actual > n_cells));
+    return result;
+}
+
+/*
+ * LYmbcsstrlen() returns the printable length of a string that might contain
+ * IsSpecial or multibyte (CJK or UTF8) characters.  - FM
+ *
+ * Counts glyph cells if count_gcells is set.  (Full-width characters in CJK
+ * mode count as two.) Counts character glyphs if count_gcells is unset. 
+ * (Full- width characters in CJK mode count as one.) - kw
+ */
+int LYmbcsstrlen(const char *str,
+		 int utf_flag,
+		 int count_gcells)
+{
+    int i, j, len = 0;
+
+    if (non_empty(str)) {
+#ifdef WIDEC_CURSES
+	if (count_gcells) {
+	    len = LYstrCells(str);
+	} else
+#endif
+	{
+	    for (i = 0; str[i] != '\0'; i++) {
+		if (!IsSpecialAttrChar(str[i])) {
+		    len++;
+		    if (IS_NEW_GLYPH(str[i])) {
+			j = 0;
+			while (IsNormalChar(str[(i + 1)]) &&
+			       j < 5 &&
+			       IS_UTF_EXTRA(str[(i + 1)])) {
+			    i++;
+			    j++;
+			}
+		    } else if (!utf_flag && IS_CJK_TTY && !count_gcells &&
+			       is8bits(str[i]) &&
+			       IsNormalChar(str[(i + 1)])) {
+			i++;
+		    }
+		}
+	    }
+	}
+    }
+    return (len);
+}
+
+#undef GetChar
+
+#ifdef USE_SLANG
+#if defined(VMS)
+#define GetChar() ttgetc()
+#elif defined(__DJGPP__)
+#define GetChar() getxkey()	/* HTDos.c */
+#elif defined(__CYGWIN__)
+#define GetChar SLkp_getkey
+#else
+#define GetChar (int)SLang_getkey
+#endif
+#else /* curses */
+#if defined(DJGPP)
+#define GetChar() (djgpp_idle_loop(), wgetch(LYtopwindow()))
+#elif defined(NCURSES_VERSION) && defined(__BEOS__)
+#define GetChar() myGetCharNodelay()
+#elif defined(NCURSES)
+#define GetChar() wgetch(LYtopwindow())
+#endif
+#endif
+
+#ifdef USE_CURSES_NODELAY
+/* PDCurses - until version 2.7 in 2005 - defined ERR as 0, unlike other
+ * versions of curses.  Generally both EOF and ERR are defined as -1's. 
+ * However, there is a special case (see HTCheckForInterrupt()) to handle a
+ * case where no select() function is used in the win32 environment.
+ *
+ * HTCheckForInterrupt() uses nodelay() in this special case to check for
+ * pending input.  That normally returns ERR.  But LYgetch_for() checks the
+ * return value of this function for EOF (to handle some antique runtime
+ * libraries which did not set the state for feof/ferror).  Returning a zero
+ * (0) is safer since normally that is not mapped to any commands, and will be
+ * ignored by lynx.
+ */
+static int myGetCharNodelay(void)
+{
+    int c = wgetch(LYwin);
+
+    if (c == -1)
+	c = 0;
+
+    return c;
+}
+#else
+#define myGetCharNodelay() wgetch(LYwin)
+#endif
+
+#if !defined(GetChar) && defined(PDCURSES) && defined(PDC_BUILD) && PDC_BUILD >= 2401
+/* PDCurses sends back key-modifiers that we don't use, but would waste time
+ * upon, e.g., repainting the status line
+ */
+static int myGetChar(void)
+{
+    int c;
+    BOOL done = FALSE;
+
+    do {
+	switch (c = myGetCharNodelay()) {
+	case KEY_SHIFT_L:
+	case KEY_SHIFT_R:
+	case KEY_CONTROL_L:
+	case KEY_CONTROL_R:
+	case KEY_ALT_L:
+	case KEY_ALT_R:
+	case KEY_RESIZE:
+	    break;
+	default:
+	    done = TRUE;
+	    break;
+	}
+    } while (!done);
+
+    return c;
+}
+#define GetChar() myGetChar()
+#endif
+
+#if !defined(GetChar) && defined(VMS)
+#define GetChar() ttgetc()
+#endif
+
+#if !defined(GetChar)
+#ifdef HAVE_KEYPAD
+#define GetChar() getch()
+#else
+#ifndef USE_GETCHAR
+#define USE_GETCHAR
+#endif /* !USE_GETCHAR */
+#define GetChar() getchar()	/* used to be "getc(stdin)" and "getch()" */
+#endif /* HAVE_KEYPAD */
+#endif /* !defined(GetChar) */
+
+#if defined(USE_SLANG) && defined(USE_MOUSE)
+static int sl_parse_mouse_event(int *x, int *y, int *button)
+{
+    /* "ESC [ M" has already been processed.  There more characters are
+     * expected:  BUTTON X Y
+     */
+    *button = (int) SLang_getkey();
+    switch (*button) {
+    case 040:			/* left button */
+    case 041:			/* middle button */
+    case 042:			/* right button */
+	*button -= 040;
+	break;
+
+    default:			/* Hmmm.... */
+	SLang_flush_input();
+	return -1;
+    }
+
+    *x = (int) SLang_getkey();
+    if (*x == CH_ESC)		/* Undo 7-bit replace for large x - kw */
+	*x = (int) SLang_getkey() + 64 - 33;
+    else
+	*x -= 33;
+    *y = (int) SLang_getkey();
+    if (*y == CH_ESC)		/* Undo 7-bit replace for large y - kw */
+	*y = (int) SLang_getkey() + 64 - 33;
+    else
+	*y -= 33;
+    return 0;
+}
+
+static int sl_read_mouse_event(int code)
+{
+    int mouse_x, mouse_y, button;
+
+    mouse_link = -1;
+    if (-1 != sl_parse_mouse_event(&mouse_x, &mouse_y, &button)) {
+	if (button == 0)	/* left */
+	    return set_clicked_link(mouse_x, mouse_y, FOR_PANEL, 1);
+
+	if (button == 1)	/* middle */
+	    return LYReverseKeymap(LYK_VIEW_BOOKMARK);
+
+	if (button == 2)	/* right */
+	{
+	    /* Right button: go back to prev document.
+	     * The problem is that we need to determine
+	     * what to return to achieve this.
+	     */
+	    return LYReverseKeymap(LYK_PREV_DOC);
+	}
+    }
+    if (code == FOR_INPUT || code == FOR_PROMPT)
+	return DO_NOTHING;
+    else
+	return -1;
+}
+#endif /* USE_SLANG and USE_MOUSE */
+
+static BOOLEAN csi_is_csi = TRUE;
+void ena_csi(int flag)
+{
+    csi_is_csi = (BOOLEAN) flag;
+}
+
+#if defined(USE_KEYMAPS)
+
+#ifdef USE_SLANG
+#define define_key(string, code) \
+	SLkm_define_keysym ((SLFUTURE_CONST char*)(string), \
+			    (unsigned) code, \
+			    Keymap_List)
+#if SLANG_VERSION < 20000
+#define expand_substring(target, first, last, final) \
+ 	(SLexpand_escaped_string(target, \
+				 DeConst(first), \
+				 DeConst(last), 1)
+static int SLang_get_error(void)
+{
+    return SLang_Error;
+}
+#else
+int LY_Slang_UTF8_Mode = 0;
+
+#define expand_substring(target, first, last, final) \
+	(SLexpand_escaped_string(target, \
+				 DeConst(first), \
+				 DeConst(last), \
+				 LY_Slang_UTF8_Mode), 1)
+#endif
+
+static SLKeyMap_List_Type *Keymap_List;
+
+/* This value should be larger than anything in LYStrings.h */
+#define MOUSE_KEYSYM 0x0400
+#endif
+
+/*
+ * For ncurses, we use the predefined keysyms, since that lets us also reuse
+ * the CSI logic and other special cases for VMS, NCSA telnet, etc.
+ */
+#ifdef USE_SLANG
+# ifdef VMS
+#  define EXTERN_KEY(string,string1,lynx,curses) {string,lynx}
+# else
+#  define EXTERN_KEY(string,string1,lynx,curses) {string,lynx},{string1,lynx}
+# endif
+# define INTERN_KEY(string,lynx,curses)          {string,lynx,lynx}
+#else
+# define INTERN_KEY(string,lynx,curses)          {string,curses,lynx}
+# define EXTERN_KEY(string,string1,lynx,curses)  {string,curses,lynx}
+#endif
+
+typedef struct {
+    const char *string;
+    int value;
+    LYExtraKeys internal;
+} Keysym_String_List;
+/* *INDENT-OFF* */
+static Keysym_String_List Keysym_Strings [] =
+{
+    INTERN_KEY( "UPARROW",	UPARROW_KEY,	KEY_UP ),
+    INTERN_KEY( "DNARROW",	DNARROW_KEY,	KEY_DOWN ),
+    INTERN_KEY( "RTARROW",	RTARROW_KEY,	KEY_RIGHT ),
+    INTERN_KEY( "LTARROW",	LTARROW_KEY,	KEY_LEFT ),
+    INTERN_KEY( "PGDOWN",	PGDOWN_KEY,	KEY_NPAGE ),
+    INTERN_KEY( "PGUP",		PGUP_KEY,	KEY_PPAGE ),
+    INTERN_KEY( "HOME",		HOME_KEY,	KEY_HOME ),
+    INTERN_KEY( "END",		END_KEY,	KEY_END ),
+    INTERN_KEY( "F1",		F1_KEY,		KEY_F(1) ),
+    INTERN_KEY( "F2",		F2_KEY,		KEY_F(2) ),
+    INTERN_KEY( "F3",		F3_KEY,		KEY_F(3) ),
+    INTERN_KEY( "F4",		F4_KEY,		KEY_F(4) ),
+    INTERN_KEY( "F5",		F5_KEY,		KEY_F(5) ),
+    INTERN_KEY( "F6",		F6_KEY,		KEY_F(7) ),
+    INTERN_KEY( "F7",		F7_KEY,		KEY_F(7) ),
+    INTERN_KEY( "F8",		F8_KEY,		KEY_F(8) ),
+    INTERN_KEY( "F9",		F9_KEY,		KEY_F(9) ),
+    INTERN_KEY( "F10",		F10_KEY,	KEY_F(10) ),
+    INTERN_KEY( "F11",		F11_KEY,	KEY_F(11) ),
+    INTERN_KEY( "F12",		F12_KEY,	KEY_F(12) ),
+    INTERN_KEY( "DO_KEY",	DO_KEY,		KEY_F(16) ),
+    INTERN_KEY( "FIND_KEY",	FIND_KEY,	KEY_FIND ),
+    INTERN_KEY( "SELECT_KEY",	SELECT_KEY,	KEY_SELECT ),
+    INTERN_KEY( "INSERT_KEY",	INSERT_KEY,	KEY_IC ),
+    INTERN_KEY( "REMOVE_KEY",	REMOVE_KEY,	KEY_DC ),
+    INTERN_KEY( "DO_NOTHING",	DO_NOTHING,	DO_NOTHING|LKC_ISLKC ),
+    INTERN_KEY( "BACKTAB_KEY",	BACKTAB_KEY,	BACKTAB_KEY ),
+    INTERN_KEY( NULL,		UNKNOWN_KEY,	ERR )
+};
+/* *INDENT-ON* */
+
+#ifdef NCURSES_VERSION
+/*
+ * Ncurses stores the termcap/terminfo names in arrays sorted to match the
+ * array of strings in the TERMTYPE struct.
+ */
+static int lookup_tiname(char *name, NCURSES_CONST char *const *names)
+{
+    int code;
+
+    for (code = 0; names[code] != 0; code++)
+	if (!strcmp(names[code], name))
+	    return code;
+    return -1;
+}
+
+static const char *expand_tiname(const char *first, size_t len, char **result, char *final)
+{
+    char name[BUFSIZ];
+    int code;
+    TERMTYPE *tp = (TERMTYPE *) (cur_term);
+
+    LYStrNCpy(name, first, len);
+    **result = '\0';
+    if ((code = lookup_tiname(name, strnames)) >= 0
+	|| (code = lookup_tiname(name, strfnames)) >= 0) {
+	if (tp->Strings[code] != 0) {
+	    LYStrNCpy(*result, tp->Strings[code], (final - *result));
+	    (*result) += strlen(*result);
+	}
+    }
+    return first + len;
+}
+
+static const char *expand_tichar(const char *first, char **result, char *final)
+{
+    int ch;
+    int limit = 0;
+    int radix = 0;
+    int value = 0;
+    const char *name = 0;
+
+    switch (ch = *first++) {
+    case 'E':
+    case 'e':
+	value = 27;
+	break;
+    case 'a':
+	name = "bel";
+	break;
+    case 'b':
+	value = '\b';
+	break;
+    case 'f':
+	value = '\f';
+	break;
+    case 'n':
+	value = '\n';
+	break;
+    case 'r':
+	value = '\r';
+	break;
+    case 't':
+	value = '\t';
+	break;
+    case 'v':
+	value = '\v';
+	break;
+    case 'd':
+	radix = 10;
+	limit = 3;
+	break;
+    case 'x':
+	radix = 16;
+	limit = 2;
+	break;
+    default:
+	if (isdigit(ch)) {
+	    radix = 8;
+	    limit = 3;
+	    first--;
+	} else {
+	    value = *first;
+	}
+	break;
+    }
+
+    if (radix != 0) {
+	char *last = 0;
+	char tmp[80];
+
+	LYStrNCpy(tmp, first, limit);
+	value = (int) strtol(tmp, &last, radix);
+	if (last != 0 && last != tmp)
+	    first += (last - tmp);
+    }
+
+    if (name != 0) {
+	(void) expand_tiname(name, strlen(name), result, final);
+    } else {
+	**result = (char) value;
+	(*result) += 1;
+    }
+
+    return first;
+}
+
+static BOOLEAN expand_substring(char *target,
+				const char *first,
+				const char *last,
+				char *final)
+{
+    int ch;
+
+    while (first < last) {
+	switch (ch = *first++) {
+	case ESCAPE:
+	    first = expand_tichar(first, &target, final);
+	    break;
+	case '^':
+	    ch = *first++;
+	    if (ch == LPAREN) {
+		const char *s = StrChr(first, RPAREN);
+		char *was = target;
+
+		if (s == 0)
+		    s = first + strlen(first);
+		first = expand_tiname(first, (size_t) (s - first), &target, final);
+		if (target == was)
+		    return FALSE;
+		if (*first)
+		    first++;
+	    } else if (ch == '?') {	/* ASCII delete? */
+		*target++ = 127;
+	    } else if ((ch & 0x3f) < 0x20) {	/* ASCII control char? */
+		*target++ = (char) (ch & 0x1f);
+	    } else {
+		*target++ = '^';
+		first--;	/* not legal... */
+	    }
+	    break;
+	case 0:		/* convert nulls for terminfo */
+	    ch = 0200;
+	    /* FALLTHRU */
+	default:
+	    *target++ = (char) ch;
+	    break;
+	}
+    }
+    *target = '\0';
+    return TRUE;
+}
+#endif
+
+static void unescaped_char(const char *parse, int *keysym)
+{
+    size_t len = strlen(parse);
+    char buf[BUFSIZ];
+
+    if (len >= 3) {
+	(void) expand_substring(buf,
+				parse + 1,
+				parse + len - 1,
+				buf + sizeof(buf) - 1);
+	if (strlen(buf) == 1)
+	    *keysym = *buf;
+    }
+}
+
+static BOOLEAN unescape_string(char *source, char *target, char *final)
+{
+    BOOLEAN ok = FALSE;
+
+    if (*source == SQUOTE) {
+	int keysym = -1;
+
+	unescaped_char(source, &keysym);
+	if (keysym >= 0) {
+	    target[0] = (char) keysym;
+	    target[1] = '\0';
+	    ok = TRUE;
+	}
+    } else if (*source == DQUOTE) {
+	if (expand_substring(target, source + 1, source + strlen(source) - 1, final))
+	    ok = TRUE;
+	(void) final;
+    }
+    return ok;
+}
+
+static Keysym_String_List *lookupKeysymByName(const char *name)
+{
+    Keysym_String_List *k;
+    Keysym_String_List *result = 0;
+
+    k = Keysym_Strings;
+    while (k->string != NULL) {
+	if (0 == strcasecomp(k->string, name)) {
+	    result = k;
+	    break;
+	}
+	k++;
+    }
+    return result;
+}
+
+int map_string_to_keysym(const char *str, int *keysym, int internal)
+{
+    int modifier = 0;
+
+    *keysym = -1;
+
+    if (strncasecomp(str, "LAC:", 4) == 0) {
+	char *other = StrChr(str + 4, ':');
+
+	if (other) {
+	    int othersym = lecname_to_lec(other + 1);
+	    char buf[BUFSIZ];
+
+	    if (othersym >= 0 && other - str - 4 < BUFSIZ) {
+		LYStrNCpy(buf, str + 4, (other - str - 4));
+		*keysym = lacname_to_lac(buf);
+		if (*keysym >= 0) {
+		    *keysym = LACLEC_TO_LKC0(*keysym, othersym);
+		    return (*keysym);
+		}
+	    }
+	}
+	*keysym = lacname_to_lac(str + 4);
+	if (*keysym >= 0) {
+	    *keysym = LAC_TO_LKC0(*keysym);
+	    return (*keysym);
+	}
+    } else if (strncasecomp(str, "Meta-", 5) == 0) {
+	str += 5;
+	modifier = LKC_MOD2;
+	if (*str) {
+	    size_t len = strlen(str);
+
+	    if (len == 1) {
+		return (*keysym = (UCH(str[0])) | modifier);
+	    } else if (len == 2 && str[0] == '^' &&
+		       (isalpha(UCH(str[1])) ||
+			(TOASCII(str[1]) >= '@' && TOASCII(str[1]) <= '_'))) {
+		return (*keysym = FROMASCII(UCH(str[1] & 0x1f)) | modifier);
+	    } else if (len == 2 && str[0] == '^' &&
+		       str[1] == '?') {
+		return (*keysym = CH_DEL | modifier);
+	    }
+	    if (*str == '^' || *str == '\\') {
+		char buf[BUFSIZ];
+
+		(void) expand_substring(buf,
+					str,
+					str + HTMIN(len, 28),
+					buf + sizeof(buf) - 1);
+		if (strlen(buf) <= 1)
+		    return (*keysym = (UCH(buf[0])) | modifier);
+	    }
+	}
+    } else if (*str == SQUOTE) {
+	unescaped_char(str, keysym);
+    } else if (isdigit(UCH(*str))) {
+	char *tmp;
+	long value = strtol(str, &tmp, 0);
+
+	if (!isalnum(UCH(*tmp))) {
+	    *keysym = (int) value;
+#ifndef USE_SLANG
+	    if (*keysym > 255)
+		*keysym |= LKC_ISLKC;	/* caller should remove this flag - kw */
+#endif
+	}
+    } else {
+	Keysym_String_List *k = lookupKeysymByName(str);
+
+	if (k != 0) {
+	    *keysym = (internal
+		       ? k->internal
+		       : k->value);
+	}
+    }
+
+    if (*keysym >= 0)
+	*keysym |= modifier;
+    return (*keysym);
+}
+
+LYExtraKeys LYnameToExtraKeys(const char *name)
+{
+    Keysym_String_List *k = lookupKeysymByName(name);
+    LYExtraKeys result = UNKNOWN_KEY;
+
+    if (k != 0)
+	result = k->internal;
+    return result;
+}
+
+const char *LYextraKeysToName(LYExtraKeys code)
+{
+    Keysym_String_List *k;
+    const char *result = 0;
+
+    k = Keysym_Strings;
+    while (k->string != NULL) {
+	if (k->internal == code) {
+	    result = k->string;
+	    break;
+	}
+	k++;
+    }
+    return result;
+}
+
+/*
+ * Starting at a nonblank character, skip over a token, counting quoted and
+ * escaped characters.
+ */
+static char *skip_keysym(char *parse)
+{
+    int quoted = 0;
+    int escaped = 0;
+
+    while (*parse) {
+	if (escaped) {
+	    escaped = 0;
+	} else if (quoted) {
+	    if (*parse == ESCAPE) {
+		escaped = 1;
+	    } else if (*parse == quoted) {
+		quoted = 0;
+	    }
+	} else if (*parse == ESCAPE) {
+	    escaped = 1;
+	} else if (*parse == DQUOTE || *parse == SQUOTE) {
+	    quoted = *parse;
+	} else if (isspace(UCH(*parse))) {
+	    break;
+	}
+	parse++;
+    }
+    return (quoted || escaped) ? 0 : parse;
+}
+
+/*
+ * The first token is the string to define, the second is the name (of the
+ * keysym) to define it to.
+ */
+#define MY_TRACE(p) CTRACE2(TRACE_CFG, p)
+
+static int setkey_cmd(char *parse)
+{
+    char *s, *t;
+    int keysym;
+    char buf[BUFSIZ];
+
+    MY_TRACE((tfp, "KEYMAP(PA): in=%s", parse));	/* \n-terminated */
+    if ((s = skip_keysym(parse)) != 0) {
+	if (isspace(UCH(*s))) {
+	    *s++ = '\0';
+	    s = LYSkipBlanks(s);
+	    if ((t = skip_keysym(s)) == 0) {
+		MY_TRACE((tfp, "KEYMAP(SKIP) no key expansion found\n"));
+		return -1;
+	    }
+	    if (t != s)
+		*t = '\0';
+	    if (map_string_to_keysym(s, &keysym, FALSE) >= 0) {
+		if (!unescape_string(parse, buf, buf + sizeof(buf) - 1)) {
+		    MY_TRACE((tfp, "KEYMAP(SKIP) could unescape key\n"));
+		    return 0;	/* Trace the failure and continue. */
+		}
+		if (LYTraceLogFP == 0) {
+		    MY_TRACE((tfp, "KEYMAP(DEF) keysym=%#x\n", keysym));
+		} else {
+		    MY_TRACE((tfp, "KEYMAP(DEF) keysym=%#x, seq='%s'\n",
+			      keysym, buf));
+		}
+		return define_key(buf, keysym);
+	    } else {
+		MY_TRACE((tfp, "KEYMAP(SKIP) could not map to keysym\n"));
+	    }
+	} else {
+	    MY_TRACE((tfp, "KEYMAP(SKIP) junk after key description: '%s'\n", s));
+	}
+    } else {
+	MY_TRACE((tfp, "KEYMAP(SKIP) no key description\n"));
+    }
+    return -1;
+}
+#undef MY_TRACE
+
+static int unsetkey_cmd(char *parse)
+{
+    char *s = skip_keysym(parse);
+
+    if (s != parse) {
+	*s = '\0';
+#ifdef NCURSES_VERSION
+	/*
+	 * This won't work with Slang.  Remove the definition for the given
+	 * keysym.
+	 */
+	{
+	    int keysym;
+
+	    if (map_string_to_keysym(parse, &keysym, FALSE) >= 0)
+		define_key((char *) 0, keysym);
+	}
+#endif
+#ifdef USE_SLANG
+	/* Slang implements this, for undefining the string which is associated
+	 * with a keysym (the reverse of what we normally want, but may
+	 * occasionally find useful).
+	 */
+	SLang_undefine_key(parse, Keymap_List);
+	if (SLang_get_error())
+	    return -1;
+#endif
+    }
+    return 0;
+}
+
+#ifdef FNAMES_8_3
+#define FNAME_LYNX_KEYMAPS "_lynxkey.map"
+#else
+#define FNAME_LYNX_KEYMAPS ".lynx-keymaps"
+#endif /* FNAMES_8_3 */
+
+static int read_keymap_file(void)
+{
+    /* *INDENT-OFF* */
+    static struct {
+	const char *name;
+	int (*func) (char *s);
+    } table[] = {
+	{ "setkey",   setkey_cmd },
+	{ "unsetkey", unsetkey_cmd },
+    };
+    /* *INDENT-ON* */
+
+    char *line = NULL;
+    FILE *fp;
+    char file[LY_MAXPATH];
+    int linenum;
+    size_t n;
+
+    LYAddPathToHome(file, sizeof(file), FNAME_LYNX_KEYMAPS);
+
+    if ((fp = fopen(file, "r")) == 0)
+	return 0;
+
+    CTRACE((tfp, "read_keymap_file %s\n", file));
+    linenum = 0;
+    while (LYSafeGets(&line, fp) != 0) {
+	char *s = LYSkipBlanks(line);
+
+	linenum++;
+
+	if ((*s == 0) || (*s == '#'))
+	    continue;
+
+	for (n = 0; n < TABLESIZE(table); n++) {
+	    size_t len = strlen(table[n].name);
+
+	    if (strlen(s) > len && !StrNCmp(s, table[n].name, len)
+		&& (*(table[n].func)) (LYSkipBlanks(s + len)) < 0)
+		fprintf(stderr, FAILED_READING_KEYMAP, linenum, file);
+	}
+    }
+    FREE(line);
+    LYCloseInput(fp);
+    return 0;
+}
+
+static void setup_vtXXX_keymap(void)
+{
+    /* *INDENT-OFF* */
+    static Keysym_String_List table[] = {
+	INTERN_KEY( "\033[A",	UPARROW_KEY,	KEY_UP ),
+	INTERN_KEY( "\033OA",	UPARROW_KEY,	KEY_UP ),
+	INTERN_KEY( "\033[B",	DNARROW_KEY,	KEY_DOWN ),
+	INTERN_KEY( "\033OB",	DNARROW_KEY,	KEY_DOWN ),
+	INTERN_KEY( "\033[C",	RTARROW_KEY,	KEY_RIGHT ),
+	INTERN_KEY( "\033OC",	RTARROW_KEY,	KEY_RIGHT ),
+	INTERN_KEY( "\033[D",	LTARROW_KEY,	KEY_LEFT ),
+	INTERN_KEY( "\033OD",	LTARROW_KEY,	KEY_LEFT ),
+	INTERN_KEY( "\033[1~",	FIND_KEY,	KEY_FIND ),
+	INTERN_KEY( "\033[2~",	INSERT_KEY,	KEY_IC ),
+	INTERN_KEY( "\033[3~",	REMOVE_KEY,	KEY_DC ),
+	INTERN_KEY( "\033[4~",	SELECT_KEY,	KEY_SELECT ),
+	INTERN_KEY( "\033[5~",	PGUP_KEY,	KEY_PPAGE ),
+	INTERN_KEY( "\033[6~",	PGDOWN_KEY,	KEY_NPAGE ),
+	INTERN_KEY( "\033[7~",	HOME_KEY,	KEY_HOME),
+	INTERN_KEY( "\033[8~",	END_KEY,	KEY_END ),
+	INTERN_KEY( "\033[11~",	F1_KEY,		KEY_F(1) ),
+	INTERN_KEY( "\033[28~",	F1_KEY,		KEY_F(1) ),
+	INTERN_KEY( "\033OP",	F1_KEY,		KEY_F(1) ),
+	INTERN_KEY( "\033[OP",	F1_KEY,		KEY_F(1) ),
+	INTERN_KEY( "\033[29~",	DO_KEY,		KEY_F(16) ),
+#if defined(USE_SLANG)
+#if defined(__WIN32__) || defined(__MINGW32__)
+	INTERN_KEY( "\xE0H",	UPARROW_KEY,	KEY_UP ),
+	INTERN_KEY( "\xE0P",	DNARROW_KEY,	KEY_DOWN ),
+	INTERN_KEY( "\xE0M",	RTARROW_KEY,	KEY_RIGHT ),
+	INTERN_KEY( "\xE0K",	LTARROW_KEY,	KEY_LEFT ),
+	INTERN_KEY( "\xE0R",	INSERT_KEY,	KEY_IC ),
+	INTERN_KEY( "\xE0S",	REMOVE_KEY,	KEY_DC ),
+	INTERN_KEY( "\xE0I",	PGUP_KEY,	KEY_PPAGE ),
+	INTERN_KEY( "\xE0Q",	PGDOWN_KEY,	KEY_NPAGE ),
+	INTERN_KEY( "\xE0G",	HOME_KEY,	KEY_HOME),
+	INTERN_KEY( "\xE0O",	END_KEY,	KEY_END ),
+#endif
+#if !defined(VMS)
+	INTERN_KEY(	"^(ku)", UPARROW_KEY,	KEY_UP ),
+	INTERN_KEY(	"^(kd)", DNARROW_KEY,	KEY_DOWN ),
+	INTERN_KEY(	"^(kr)", RTARROW_KEY,	KEY_RIGHT ),
+	INTERN_KEY(	"^(kl)", LTARROW_KEY,	KEY_LEFT ),
+	INTERN_KEY(	"^(@0)", FIND_KEY,	KEY_FIND ),
+	INTERN_KEY(	"^(kI)", INSERT_KEY,	KEY_IC ),
+	INTERN_KEY(	"^(kD)", REMOVE_KEY,	KEY_DC ),
+	INTERN_KEY(	"^(*6)", SELECT_KEY,	KEY_SELECT ),
+	INTERN_KEY(	"^(kP)", PGUP_KEY,	KEY_PPAGE ),
+	INTERN_KEY(	"^(kN)", PGDOWN_KEY,	KEY_NPAGE ),
+	INTERN_KEY(	"^(@7)", END_KEY,	KEY_END ),
+	INTERN_KEY(	"^(kh)", HOME_KEY,	KEY_HOME),
+	INTERN_KEY(	"^(k1)", F1_KEY,	KEY_F(1) ),
+	INTERN_KEY(	"^(k2)", F2_KEY,	KEY_F(2) ),
+	INTERN_KEY(	"^(k3)", F3_KEY,	KEY_F(3) ),
+	INTERN_KEY(	"^(k4)", F4_KEY,	KEY_F(4) ),
+	INTERN_KEY(	"^(k5)", F5_KEY,	KEY_F(5) ),
+	INTERN_KEY(	"^(k6)", F6_KEY,	KEY_F(6) ),
+	INTERN_KEY(	"^(k7)", F7_KEY,	KEY_F(7) ),
+	INTERN_KEY(	"^(k8)", F8_KEY,	KEY_F(8) ),
+	INTERN_KEY(	"^(k9)", F9_KEY,	KEY_F(9) ),
+	INTERN_KEY(	"^(k;)", F10_KEY,	KEY_F(10) ),
+	INTERN_KEY(	"^(F1)", F11_KEY,	KEY_F(11) ),
+	INTERN_KEY(	"^(F2)", F12_KEY,	KEY_F(12) ),
+	INTERN_KEY(	"^(F6)", DO_KEY,	KEY_F(16) ),
+#endif /* !VMS */
+#endif /* SLANG */
+    };
+    /* *INDENT-ON* */
+
+    size_t n;
+
+    for (n = 0; n < TABLESIZE(table); n++)
+	define_key(table[n].string, table[n].value);
+}
+
+int lynx_initialize_keymaps(void)
+{
+#ifdef USE_SLANG
+    int i;
+    char keybuf[2];
+
+    /* The escape sequences may contain embedded termcap strings.  Make
+     * sure the library is initialized for that.
+     */
+    SLtt_get_terminfo();
+
+    if (NULL == (Keymap_List = SLang_create_keymap("Lynx", NULL)))
+	return -1;
+
+    keybuf[1] = 0;
+    for (i = 1; i < 256; i++) {
+	keybuf[0] = (char) i;
+	define_key(keybuf, i);
+    }
+
+    setup_vtXXX_keymap();
+    define_key("\033[M", MOUSE_KEYSYM);
+
+    if (SLang_get_error())
+	SLang_exit_error("Unable to initialize keymaps");
+#else
+    setup_vtXXX_keymap();
+#endif
+    return read_keymap_file();
+}
+
+#endif /* USE_KEYMAPS */
+
+#if defined(USE_MOUSE) && (defined(NCURSES))
+static int LYmouse_menu(int x, int y, int atlink, int code)
+{
+#define ENT_ONLY_DOC	1
+#define ENT_ONLY_LINK	2
+    /* *INDENT-OFF* */
+    static const struct {
+	const char *txt;
+	int  action;
+	unsigned int  flag;
+    } possible_entries[] = {
+	{"Quit",			LYK_ABORT,		ENT_ONLY_DOC},
+	{"Home page",			LYK_MAIN_MENU,		ENT_ONLY_DOC},
+	{"Previous document",		LYK_PREV_DOC,		ENT_ONLY_DOC},
+	{"Beginning of document",	LYK_HOME,		ENT_ONLY_DOC},
+	{"Page up",			LYK_PREV_PAGE,		ENT_ONLY_DOC},
+	{"Half page up",		LYK_UP_HALF,		ENT_ONLY_DOC},
+	{"Two lines up",		LYK_UP_TWO,		ENT_ONLY_DOC},
+	{"History",			LYK_HISTORY,		ENT_ONLY_DOC},
+	{"Help",			LYK_HELP,		0},
+	{"Do nothing (refresh)",	LYK_REFRESH,		0},
+	{"Load again",			LYK_RELOAD,		ENT_ONLY_DOC},
+	{"Edit Doc URL and load",	LYK_ECGOTO,		ENT_ONLY_DOC},
+	{"Edit Link URL and load",	LYK_ELGOTO,		ENT_ONLY_LINK},
+	{"Show info",			LYK_INFO,		0},
+	{"Search",			LYK_WHEREIS,		ENT_ONLY_DOC},
+	{"Print",			LYK_PRINT,		ENT_ONLY_DOC},
+	{"Two lines down",		LYK_DOWN_TWO,		ENT_ONLY_DOC},
+	{"Half page down",		LYK_DOWN_HALF,		ENT_ONLY_DOC},
+	{"Page down",			LYK_NEXT_PAGE,		ENT_ONLY_DOC},
+	{"End of document",		LYK_END,		ENT_ONLY_DOC},
+	{"Bookmarks",			LYK_VIEW_BOOKMARK,	ENT_ONLY_DOC},
+	{"Cookie jar",			LYK_COOKIE_JAR,		ENT_ONLY_DOC},
+#ifdef USE_CACHEJAR
+	{"Cache jar",			LYK_CACHE_JAR,		ENT_ONLY_DOC},
+#endif
+	{"Search index",		LYK_INDEX_SEARCH,	ENT_ONLY_DOC},
+	{"Set Options",			LYK_OPTIONS,		ENT_ONLY_DOC},
+	{"Activate this link",		LYK_MOUSE_SUBMIT,	ENT_ONLY_LINK},
+	{"Download",			LYK_DOWNLOAD,		ENT_ONLY_LINK}
+    };
+    /* *INDENT-ON* */
+
+#define TOTAL_MENUENTRIES	TABLESIZE(possible_entries)
+    const char *choices[TOTAL_MENUENTRIES + 1];
+    int actions[TOTAL_MENUENTRIES];
+
+    int c, c1, retlac;
+    unsigned filter_out = (unsigned) (atlink ? ENT_ONLY_DOC : ENT_ONLY_LINK);
+
+    c = c1 = 0;
+    while (c < (int) TOTAL_MENUENTRIES) {
+	if (!(possible_entries[c].flag & filter_out)) {
+	    choices[c1] = possible_entries[c].txt;
+	    actions[c1++] = possible_entries[c].action;
+	}
+	c++;
+    }
+    choices[c1] = NULL;
+
+    /* Somehow the mouse is over the number instead of being over the
+       name, so we decrease x. */
+    c = LYChoosePopup((atlink ? 2 : 10) - 1, y, (x > 5 ? x - 5 : 1),
+		      choices, c1, FALSE, TRUE);
+
+    /*
+     * LYhandlePopupList() wasn't really meant to be used outside of old-style
+     * Options menu processing.  One result of mis-using it here is that we
+     * have to deal with side-effects regarding SIGINT signal handler and the
+     * term_options global variable.  - kw
+     */
+    if (term_options) {
+	retlac = LYK_DO_NOTHING;
+	term_options = FALSE;
+    } else {
+	retlac = actions[c];
+    }
+
+    if (code == FOR_INPUT && mouse_link == -1) {
+	switch (retlac) {
+	case LYK_ABORT:
+	    retlac = LYK_QUIT;	/* a bit softer... */
+	    /* fall through */
+	case LYK_MAIN_MENU:
+	case LYK_PREV_DOC:
+	case LYK_HOME:
+	case LYK_PREV_PAGE:
+	case LYK_UP_HALF:
+	case LYK_UP_TWO:
+	case LYK_HISTORY:
+	case LYK_HELP:
+/*	    case LYK_REFRESH:*/
+	case LYK_RELOAD:
+	case LYK_ECGOTO:
+	case LYK_INFO:
+	case LYK_WHEREIS:
+	case LYK_PRINT:
+	case LYK_DOWN_TWO:
+	case LYK_DOWN_HALF:
+	case LYK_NEXT_PAGE:
+	case LYK_END:
+	case LYK_VIEW_BOOKMARK:
+	case LYK_COOKIE_JAR:
+#ifdef USE_CACHEJAR
+	case LYK_CACHE_JAR:
+#endif
+	case LYK_INDEX_SEARCH:
+	case LYK_OPTIONS:
+	    mouse_link = -3;	/* so LYgetch_for() passes it on - kw */
+	}
+    }
+    if (retlac == LYK_DO_NOTHING ||
+	retlac == LYK_REFRESH) {
+	mouse_link = -1;	/* mainloop should not change cur link - kw */
+    }
+    if (code == FOR_INPUT && retlac == LYK_DO_NOTHING) {
+	repaint_main_statusline(FOR_INPUT);
+    }
+    return retlac;
+}
+#endif /* USE_MOUSE && (NCURSES || PDCURSES) */
+
+#if defined(USE_KEYMAPS) && defined(USE_SLANG)
+/************************************************************************/
+
+static int current_sl_modifier = 0;
+
+/* We cannot guarantee the type for 'GetChar', and should not use a cast. */
+static int myGetChar(void)
+{
+    int i = GetChar();
+
+    if (i == 0)			/* trick to get NUL char through - kw */
+	current_sl_modifier = LKC_ISLKC;
+    return i;
+}
+
+static int LYgetch_for(int code)
+{
+    SLang_Key_Type *key;
+    int keysym;
+
+    current_sl_modifier = 0;
+
+    key = SLang_do_key(Keymap_List, myGetChar);
+    if ((key == NULL) || (key->type != SLKEY_F_KEYSYM)) {
+#if defined(__WIN32__) || defined(__MINGW32__)
+	if ((key == NULL) && (current_sl_modifier == LKC_ISLKC)) {
+	    key = SLang_do_key(Keymap_List, myGetChar);
+	    keysym = key->f.keysym;
+	    switch (keysym) {
+	    case 'H':
+		keysym = UPARROW_KEY;
+		break;
+	    case 'P':
+		keysym = DNARROW_KEY;
+		break;
+	    case 'M':
+		keysym = RTARROW_KEY;
+		break;
+	    case 'K':
+		keysym = LTARROW_KEY;
+		break;
+	    case 'R':
+		keysym = INSERT_KEY;
+		break;
+	    case 'S':
+		keysym = REMOVE_KEY;
+		break;
+	    case 'I':
+		keysym = PGUP_KEY;
+		break;
+	    case 'Q':
+		keysym = PGDOWN_KEY;
+		break;
+	    case 'G':
+		keysym = HOME_KEY;
+		break;
+	    case 'O':
+		keysym = END_KEY;
+		break;
+	    case ';':
+		keysym = F1_KEY;
+		break;
+	    }
+	    return (keysym);
+	}
+#endif
+	return (current_sl_modifier ? 0 : DO_NOTHING);
+    } else {
+	keysym = (int) key->f.keysym;
+
+#if defined (USE_MOUSE)
+	if (keysym == MOUSE_KEYSYM)
+	    return sl_read_mouse_event(code);
+#endif
+
+	if (keysym < 0) {
+	    return 0;
+
+	} else if (keysym & (LKC_ISLECLAC | LKC_ISLAC)) {
+	    return (keysym);
+	} else {
+	    current_sl_modifier = 0;
+	    if (LKC_HAS_ESC_MOD(keysym)) {
+		current_sl_modifier = LKC_MOD2;
+		keysym &= LKC_MASK;
+	    }
+
+	    if (keysym + 1 >= KEYMAP_SIZE) {
+		return 0;
+	    } else {
+		return (keysym | current_sl_modifier);
+	    }
+	}
+    }
+}
+
+/************************************************************************/
+#else /* NOT  defined(USE_KEYMAPS) && defined(USE_SLANG) */
+
+/*
+ * LYgetch() translates some escape sequences and may fake noecho.
+ */
+#define found_CSI(first,second) ((second) == '[' || (first) == 155)
+#define found_TLD(value)	((value) == '~')
+
+static int LYgetch_for(int code)
+{
+    int a, b, c, d = -1;
+    int current_modifier = 0;
+    BOOLEAN done_esc = FALSE;
+
+    (void) code;
+
+    have_levent = 0;
+
+  re_read:
+#if !defined(UCX) || !defined(VAXC)	/* errno not modifiable ? */
+    if (errno == EINTR)
+	set_errno(0);		/* reset - kw */
+#endif /* UCX && VAXC */
+#ifndef USE_SLANG
+    clearerr(stdin);		/* needed here for ultrix and SOCKETSHR, but why? - FM */
+#endif /* !USE_SLANG */
+#if !defined(USE_SLANG) || defined(VMS) || defined(DJGPP_KEYHANDLER)
+    c = GetChar();
+    lynx_nl2crlf(FALSE);
+#else
+    if (LYCursesON) {
+	c = GetChar();
+	lynx_nl2crlf(FALSE);
+    } else {
+	c = getchar();
+	if (c == EOF && errno == EINTR)		/* Ctrl-Z causes EINTR in getchar() */
+	    clearerr(stdin);
+	if (feof(stdin) || ferror(stdin) || c == EOF) {
+#ifdef IGNORE_CTRL_C
+	    if (sigint)
+		sigint = FALSE;
+#endif /* IGNORE_CTRL_C */
+	    CTRACE((tfp, "GETCH: Translate ^C to ^G.\n"));
+	    return (LYCharINTERRUPT2);	/* use ^G to cancel whatever called us. */
+	}
+    }
+#endif /* !USE_SLANG || VMS */
+
+    CTRACE((tfp, "GETCH%d: Got %#x.\n", code, c));
+    if (LYNoZapKey > 1 && errno != EINTR &&
+	(c == EOF
+#ifdef USE_SLANG
+	 || (c == 0xFFFF)
+#endif
+	)) {
+
+	CTRACE((tfp,
+		"nozap: Got EOF, curses %s, stdin is %p, LYNoZapKey reduced from %d to 0.\n",
+		LYCursesON ? "on" : "off", (void *) stdin, LYNoZapKey));
+	LYNoZapKey = 0;		/* 2 -> 0 */
+	if (LYReopenInput() > 0) {
+	    if (LYCursesON) {
+		stop_curses();
+		start_curses();
+		LYrefresh();
+	    }
+	    goto re_read;
+	}
+    }
+#ifdef USE_GETCHAR
+    if (c == EOF && errno == EINTR)	/* Ctrl-Z causes EINTR in getchar() */
+	goto re_read;
+#else
+    if (c == EOF && errno == EINTR) {
+
+#if defined(HAVE_SIZECHANGE) || defined(USE_SLANG)
+	CTRACE((tfp, "Got EOF with EINTR, recent_sizechange so far is %d\n",
+		recent_sizechange));
+	if (!recent_sizechange) {	/* not yet detected by ourselves */
+	    size_change(0);
+	    CTRACE((tfp, "Now recent_sizechange is %d\n", recent_sizechange));
+	}
+#else /* HAVE_SIZECHANGE || USE_SLANG */
+	CTRACE((tfp, "Got EOF with EINTR, recent_sizechange is %d\n",
+		recent_sizechange));
+#endif /* HAVE_SIZECHANGE || USE_SLANG */
+#if !defined(UCX) || !defined(VAXC)	/* errno not modifiable ? */
+	set_errno(0);		/* reset - kw */
+#endif /* UCX && VAXC */
+	return (DO_NOTHING);
+    }
+#endif /* USE_GETCHAR */
+
+#ifdef USE_SLANG
+    if (c == 0xFFFF && LYCursesON) {
+#ifdef IGNORE_CTRL_C
+	if (sigint) {
+	    sigint = FALSE;
+	    goto re_read;
+	}
+#endif /* IGNORE_CTRL_C */
+	return (LYCharINTERRUPT2);	/* use ^G to cancel whatever called us. */
+    }
+#else /* not USE_SLANG: */
+    if (feof(stdin) || ferror(stdin) || c == EOF) {
+	if (recent_sizechange)
+	    return (LYCharINTERRUPT2);	/* use ^G to cancel whatever called us. */
+#ifdef IGNORE_CTRL_C
+	if (sigint) {
+	    sigint = FALSE;
+	    /* clearerr(stdin);  don't need here if stays above - FM */
+	    goto re_read;
+	}
+#endif /* IGNORE_CTRL_C */
+#if !defined(USE_GETCHAR) && !defined(VMS) && !defined(NCURSES)
+	if (c == ERR && errno == EINTR)		/* may have been handled signal - kw */
+	    goto re_read;
+#endif /* USE_GETCHAR */
+
+	cleanup();
+	exit_immediately(EXIT_SUCCESS);
+    }
+#endif /* USE_SLANG */
+
+    if (!escape_bound
+	&& (c == CH_ESC || (csi_is_csi && c == UCH(CH_ESC_PAR)))) {
+	/* handle escape sequence  S/390 -- gil -- 2024 */
+	done_esc = TRUE;	/* Flag: we did it, not keypad() */
+	b = GetChar();
+
+	if (b == '[' || b == 'O') {
+	    a = GetChar();
+	} else {
+	    a = b;
+	}
+
+	switch (a) {
+	case 'A':
+	    c = UPARROW_KEY;
+	    break;
+	case 'B':
+	    c = DNARROW_KEY;
+	    break;
+	case 'C':
+	    c = RTARROW_KEY;
+	    break;
+	case 'D':
+	    c = LTARROW_KEY;
+	    break;
+	case 'q':		/* vt100 application keypad 1 */
+	    c = END_KEY;
+	    break;
+	case 'r':		/* vt100 application keypad 2 */
+	    c = DNARROW_KEY;
+	    break;
+	case 's':		/* vt100 application keypad 3 */
+	    c = PGDOWN_KEY;
+	    break;
+	case 't':		/* vt100 application keypad 4 */
+	    c = LTARROW_KEY;
+	    break;
+	case 'v':		/* vt100 application keypad 6 */
+	    c = RTARROW_KEY;
+	    break;
+	case 'w':		/* vt100 application keypad 7 */
+	    c = HOME_KEY;
+	    break;
+	case 'x':		/* vt100 application keypad 8 */
+	    c = UPARROW_KEY;
+	    break;
+	case 'y':		/* vt100 application keypad 9 */
+	    c = PGUP_KEY;
+	    break;
+	case 'M':
+#if defined(USE_SLANG) && defined(USE_MOUSE)
+	    if (found_CSI(c, b)) {
+		c = sl_read_mouse_event(code);
+	    } else
+#endif
+		c = '\n';	/* keypad enter on pc ncsa telnet */
+	    break;
+
+	case 'm':
+#ifdef VMS
+	    if (b != 'O')
+#endif /* VMS */
+		c = '-';	/* keypad on pc ncsa telnet */
+	    break;
+	case 'k':
+	    if (b == 'O')
+		c = '+';	/* keypad + on my xterminal :) */
+	    else
+		done_esc = FALSE;	/* we have another look below - kw */
+	    break;
+	case 'l':
+#ifdef VMS
+	    if (b != 'O')
+#endif /* VMS */
+		c = '+';	/* keypad on pc ncsa telnet */
+	    break;
+	case 'P':
+#ifdef VMS
+	    if (b != 'O')
+#endif /* VMS */
+		c = F1_KEY;
+	    break;
+	case 'u':
+#ifdef VMS
+	    if (b != 'O')
+#endif /* VMS */
+		c = F1_KEY;	/* macintosh help button */
+	    break;
+	case 'p':
+#ifdef VMS
+	    if (b == 'O')
+#endif /* VMS */
+		c = '0';	/* keypad 0 */
+	    break;
+	case '1':		/* VTxxx  Find  */
+	    if (found_CSI(c, b) && found_TLD(d = GetChar()))
+		c = FIND_KEY;
+	    else
+		done_esc = FALSE;	/* we have another look below - kw */
+	    break;
+	case '2':
+	    if (found_CSI(c, b)) {
+		if (found_TLD(d = GetChar()))	/* VTxxx Insert */
+		    c = INSERT_KEY;
+		else if ((d == '8' ||
+			  d == '9') &&
+			 found_TLD(GetChar())) {
+		    if (d == '8')	/* VTxxx   Help */
+			c = F1_KEY;
+		    else if (d == '9')	/* VTxxx    Do  */
+			c = DO_KEY;
+		    d = -1;
+		}
+	    } else
+		done_esc = FALSE;	/* we have another look below - kw */
+	    break;
+	case '3':			     /** VTxxx Delete **/
+	    if (found_CSI(c, b) && found_TLD(d = GetChar()))
+		c = REMOVE_KEY;
+	    else
+		done_esc = FALSE;	/* we have another look below - kw */
+	    break;
+	case '4':			     /** VTxxx Select **/
+	    if (found_CSI(c, b) && found_TLD(d = GetChar()))
+		c = SELECT_KEY;
+	    else
+		done_esc = FALSE;	/* we have another look below - kw */
+	    break;
+	case '5':			     /** VTxxx PrevScreen **/
+	    if (found_CSI(c, b) && found_TLD(d = GetChar()))
+		c = PGUP_KEY;
+	    else
+		done_esc = FALSE;	/* we have another look below - kw */
+	    break;
+	case '6':			     /** VTxxx NextScreen **/
+	    if (found_CSI(c, b) && found_TLD(d = GetChar()))
+		c = PGDOWN_KEY;
+	    else
+		done_esc = FALSE;	/* we have another look below - kw */
+	    break;
+	case '[':			     /** Linux F1-F5: ^[[[A etc. **/
+	    if (found_CSI(c, b)) {
+		if ((d = GetChar()) == 'A')
+		    c = F1_KEY;
+		break;
+	    }
+	    /* FALLTHRU */
+	default:
+	    if (c == CH_ESC && a == b && !found_CSI(c, b)) {
+		current_modifier = LKC_MOD2;
+		c = a;
+		/* We're not yet done if ESC + curses-keysym: */
+		done_esc = (BOOL) ((a & ~0xFF) == 0);
+		break;
+	    }
+	    CTRACE((tfp, "Unknown key sequence: %d:%d:%d\n", c, b, a));
+	    CTRACE_SLEEP(MessageSecs);
+	    break;
+	}
+	if (isdigit(a) && found_CSI(c, b) && d != -1 && !found_TLD(d))
+	    d = GetChar();
+	if (!done_esc && (a & ~0xFF) == 0) {
+	    if (a == b && !found_CSI(c, b) && c == CH_ESC) {
+		current_modifier = LKC_MOD2;
+		c = a;
+		done_esc = TRUE;
+	    } else {
+		done_esc = TRUE;
+	    }
+	}
+    }
+#ifdef USE_KEYMAPS
+    /* Extract a single code if two are merged: */
+    if (c >= 0 && (c & LKC_ISLECLAC)) {
+	if (!(code == FOR_INPUT || code == FOR_PROMPT))
+	    c = LKC2_TO_LKC(c);
+    } else if (c >= 0 && (c & LKC_ISLKC)) {
+	c &= ~LKC_ISLKC;
+	done_esc = TRUE;	/* already a lynxkeycode, skip keypad switches - kw */
+    }
+    if (c >= 0 && LKC_HAS_ESC_MOD(c)) {
+	current_modifier = LKC_MOD2;
+	c &= LKC_MASK;
+    }
+    if (c >= 0 && (c & (LKC_ISLECLAC | LKC_ISLAC))) {
+	done_esc = TRUE;	/* already a lynxactioncode, skip keypad switches - iz */
+    }
+#endif
+    if (done_esc) {
+	/* don't do keypad() switches below, we already got it - kw */
+    } else {
+#ifdef HAVE_KEYPAD
+	/*
+	 * Convert keypad() mode keys into Lynx defined keys.
+	 */
+	switch (c) {
+	case KEY_DOWN:		/* The four arrow keys ... */
+	    c = DNARROW_KEY;
+	    break;
+	case KEY_UP:
+	    c = UPARROW_KEY;
+	    break;
+	case KEY_LEFT:
+	    c = LTARROW_KEY;
+	    break;
+	case KEY_RIGHT:	/* ... */
+	    c = RTARROW_KEY;
+	    break;
+#if defined(PDCURSES)		/* for NEC PC-9800 1998/08/30 (Sun) 21:50:35 */
+	case KEY_C2:
+	    c = DNARROW_KEY;
+	    break;
+	case KEY_A2:
+	    c = UPARROW_KEY;
+	    break;
+	case KEY_B1:
+	    c = LTARROW_KEY;
+	    break;
+	case KEY_B3:
+	    c = RTARROW_KEY;
+	    break;
+	case PAD0:		/* PC-9800 Ins */
+	    c = INSERT_KEY;
+	    break;
+	case PADSTOP:		/* PC-9800 DEL */
+	    c = REMOVE_KEY;
+	    break;
+#endif /* PDCURSES */
+	case KEY_HOME:		/* Home key (upward+left arrow) */
+	    c = HOME_KEY;
+	    break;
+	case KEY_CLEAR:	/* Clear screen */
+	    c = 18;		/* CTRL-R */
+	    break;
+	case KEY_NPAGE:	/* Next page */
+	    c = PGDOWN_KEY;
+	    break;
+	case KEY_PPAGE:	/* Previous page */
+	    c = PGUP_KEY;
+	    break;
+	case KEY_LL:		/* home down or bottom (lower left) */
+	    c = END_KEY;
+	    break;
+#if defined(KEY_A1) && defined(KEY_C3)
+	    /* The keypad is arranged like this: */
+	    /*    a1    up    a3   */
+	    /*   left   b2  right  */
+	    /*    c1   down   c3   */
+	case KEY_A1:		/* upper left of keypad */
+	    c = HOME_KEY;
+	    break;
+	case KEY_A3:		/* upper right of keypad */
+	    c = PGUP_KEY;
+	    break;
+	case KEY_B2:		/* center of keypad */
+	    c = DO_NOTHING;
+	    break;
+	case KEY_C1:		/* lower left of keypad */
+	    c = END_KEY;
+	    break;
+	case KEY_C3:		/* lower right of keypad */
+	    c = PGDOWN_KEY;
+	    break;
+#endif /* defined(KEY_A1) && defined(KEY_C3) */
+#ifdef KEY_ENTER
+	case KEY_ENTER:	/* enter/return      */
+	    c = '\n';
+	    break;
+#endif /* KEY_ENTER */
+#ifdef PADENTER			/* PDCURSES */
+	case PADENTER:
+	    c = '\n';
+	    break;
+#endif /* PADENTER */
+#ifdef KEY_END
+	case KEY_END:		/* end key           001 */
+	    c = END_KEY;
+	    break;
+#endif /* KEY_END */
+#ifdef KEY_HELP
+	case KEY_HELP:		/* help key          001 */
+	    c = F1_KEY;
+	    break;
+#endif /* KEY_HELP */
+#ifdef KEY_BACKSPACE
+	case KEY_BACKSPACE:
+	    c = CH_DEL;		/* backspace key (delete, not Ctrl-H)  S/390 -- gil -- 2041 */
+	    break;
+#endif /* KEY_BACKSPACE */
+	case KEY_F(1):
+	    c = F1_KEY;		/* VTxxx Help */
+	    break;
+#if defined(KEY_F) && !defined(__DJGPP__) && !defined(_WINDOWS)
+	case KEY_F(16):
+	    c = DO_KEY;		/* VTxxx Do */
+	    break;
+#endif /* KEY_F */
+#ifdef KEY_REDO
+	case KEY_REDO:		/* VTxxx Do */
+	    c = DO_KEY;
+	    break;
+#endif /* KEY_REDO */
+#ifdef KEY_FIND
+	case KEY_FIND:
+	    c = FIND_KEY;	/* VTxxx Find */
+	    break;
+#endif /* KEY_FIND */
+#ifdef KEY_SELECT
+	case KEY_SELECT:
+	    c = SELECT_KEY;	/* VTxxx Select */
+	    break;
+#endif /* KEY_SELECT */
+#ifdef KEY_IC
+	case KEY_IC:
+	    c = INSERT_KEY;	/* VTxxx Insert */
+	    break;
+#endif /* KEY_IC */
+#ifdef KEY_DC
+	case KEY_DC:
+	    c = REMOVE_KEY;	/* VTxxx Remove */
+	    break;
+#endif /* KEY_DC */
+#ifdef KEY_BTAB
+	case KEY_BTAB:
+	    c = BACKTAB_KEY;	/* Back tab, often Shift-Tab */
+	    break;
+#endif /* KEY_BTAB */
+#ifdef KEY_RESIZE
+	case KEY_RESIZE:	/* size change detected by ncurses */
+#if defined(HAVE_SIZECHANGE) || defined(USE_SLANG)
+	    /* Make call to detect new size, if that may be implemented.
+	     * The call may set recent_sizechange (except for USE_SLANG),
+	     * which will tell mainloop() to refresh. - kw
+	     */
+	    CTRACE((tfp, "Got KEY_RESIZE, recent_sizechange so far is %d\n",
+		    recent_sizechange));
+	    size_change(0);
+	    CTRACE((tfp, "Now recent_sizechange is %d\n", recent_sizechange));
+#else /* HAVE_SIZECHANGE || USE_SLANG */
+	    CTRACE((tfp, "Got KEY_RESIZE, recent_sizechange is %d\n",
+		    recent_sizechange));
+#endif /* HAVE_SIZECHANGE || USE_SLANG */
+	    if (!recent_sizechange) {
+#if defined(NCURSES)
+		/*
+		 * Work-around for scenario (Linux libc5) where we got a
+		 * recent sizechange before reading KEY_RESIZE.  If we do
+		 * not reset the flag, we'll next get an EOF read, which
+		 * causes Lynx to exit.
+		 */
+		recent_sizechange = TRUE;
+#endif
+		/*
+		 * May be just the delayed effect of mainloop()'s call to
+		 * resizeterm().  Pretend we haven't read anything yet, don't
+		 * return.  - kw
+		 */
+		goto re_read;
+	    }
+	    /*
+	     * Yep, we agree there was a change.  Return now so that the caller
+	     * can react to it.  - kw
+	     */
+	    c = DO_NOTHING;
+	    break;
+#endif /* KEY_RESIZE */
+
+/* The following maps PDCurses keys away from lynx reserved values */
+#if (defined(_WINDOWS) || defined(__DJGPP__)) && !defined(USE_SLANG)
+	case KEY_F(2):
+	    c = 0x213;
+	    break;
+	case KEY_F(3):
+	    c = 0x214;
+	    break;
+	case KEY_F(4):
+	    c = 0x215;
+	    break;
+	case KEY_F(5):
+	    c = 0x216;
+	    break;
+	case KEY_F(6):
+	    c = 0x217;
+	    break;
+	case KEY_F(7):
+	    c = 0x218;
+	    break;
+#endif /* PDCurses */
+
+#if defined(USE_MOUSE)
+/********************************************************************/
+
+#if defined(NCURSES) || defined(PDCURSES)
+	case KEY_MOUSE:
+	    CTRACE((tfp, "KEY_MOUSE\n"));
+	    if (code == FOR_CHOICE) {
+		c = MOUSE_KEY;	/* Will be processed by the caller */
+	    }
+#if defined(NCURSES)
+	    else if (code == FOR_SINGLEKEY) {
+		MEVENT event;
+
+		getmouse(&event);	/* Completely ignore event - kw */
+		c = DO_NOTHING;
+	    }
+#endif
+	    else {
+#if defined(NCURSES)
+		MEVENT event;
+		int err;
+		int lac = LYK_UNKNOWN;
+
+		c = -1;
+		mouse_link = -1;
+		err = getmouse(&event);
+		if (err != OK) {
+		    CTRACE((tfp, "Mouse error: no event available!\n"));
+		    return (code == FOR_PANEL ? 0 : DO_NOTHING);
+		}
+		levent = event;	/* Allow setting pos in entry fields */
+		if (event.bstate & BUTTON1_CLICKED) {
+		    c = set_clicked_link(event.x, event.y, code, 1);
+		} else if (event.bstate & BUTTON1_DOUBLE_CLICKED) {
+		    c = set_clicked_link(event.x, event.y, code, 2);
+		    if (c == LAC_TO_LKC0(LYK_MOUSE_SUBMIT) &&
+			code == FOR_INPUT)
+			lac = LYK_MOUSE_SUBMIT;
+		} else if (event.bstate & BUTTON3_CLICKED) {
+		    c = LAC_TO_LKC0(LYK_PREV_DOC);
+		} else if (code == FOR_PROMPT
+		    /* Cannot ignore: see LYCurses.c */
+			   || (event.bstate &
+			       (BUTTON1_PRESSED | BUTTON1_RELEASED
+				| BUTTON2_PRESSED | BUTTON2_RELEASED
+				| BUTTON3_PRESSED | BUTTON3_RELEASED))) {
+		    /* Completely ignore - don't return anything, to
+		       avoid canceling the prompt - kw */
+		    goto re_read;
+		} else if (event.bstate & BUTTON2_CLICKED) {
+		    int atlink;
+
+		    c = set_clicked_link(event.x, event.y, code, 1);
+		    atlink = (c == LAC_TO_LKC0(LYK_ACTIVATE));
+		    if (!atlink)
+			mouse_link = -1;	/* Forget about approx stuff. */
+
+		    lac = LYmouse_menu(event.x, event.y, atlink, code);
+		    if (lac == LYK_MOUSE_SUBMIT) {
+			if (mouse_link == -1)
+			    lac = LYK_ACTIVATE;
+#ifdef TEXTFIELDS_MAY_NEED_ACTIVATION
+			else if (mouse_link >= 0 &&
+				 textfields_need_activation &&
+				 links[mouse_link].type == WWW_FORM_LINK_TYPE &&
+				 F_TEXTLIKE(links[mouse_link].l_form->type))
+			    lac = LYK_ACTIVATE;
+#endif
+		    }
+		    if (lac == LYK_ACTIVATE && mouse_link == -1) {
+			HTAlert(gettext("No link chosen"));
+			lac = LYK_REFRESH;
+		    }
+		    c = LAC_TO_LKC(lac);
+		}
+#if NCURSES_MOUSE_VERSION > 1
+		else if (event.bstate & BUTTON4_PRESSED) {
+		    c = LAC_TO_LKC(LYK_UP_HALF);
+		} else if (event.bstate & BUTTON5_PRESSED) {
+		    c = LAC_TO_LKC(LYK_DOWN_HALF);
+		}
+#endif
+		if (code == FOR_INPUT && mouse_link == -1 &&
+		    lac != LYK_REFRESH &&
+		    lac != LYK_MOUSE_SUBMIT) {
+		    ungetmouse(&event);		/* Caller will process this. */
+		    wgetch(LYwin);	/* ungetmouse puts KEY_MOUSE back */
+		    c = MOUSE_KEY;
+		}
+#else /* pdcurses version */
+
+#define H_CMD_AREA	6
+#define HIST_CMD_2	12
+#define V_CMD_AREA	1
+
+		int left = H_CMD_AREA;
+		int right = (LYcolLimit - H_CMD_AREA - 1);
+
+		/* yes, I am assuming that my screen will be a certain width. */
+
+		int tick_count;
+		char *p = NULL;
+		char mouse_info[128];
+		static int old_click = 0;	/* [m Sec] */
+
+		c = -1;
+		mouse_link = -1;
+
+		if (!system_is_NT) {
+		    tick_count = GetTickCount();
+
+		    /* Guard Mouse button miss click */
+		    if ((tick_count - old_click) < 700) {
+			c = DO_NOTHING;
+			break;
+		    } else {
+			old_click = tick_count;
+		    }
+		}
+		request_mouse_pos();
+
+		if (BUTTON_STATUS(1) & BUTTON_PRESSED) {
+		    if (MOUSE_Y_POS > (LYlines - V_CMD_AREA - 1)) {
+			/* Screen BOTTOM */
+			if (MOUSE_X_POS < left) {
+			    c = LTARROW_KEY;
+			    p = "<-";
+			} else if (MOUSE_X_POS < HIST_CMD_2) {
+			    c = RTARROW_KEY;
+			    p = "->";
+			} else if (MOUSE_X_POS > right) {
+			    c = 'z';
+			    p = "Cancel";
+			} else {
+			    c = PGDOWN_KEY;
+			    p = "PGDOWN";
+			}
+		    } else if (MOUSE_Y_POS < V_CMD_AREA) {
+			/* Screen TOP */
+			if (MOUSE_X_POS < left) {
+			    c = LTARROW_KEY;
+			    p = "<-";
+			} else if (MOUSE_X_POS < HIST_CMD_2) {
+			    c = RTARROW_KEY;
+			    p = "->";
+			} else if (MOUSE_X_POS > right) {
+			    c = 'z';
+			    p = "Cancel";
+			} else {
+			    c = PGUP_KEY;
+			    p = "PGUP";
+			}
+		    } else {
+			c = set_clicked_link(MOUSE_X_POS,
+					     MOUSE_Y_POS,
+					     FOR_PANEL, 1);
+		    }
+		}
+		if (p && c != -1) {
+		    sprintf(mouse_info, "Mouse = 0x%x, [%s]", c, p);
+		    SetConsoleTitle(mouse_info);
+		}
+#endif /* !(WIN_EX) */
+		if ((c + 1) >= KEYMAP_SIZE && (c & LKC_ISLAC))
+		    return (c);
+	    }
+	    break;
+#endif /* NCURSES || PDCURSES */
+
+/********************************************************************/
+#endif /* USE_MOUSE */
+
+	}
+#endif /* HAVE_KEYPAD */
+#ifdef DJGPP_KEYHANDLER
+	switch (c) {
+	case K_Down:		/* The four arrow keys ... */
+	case K_EDown:
+	    c = DNARROW_KEY;
+	    break;
+	case K_Up:
+	case K_EUp:
+	    c = UPARROW_KEY;
+	    break;
+	case K_Left:
+	case K_ELeft:
+	    c = LTARROW_KEY;
+	    break;
+	case K_Right:		/* ... */
+	case K_ERight:
+	    c = RTARROW_KEY;
+	    break;
+	case K_Home:		/* Home key (upward+left arrow) */
+	case K_EHome:
+	    c = HOME_KEY;
+	    break;
+	case K_PageDown:	/* Next page */
+	case K_EPageDown:
+	    c = PGDOWN_KEY;
+	    break;
+	case K_PageUp:		/* Previous page */
+	case K_EPageUp:
+	    c = PGUP_KEY;
+	    break;
+	case K_End:		/* home down or bottom (lower left) */
+	case K_EEnd:
+	    c = END_KEY;
+	    break;
+	case K_F1:		/* F1 key */
+	    c = F1_KEY;
+	    break;
+	case K_Insert:		/* Insert key */
+	case K_EInsert:
+	    c = INSERT_KEY;
+	    break;
+	case K_Delete:		/* Delete key */
+	case K_EDelete:
+	    c = REMOVE_KEY;
+	    break;
+	case K_Alt_Escape:	/* Alt-Escape */
+	    c = 0x1a7;
+	    break;
+	case K_Control_At:	/* CTRL-@ */
+	    c = 0x1a8;
+	    break;
+	case K_Alt_Backspace:	/* Alt-Backspace */
+	    c = 0x1a9;
+	    break;
+	case K_BackTab:	/* BackTab */
+	    c = BACKTAB_KEY;
+	    break;
+	}
+#endif /* DGJPP_KEYHANDLER */
+#if defined(USE_SLANG) && (defined(__DJGPP__) || defined(__CYGWIN__)) && !defined(DJGPP_KEYHANDLER)  && !defined(USE_KEYMAPS)
+	switch (c) {
+	case SL_KEY_DOWN:	/* The four arrow keys ... */
+	    c = DNARROW_KEY;
+	    break;
+	case SL_KEY_UP:
+	    c = UPARROW_KEY;
+	    break;
+	case SL_KEY_LEFT:
+	    c = LTARROW_KEY;
+	    break;
+	case SL_KEY_RIGHT:	/* ... */
+	    c = RTARROW_KEY;
+	    break;
+	case SL_KEY_HOME:	/* Home key (upward+left arrow) */
+	case SL_KEY_A1:	/* upper left of keypad */
+	    c = HOME_KEY;
+	    break;
+	case SL_KEY_NPAGE:	/* Next page */
+	case SL_KEY_C3:	/* lower right of keypad */
+	    c = PGDOWN_KEY;
+	    break;
+	case SL_KEY_PPAGE:	/* Previous page */
+	case SL_KEY_A3:	/* upper right of keypad */
+	    c = PGUP_KEY;
+	    break;
+	case SL_KEY_END:	/* home down or bottom (lower left) */
+	case SL_KEY_C1:	/* lower left of keypad */
+	    c = END_KEY;
+	    break;
+	case SL_KEY_F(1):	/* F1 key */
+	    c = F1_KEY;
+	    break;
+	case SL_KEY_IC:	/* Insert key */
+	    c = INSERT_KEY;
+	    break;
+	case SL_KEY_DELETE:	/* Delete key */
+	    c = REMOVE_KEY;
+	    break;
+	}
+#endif /* USE_SLANG && __DJGPP__ && !DJGPP_KEYHANDLER && !USE_KEYMAPS */
+    }
+
+    if (c & (LKC_ISLAC | LKC_ISLECLAC)) {
+	return (c);
+    } else if ((c + 1) >= KEYMAP_SIZE) {
+	/*
+	 * Don't return raw values for KEYPAD symbols which we may have missed
+	 * in the switch above if they are obviously invalid when used as an
+	 * index into (e.g.) keypad[].  - KW
+	 */
+	return (0);
+    } else {
+	return (c | current_modifier);
+    }
+}
+
+/************************************************************************/
+#endif /* NOT  defined(USE_KEYMAPS) && defined(USE_SLANG) */
+
+int LYgetch(void)
+{
+    return LYReadCmdKey(FOR_PANEL);
+}
+
+/*
+ * Read a single keystroke, allows mouse-selection.
+ */
+int LYgetch_choice(void)
+{
+    int ch = LYReadCmdKey(FOR_CHOICE);
+
+    if (ch == LYCharINTERRUPT1)
+	ch = LYCharINTERRUPT2;	/* treat ^C the same as ^G */
+    return ch;
+}
+
+/*
+ * Read a single keystroke, allows mouse events.
+ */
+int LYgetch_input(void)
+{
+    int ch = LYReadCmdKey(FOR_INPUT);
+
+    if (ch == LYCharINTERRUPT1)
+	ch = LYCharINTERRUPT2;	/* treat ^C the same as ^G */
+    return ch;
+}
+
+/*
+ * Read a single keystroke, ignoring case by translating it to uppercase.
+ * Ignore mouse events, if any.
+ */
+int LYgetch_single(void)
+{
+    int ch = LYReadCmdKey(FOR_SINGLEKEY);
+
+    if (ch == LYCharINTERRUPT1)
+	ch = LYCharINTERRUPT2;	/* treat ^C the same as ^G */
+    else if (ch > 0 && ch < 256)
+	ch = TOUPPER(ch);	/* will ignore case of result */
+    return ch;
+}
+
+/*
+ * Convert a null-terminated string to lowercase
+ */
+void LYLowerCase(char *arg_buffer)
+{
+    register unsigned char *buffer = (unsigned char *) arg_buffer;
+    size_t i;
+
+    for (i = 0; buffer[i]; i++) {
+#ifdef SUPPORT_MULTIBYTE_EDIT	/* 1998/11/23 (Mon) 17:04:55 */
+	if ((buffer[i] & 0x80) != 0
+	    && buffer[i + 1] != 0) {
+	    if ((kanji_code == SJIS) && IS_SJIS_X0201KANA(UCH((buffer[i])))) {
+		continue;
+	    }
+	    i++;
+	} else {
+	    buffer[i] = UCH(TOLOWER(buffer[i]));
+	}
+#else
+	buffer[i] = TOLOWER(buffer[i]);
+#endif
+    }
+}
+
+/*
+ * Convert a null-terminated string to uppercase
+ */
+void LYUpperCase(char *arg_buffer)
+{
+    register unsigned char *buffer = (unsigned char *) arg_buffer;
+    size_t i;
+
+    for (i = 0; buffer[i]; i++) {
+#ifdef SUPPORT_MULTIBYTE_EDIT	/* 1998/11/23 (Mon) 17:05:10 */
+	if ((buffer[i] & 0x80) != 0
+	    && buffer[i + 1] != 0) {
+	    if ((kanji_code == SJIS) && IS_SJIS_X0201KANA(UCH((buffer[i])))) {
+		continue;
+	    }
+	    i++;
+	} else {
+	    buffer[i] = UCH(TOUPPER(buffer[i]));
+	}
+#else
+	buffer[i] = UCH(TOUPPER(buffer[i]));
+#endif
+    }
+}
+
+/*
+ * Remove newlines from a string, returning true if we removed any.
+ */
+BOOLEAN LYRemoveNewlines(char *buffer)
+{
+    BOOLEAN result = FALSE;
+
+    if (buffer != 0) {
+	register char *buf = buffer;
+
+	for (; *buf && *buf != '\n' && *buf != '\r'; buf++) ;
+	if (*buf) {
+	    /* runs very seldom */
+	    char *old = buf;
+
+	    for (; *old; old++) {
+		if (*old != '\n' && *old != '\r')
+		    *buf++ = *old;
+	    }
+	    *buf = '\0';
+	    result = TRUE;
+	}
+    }
+    return result;
+}
+
+/*
+ * Remove leading/trailing whitespace from a string, reduce runs of embedded
+ * whitespace to single blanks.
+ */
+char *LYReduceBlanks(char *buffer)
+{
+    if (non_empty(buffer)) {
+	LYTrimLeading(buffer);
+	LYTrimTrailing(buffer);
+	convert_to_spaces(buffer, TRUE);
+    }
+    return buffer;
+}
+
+/*
+ * Remove ALL whitespace from a string (including embedded blanks), and returns
+ * a pointer to the end of the trimmed string.
+ */
+char *LYRemoveBlanks(char *buffer)
+{
+    char *result = NULL;
+
+    if (buffer != 0) {
+	register char *buf = buffer;
+
+	for (; *buf && !isspace(UCH(*buf)); buf++) ;
+	if (*buf) {
+	    /* runs very seldom */
+	    char *old = buf;
+
+	    for (; *old; old++) {
+		if (!isspace(UCH(*old)))
+		    *buf++ = *old;
+	    }
+	    *buf = '\0';
+	}
+	result = buf;
+    }
+    return result;
+}
+
+/*
+ * Skip whitespace
+ */
+char *LYSkipBlanks(char *buffer)
+{
+    while (isspace(UCH((*buffer))))
+	buffer++;
+    return buffer;
+}
+
+/*
+ * Skip non-whitespace
+ */
+char *LYSkipNonBlanks(char *buffer)
+{
+    while (*buffer != 0 && !isspace(UCH((*buffer))))
+	buffer++;
+    return buffer;
+}
+
+/*
+ * Skip const whitespace
+ */
+const char *LYSkipCBlanks(const char *buffer)
+{
+    while (isspace(UCH((*buffer))))
+	buffer++;
+    return buffer;
+}
+
+/*
+ * Skip const non-whitespace
+ */
+const char *LYSkipCNonBlanks(const char *buffer)
+{
+    while (*buffer != 0 && !isspace(UCH((*buffer))))
+	buffer++;
+    return buffer;
+}
+
+/*
+ * Trim leading blanks from a string
+ */
+void LYTrimLeading(char *buffer)
+{
+    char *skipped = LYSkipBlanks(buffer);
+
+    while ((*buffer++ = *skipped++) != 0) ;
+}
+
+/*
+ * Trim trailing newline(s) from a string
+ */
+char *LYTrimNewline(char *buffer)
+{
+    size_t i = strlen(buffer);
+
+    while (i != 0 && (buffer[i - 1] == '\n' || buffer[i - 1] == '\r'))
+	buffer[--i] = 0;
+    return buffer;
+}
+
+/*
+ * Trim trailing blanks from a string
+ */
+void LYTrimTrailing(char *buffer)
+{
+    size_t i = strlen(buffer);
+
+    while (i != 0 && isspace(UCH(buffer[i - 1])))
+	buffer[--i] = 0;
+}
+
+/* 1997/11/10 (Mon) 14:26:10, originally string_short() in LYExterns.c, but
+ * moved here because LYExterns is not always configured.
+ */
+char *LYElideString(char *str,
+		    int cut_pos)
+{
+    char buff[MAX_LINE], *s, *d;
+    static char s_str[MAX_LINE];
+    int len;
+
+    LYStrNCpy(buff, str, sizeof(buff) - 1);
+    len = (int) strlen(buff);
+    if (len > (LYcolLimit - 9)) {
+	buff[cut_pos] = '.';
+	buff[cut_pos + 1] = '.';
+	for (s = (buff + len) - (LYcolLimit - 9) + cut_pos + 1,
+	     d = (buff + cut_pos) + 2;
+	     s >= buff &&
+	     d >= buff &&
+	     d < buff + LYcols &&
+	     (*d++ = *s++) != 0;) ;
+	buff[LYcols] = 0;
+    }
+    strcpy(s_str, buff);
+    return (s_str);
+}
+
+/*
+ * Trim a startfile, returning true if it looks like one of the Lynx tags.
+ */
+BOOLEAN LYTrimStartfile(char *buffer)
+{
+    BOOLEAN result = FALSE;
+
+    LYTrimHead(buffer);
+    if (isLYNXEXEC(buffer) ||
+	isLYNXPROG(buffer)) {
+	/*
+	 * The original implementations of these schemes expected white space
+	 * without hex escaping, and did not check for hex escaping, so we'll
+	 * continue to support that, until that code is redone in conformance
+	 * with SGML principles.  - FM
+	 */
+	HTUnEscapeSome(buffer, " \r\n\t");
+	convert_to_spaces(buffer, TRUE);
+	result = TRUE;
+    }
+    return result;
+}
+
+/*
+ * Escape unsafe characters in startfile, except for lynx internal URLs.
+ */
+void LYEscapeStartfile(char **buffer)
+{
+    if (!LYTrimStartfile(*buffer)) {
+	char *escaped = HTEscapeUnsafe(*buffer);
+
+	StrAllocCopy(*buffer, escaped);
+	FREE(escaped);
+    }
+}
+
+/*
+ * Trim all blanks from startfile, except for lynx internal URLs.
+ */
+void LYTrimAllStartfile(char *buffer)
+{
+    if (!LYTrimStartfile(buffer)) {
+	LYRemoveBlanks(buffer);
+    }
+}
+
+/*
+ * Display the current value of the string and allow the user to edit it.
+ */
+
+/*
+ * Shorthand to get rid of the "edit->suchandsos".
+ */
+#define IsDirty   edit->efIsDirty
+#define IsHidden  edit->efIsMasked
+#define StartX    edit->efStartX
+#define StartY    edit->efStartY
+#define Buffer    edit->efBuffer
+#define EditAt    edit->efEditAt	/* current editing position (bytes) */
+#define BufInUse  edit->efBufInUse	/* length (bytes) */
+#define BufAlloc  edit->efBufAlloc
+#define BufLimit  edit->efBufLimit
+#define DpyWidth  edit->efWidth
+#define DpyStart  edit->efDpyStart	/* display-start (columns) */
+#define PanMargin edit->efPanMargin
+#define IsPanned  edit->efIsPanned
+#define PadChar   edit->efPadChar
+#ifdef ENHANCED_LINEEDIT
+#define EditMark  edit->efEditMark
+#endif
+#define InputMods edit->efInputMods
+#define Offs2Col  edit->efOffs2Col
+
+#define enableEditMark() \
+	if (EditMark < 0) \
+	    EditMark = -(1 + EditMark)
+
+#define disableEditMark() \
+	if (EditMark >= 0) \
+	    EditMark = -(1 + EditMark)
+
+#ifdef ENHANCED_LINEEDIT
+static bstring *killbuffer;
+#endif
+
+static void updateMargin(FieldEditor * edit)
+{
+    if ((int) BufAlloc > DpyWidth) {	/* Need panning? */
+	if (DpyWidth > 4)
+	    IsPanned = TRUE;
+
+	/*
+	 * Figure out margins.  If too big, we do a lot of unnecessary
+	 * scrolling.  If too small, user doesn't have sufficient look-ahead. 
+	 * Let's say 25% for each margin, upper bound is 10 columns.
+	 */
+	PanMargin = DpyWidth / 4;
+	if (PanMargin > 10)
+	    PanMargin = 10;
+    }
+}
+
+/*
+ * Before using an array position, make sure that the array is long enough.
+ * Reallocate if needed.
+ */
+static void ExtendEditor(FieldEditor * edit, int position)
+{
+    size_t need = (size_t) (++position);
+
+    if (need >= BufAlloc && (BufLimit == 0 || need < BufLimit)) {
+	CTRACE((tfp, "ExtendEditor from %lu to %lu\n",
+		(unsigned long) BufAlloc,
+		(unsigned long) need));
+	Buffer = typeRealloc(char, Buffer, need);
+	Offs2Col = typeRealloc(int, Offs2Col, need + 1);
+
+	BufAlloc = need;
+	updateMargin(edit);
+    }
+}
+
+void LYFinishEdit(FieldEditor * edit)
+{
+    CTRACE((tfp, "LYFinishEdit:%s\n", NonNull(Buffer)));
+
+    FREE(Buffer);
+    FREE(Offs2Col);
+}
+
+void LYSetupEdit(FieldEditor * edit, char *old_value, unsigned buffer_limit, int display_limit)
+{
+    CTRACE((tfp, "LYSetupEdit buffer %lu, display %d:%s\n",
+	    (unsigned long) buffer_limit,
+	    display_limit,
+	    old_value));
+
+    BufLimit = buffer_limit;
+    if (buffer_limit == 0)
+	buffer_limit = (unsigned) strlen(old_value) + 1;
+
+    /*
+     * Initialize edit record
+     */
+    LYGetYX(StartY, StartX);
+    PadChar = ' ';
+    IsDirty = TRUE;
+    IsPanned = FALSE;
+    InputMods = 0;
+
+    BufAlloc = buffer_limit;
+    DpyWidth = display_limit;
+    PanMargin = 0;
+    EditAt = (int) strlen(old_value);
+#ifdef ENHANCED_LINEEDIT
+    EditMark = -1;		/* pos=0, but do not show it yet */
+#endif
+    DpyStart = 0;
+
+    updateMargin(edit);
+
+    BufInUse = strlen(old_value);
+    Buffer = typecallocn(char, BufAlloc + 1);
+
+    if (Buffer == 0)
+	outofmem(__FILE__, "LYSetupEdit");
+
+    LYStrNCpy(Buffer, old_value, buffer_limit);
+    Offs2Col = typecallocn(int, BufAlloc + 1);
+
+    if (Offs2Col == 0)
+	outofmem(__FILE__, "LYSetupEdit");
+}
+
+#ifdef SUPPORT_MULTIBYTE_EDIT
+
+/*
+ * MBCS positioning routines below are specific to SUPPORT_MULTIBYTE_EDIT code.
+ * Currently they handle UTF-8 and (hopefully) CJK.
+ * Current encoding is recognized using defines below.
+ *
+ * LYmbcs* functions don't look very convenient to use here...
+ * Do we really need utf_flag as an argument?
+ *
+ * It is set (see IS_UTF8_TTY) for every invocation out there, and they use
+ * HTCJK flag internally anyway.  Something like LYmbcsstrnlen == mbcs_glyphs
+ * would be useful to work with string slices -Sergej Kvachonok 
+ */
+
+#define IS_UTF8_EXTRA(x) (((unsigned char)(x) & 0300) == 0200)
+
+/*
+ * Counts glyphs in a multibyte (sub)string s of length len.
+ */
+static int mbcs_glyphs(char *s, int len)
+{
+    int glyphs = 0;
+    int i;
+
+    if (IS_UTF8_TTY) {
+	for (i = 0; s[i] && i < len; i++)
+	    if (!IS_UTF8_EXTRA(s[i]))
+		glyphs++;
+    } else if (IS_CJK_TTY) {
+	for (i = 0; s[i] && i < len; i++, glyphs++)
+	    if (is8bits(s[i]))
+		i++;
+    } else {
+	glyphs = len;
+    }
+    return glyphs;
+}
+
+/*
+ * Check if there are no continuation bytes in the multibyte (sub)string of
+ * length len.
+ */
+static int mbcs_valid(char *s, int len, int limit)
+{
+    int i;
+    int result = FALSE;
+
+    if (IS_UTF8_TTY) {
+	for (i = 0; s[i] && i < limit; i++) {
+	    if (!IS_UTF8_EXTRA(s[i])) {
+		if ((i + 1) == len) {
+		    result = TRUE;
+		    break;
+		}
+	    }
+	}
+    } else if (IS_CJK_TTY) {
+	for (i = 0; s[i] && i < limit; i++) {
+	    if (!is8bits(s[i])) {
+		if ((i + 1) == len) {
+		    result = TRUE;
+		    break;
+		}
+	    }
+	}
+    } else {
+	result = TRUE;
+    }
+    return result;
+}
+
+/*
+ * Calculates offset in bytes of a glyph at cell position pos.
+ */
+static int mbcs_skip(char *s, int pos)
+{
+    int p, i;
+
+    if (IS_UTF8_TTY) {
+	for (i = 0, p = 0; s[i]; i++) {
+	    if (!IS_UTF8_EXTRA(s[i]))
+		p++;
+	    if (p > pos)
+		break;
+	}
+    } else if (IS_CJK_TTY) {
+	for (p = i = 0; s[i] && p < pos; p++, i++)
+	    if (is8bits(s[i]))
+		i++;
+    } else {
+	i = pos;
+    }
+
+    return i;
+}
+
+/*
+ * Given a string that would display (at least) the given number of cells,
+ * determine the number of multibyte characters that comprised those cells.
+ */
+static int cell2char(char *s, int cells)
+{
+    int result = 0;
+    int len = (int) strlen(s);
+    int pos;
+    int have;
+
+    CTRACE_EDIT((tfp, "cell2char(%d) %d:%s\n", cells, len, s));
+    if (len != 0) {
+	int best = -1;
+
+	for (pos = 0; pos <= len; ++pos) {
+	    have = LYstrExtent2(s, pos);
+	    CTRACE_EDIT((tfp, "  %2d:%2d:%.*s\n", pos, have, pos, s));
+	    if (have >= cells) {
+		if (cells <= 0)
+		    break;
+		/* the best solution is the one with the most bytes */
+		best = pos;
+		if (mbcs_valid(s, pos, len))
+		    break;
+	    }
+	}
+	if (best >= 0)
+	    pos = best;
+	if (pos > len)
+	    pos = len;
+    } else {
+	pos = 0;
+    }
+    result = mbcs_glyphs(s, pos);
+    CTRACE_EDIT((tfp, "->%d\n", result));
+    return result;
+}
+
+#endif /* SUPPORT_MULTIBYTE_EDIT */
+
+#ifdef EXP_KEYBOARD_LAYOUT
+static int map_active = 0;
+
+#else
+#define map_active 0
+#endif
+
+int LYEditInsert(FieldEditor * edit, unsigned const char *s,
+		 int len,
+		 int map GCC_UNUSED,
+		 int maxMessage)
+{
+    int length = (int) strlen(Buffer);
+    int remains = (int) BufAlloc - (length + len);
+    int edited = 0, overflow = 0;
+
+    /*
+     * ch is (presumably) printable character.
+     */
+    if (remains < 0) {
+	overflow = 1;
+	len = 0;
+	if ((int) BufAlloc > length)	/* Insert as much as we can */
+	    len = (int) BufAlloc - length;
+	else
+	    goto finish;
+    }
+    ExtendEditor(edit, length + len);
+    Buffer[length + len] = '\0';
+    for (; length >= EditAt; length--)	/* Make room */
+	Buffer[length + len] = Buffer[length];
+#ifdef EXP_KEYBOARD_LAYOUT
+    if (map < 0)
+	map = map_active;
+    if (map && IS_UTF8_TTY) {
+	int off = EditAt;
+	unsigned const char *e = s + len;
+	char *tail = 0;
+
+	while (s < e) {
+	    char utfbuf[8];
+	    int l = 1;
+
+	    utfbuf[0] = (char) *s;
+	    if (*s < 128 && LYKbLayouts[current_layout][*s]) {
+		UCode_t ucode = LYKbLayouts[current_layout][*s];
+
+		if (ucode > 127) {
+		    if (UCConvertUniToUtf8(ucode, utfbuf)) {
+			l = (int) strlen(utfbuf);
+			remains -= l - 1;
+			if (remains < 0) {
+			    if (tail)
+				strcpy(Buffer + off, tail);
+			    FREE(tail);
+			    len = off;
+			    overflow = 1;
+			    goto finish;
+			}
+			if (l > 1 && !tail)
+			    StrAllocCopy(tail, Buffer + EditAt + len);
+		    } else
+			utfbuf[0] = '?';
+		} else
+		    utfbuf[0] = (char) ucode;
+	    }
+	    if ((size_t) (off + l) <= BufAlloc) {
+		memcpy(Buffer + off, utfbuf, (size_t) l);
+		edited = 1;
+		off += l;
+	    }
+	    s++;
+	}
+	if (tail)
+	    strcpy(Buffer + off, tail);
+	len = off - EditAt;
+	FREE(tail);
+    } else if (map) {
+	unsigned const char *e = s + len;
+	unsigned char *t = (unsigned char *) Buffer + EditAt;
+
+	while (s < e) {
+	    int ch;
+
+	    if (*s < 128 && LYKbLayouts[current_layout][*s]) {
+		ch = UCTransUniChar((UCode_t) LYKbLayouts[current_layout][*s],
+				    current_char_set);
+		if (ch < 0)
+		    ch = '?';
+	    } else
+		ch = *s;
+	    *t = UCH(ch);
+	    t++, s++;
+	}
+	edited = 1;
+    } else
+#endif /* defined EXP_KEYBOARD_LAYOUT */
+    {
+	StrNCpy(Buffer + EditAt, (const char *) s, len);
+	edited = 1;
+    }
+
+  finish:
+    EditAt += len;
+    BufInUse += (size_t) len;
+    if (edited)
+	IsDirty = TRUE;
+    if (overflow && maxMessage)
+	_statusline(MAXLEN_REACHED_DEL_OR_MOV);
+#ifdef ENHANCED_LINEEDIT
+    if (EditMark > EditAt)
+	EditMark += len;
+    else if (EditMark < -(1 + EditAt))
+	EditMark -= len;
+    disableEditMark();
+#endif
+    return edited;
+}
+
+/*
+ * Do one edit-operation, given the input 'ch' and working buffer 'edit'.
+ *
+ * If the input is processed, returns zero.
+ * If the action should be performed outside of line-editing mode, return -ch.
+ * Otherwise, e.g., returns 'ch'.
+ */
+int LYDoEdit(FieldEditor * edit, int ch,
+	     int action,
+	     int maxMessage)
+{
+    int i;
+    int length;
+    unsigned char uch;
+    int offset;
+
+    if ((int) BufAlloc <= 0)
+	return (0);		/* Be defensive */
+
+    BufInUse = strlen(&Buffer[0]);
+    length = (int) BufInUse;
+
+    switch (action) {
+#ifdef EXP_KEYBOARD_LAYOUT
+    case LYE_SWMAP:
+	/*
+	 * Turn input character mapping on or off.
+	 */
+	map_active = ~map_active;
+	break;
+#endif
+#ifndef CJK_EX
+    case LYE_AIX:
+	/*
+	 * Handle CJK characters, or as a valid character in the current
+	 * display character set.  Otherwise, we treat this as LYE_ENTER.
+	 */
+	if (!IS_CJK_TTY && LYlowest_eightbit[current_char_set] > 0x97)
+	    return (ch);
+#endif
+	/* FALLTHRU */
+    case LYE_CHAR:
+	uch = UCH(ch);
+	LYEditInsert(edit, &uch, 1, map_active, maxMessage);
+	return 0;		/* All changes already registered */
+
+    case LYE_C1CHAR:
+	/*
+	 * ch is the second part (in most cases, a capital letter) of a 7-bit
+	 * replacement for a character in the 8-bit C1 control range.
+	 *
+	 * This is meant to undo transformations like 0x81 -> 0x1b 0x41 (ESC A)
+	 * etc., done by slang on Unix and possibly some comm programs.  It's
+	 * an imperfect workaround that doesn't work for all such characters.
+	 */
+	ch &= 0xFF;
+	if (ch + 64 >= LYlowest_eightbit[current_char_set])
+	    ch += 64;
+
+	if (EditAt <= ((int) BufAlloc) && BufInUse < BufAlloc) {
+#ifdef ENHANCED_LINEEDIT
+	    if (EditMark > EditAt)
+		EditMark++;
+	    else if (EditMark < -(1 + EditAt))
+		EditMark--;
+	    disableEditMark();
+#endif
+	    ExtendEditor(edit, length + 1);
+	    for (i = length; i >= EditAt; i--)	/* Make room */
+		Buffer[i + 1] = Buffer[i];
+	    Buffer[length + 1] = '\0';
+	    Buffer[EditAt] = (char) ch;
+	    EditAt++;
+	} else {
+	    if (maxMessage) {
+		_statusline(MAXLEN_REACHED_DEL_OR_MOV);
+	    }
+	    return (ch);
+	}
+	break;
+
+    case LYE_BACKW:		/* go backward one word */
+	while (EditAt && !IsWordChar(Buffer[EditAt - 1]))
+	    EditAt--;
+	while (EditAt && IsWordChar(UCH(Buffer[EditAt - 1])))
+	    EditAt--;
+	break;
+
+    case LYE_FORWW:		/* go forward one word */
+	while (IsWordChar(UCH(Buffer[EditAt])))
+	    EditAt++;
+	while (!IsWordChar(Buffer[EditAt]) && Buffer[EditAt])
+	    EditAt++;
+	break;
+
+    case LYE_ERASE:		/* erase the line */
+	Buffer[0] = '\0';
+#ifdef ENHANCED_LINEEDIT
+	EditMark = -1;		/* Do not show the mark */
+#endif
+	/* FALLTHRU */
+
+    case LYE_BOL:		/* go to beginning of line  */
+	EditAt = 0;
+	break;
+
+    case LYE_EOL:		/* go to end of line  */
+	EditAt = length;
+	break;
+
+    case LYE_DELNW:		/* delete next word  */
+	offset = EditAt;
+	LYDoEdit(edit, 0, LYE_FORWW, FALSE);
+	offset = EditAt - offset;
+	EditAt -= offset;
+
+	goto shrink;		/* right below */
+
+    case LYE_DELPW:		/* delete previous word  */
+	offset = EditAt;
+	LYDoEdit(edit, 0, LYE_BACKW, FALSE);
+	offset -= EditAt;
+
+      shrink:
+	for (i = EditAt; i < length - offset + 1; i++)
+	    Buffer[i] = Buffer[i + offset];
+#ifdef ENHANCED_LINEEDIT
+	disableEditMark();
+	if (EditMark <= -(1 + EditAt + offset))
+	    EditMark += offset;	/* Shift it */
+	if (-(1 + EditAt + offset) < EditMark && EditMark < -(1 + EditAt))
+	    EditMark = -(1 + EditAt);	/* Set to the current position */
+#endif
+
+	break;
+
+    case LYE_DELBL:		/* delete from cursor to beginning of line */
+	for (i = EditAt; i < length + 1; i++)
+	    Buffer[i - EditAt] = Buffer[i];
+
+#ifdef ENHANCED_LINEEDIT
+	disableEditMark();
+	if (EditMark <= -(1 + EditAt))
+	    EditMark += EditAt;	/* Shift it */
+	else
+	    EditMark = -1;	/* Reset it */
+#endif
+	EditAt = 0;
+	break;
+
+    case LYE_DELEL:		/* delete from cursor to end of line */
+	Buffer[EditAt] = '\0';
+#ifdef ENHANCED_LINEEDIT
+	disableEditMark();
+	if (EditMark <= -(1 + EditAt))
+	    EditMark = -1;	/* Reset it */
+#endif
+	break;
+
+    case LYE_DELN:		/* delete next character */
+	if (EditAt >= length)
+	    break;
+#ifndef SUPPORT_MULTIBYTE_EDIT
+	EditAt++;
+#else
+	EditAt += mbcs_skip(Buffer + EditAt, 1);
+#endif
+	/* FALLTHRU */
+
+    case LYE_DELP:		/* delete previous character */
+	if (length == 0 || EditAt == 0)
+	    break;
+
+#ifndef SUPPORT_MULTIBYTE_EDIT
+#ifdef ENHANCED_LINEEDIT
+	disableEditMark();
+	if (EditMark <= -(1 + EditAt))
+	    EditMark++;
+#endif
+	EditAt--;
+	for (i = EditAt; i < length; i++)
+	    Buffer[i] = Buffer[i + 1];
+#else /* SUPPORT_MULTIBYTE_EDIT */
+	offset = EditAt - mbcs_skip(Buffer, mbcs_glyphs(Buffer, EditAt) - 1);
+	EditAt -= offset;
+	for (i = EditAt; i < length - offset + 1; i++)
+	    Buffer[i] = Buffer[i + offset];
+
+#ifdef ENHANCED_LINEEDIT
+	disableEditMark();
+	if (EditMark <= -(1 + EditAt))
+	    EditMark += offset;	/* Shift it */
+#endif
+
+#endif /* SUPPORT_MULTIBYTE_EDIT */
+	break;
+
+    case LYE_FORW_RL:
+    case LYE_FORW:		/* move cursor forward */
+#ifndef SUPPORT_MULTIBYTE_EDIT
+	if (EditAt < length)
+	    EditAt++;
+#else
+	if (EditAt < length)
+	    EditAt += mbcs_skip(Buffer + EditAt, 1);
+#endif
+	else if (action == LYE_FORW_RL)
+	    return -ch;
+	break;
+
+    case LYE_BACK_LL:
+    case LYE_BACK:		/* move cursor backward */
+#ifndef SUPPORT_MULTIBYTE_EDIT
+	if (EditAt > 0)
+	    EditAt--;
+#else
+	if (EditAt > 0)
+	    EditAt = mbcs_skip(Buffer, mbcs_glyphs(Buffer, EditAt) - 1);
+#endif
+	else if (action == LYE_BACK_LL)
+	    return -ch;
+	break;
+
+#ifdef ENHANCED_LINEEDIT
+    case LYE_TPOS:
+	/*
+	 * Transpose characters - bash or ksh(emacs not gmacs) style
+	 */
+
+#ifdef SUPPORT_MULTIBYTE_EDIT
+	if (IS_UTF8_TTY || IS_CJK_TTY)
+	    break;		/* Can't help it now */
+#endif
+
+	if (length <= 1 || EditAt == 0)
+	    return (ch);
+	if (EditAt == length)
+	    EditAt--;
+	enableEditMark();
+	if (EditMark == EditAt || EditMark == EditAt + 1)
+	    EditMark = EditAt - 1;
+	disableEditMark();
+	if (Buffer[EditAt - 1] == Buffer[EditAt]) {
+	    EditAt++;
+	    break;
+	}
+	i = Buffer[EditAt - 1];
+	Buffer[EditAt - 1] = Buffer[EditAt];
+	Buffer[EditAt++] = (char) i;
+	break;
+
+    case LYE_SETMARK:		/* Emacs-like set-mark-command */
+	EditMark = EditAt;
+	return (0);
+
+    case LYE_XPMARK:		/* Emacs-like exchange-point-and-mark */
+	enableEditMark();
+	if (EditMark == EditAt)
+	    return (0);
+	i = EditAt;
+	EditAt = EditMark;
+	EditMark = i;
+	break;
+
+    case LYE_KILLREG:		/* Emacs-like kill-region */
+	enableEditMark();
+	if (EditMark == EditAt) {
+	    BStrFree(killbuffer);
+	    return (0);
+	}
+	if (EditMark > EditAt)
+	    LYDoEdit(edit, 0, LYE_XPMARK, FALSE);
+	{
+	    int reglen = EditAt - EditMark;
+
+	    BStrCopy1(killbuffer, Buffer + EditMark, reglen);
+	    for (i = EditMark; Buffer[i + reglen]; i++)
+		Buffer[i] = Buffer[i + reglen];
+	    Buffer[i] = Buffer[i + reglen];	/* terminate */
+	    EditAt = EditMark;
+	}
+	disableEditMark();
+	break;
+
+    case LYE_YANK:		/* Emacs-like yank */
+	if (!killbuffer) {
+	    EditMark = -(1 + EditAt);
+	    return (0);
+	} else {
+	    int yanklen = killbuffer->len;
+
+	    if ((EditAt + yanklen) <= (int) BufAlloc &&
+		BufInUse + (size_t) yanklen <= BufAlloc) {
+
+		ExtendEditor(edit, EditAt + yanklen);
+
+		EditMark = -(1 + EditAt);
+
+		for (i = length; i >= EditAt; i--)	/* Make room */
+		    Buffer[i + yanklen] = Buffer[i];
+		for (i = 0; i < yanklen; i++)
+		    Buffer[EditAt++] = killbuffer->str[i];
+
+	    } else if (maxMessage) {
+		_statusline(MAXLEN_REACHED_DEL_OR_MOV);
+	    }
+	}
+	break;
+
+#endif /* ENHANCED_LINEEDIT */
+
+    case LYE_UPPER:
+	LYUpperCase(Buffer);
+	break;
+
+    case LYE_LOWER:
+	LYLowerCase(Buffer);
+	break;
+
+    default:
+	return (ch);
+    }
+    IsDirty = TRUE;
+    BufInUse = strlen(&Buffer[0]);
+    return (0);
+}
+
+/*
+ *  This function prompts for a choice or page number.
+ *  If a 'g' or 'p' suffix is included, that will be
+ *  loaded into c.  Otherwise, c is zeroed. - FM & LE
+ */
+int get_popup_number(const char *msg,
+		     int *c,
+		     int *rel)
+{
+    bstring *temp = NULL;
+    int result = 0;
+
+    /*
+     * Load the c argument into the prompt buffer.
+     */
+    BStrCopy0(temp, "?");
+    temp->str[0] = (char) *c;
+
+    _statusline(msg);
+
+    /*
+     * Get the number, possibly with a suffix, from the user.
+     */
+    if (LYgetBString(&temp, FALSE, 0, NORECALL) < 0 || isBEmpty(temp)) {
+	HTInfoMsg(CANCELLED);
+	*c = '\0';
+	*rel = '\0';
+    } else {
+	char *p = temp->str;
+
+	*rel = '\0';
+	result = atoi(p);
+	while (isdigit(UCH(*p)))
+	    ++p;
+	switch (*p) {
+	case '+':
+	case '-':
+	    /* 123+ or 123- */
+	    *rel = *p++;
+	    *c = *p;
+	    break;
+	default:
+	    *c = *p++;
+	    *rel = *p;
+	    break;
+	case 0:
+	    break;
+	}
+
+	/*
+	 * If we had a 'g' or 'p' suffix, load it into c.  Otherwise, zero c.  Then
+	 * return the number.
+	 */
+	if (*p == 'g' || *p == 'G') {
+	    *c = 'g';
+	} else if (*p == 'p' || *p == 'P') {
+	    *c = 'p';
+	} else {
+	    *c = '\0';
+	}
+	if (*rel != '+' && *rel != '-')
+	    *rel = 0;
+    }
+    BStrFree(temp);
+    return result;
+}
+
+#ifdef USE_COLOR_STYLE
+#  define TmpStyleOn(s)		curses_style((s), STACK_ON)
+#  define TmpStyleOff(s)	curses_style((s), STACK_OFF)
+#else
+#  define TmpStyleOn(s)
+#  define TmpStyleOff(s)
+#endif /* defined USE_COLOR_STYLE */
+
+static void remember_column(FieldEditor * edit, int offset)
+{
+    int y0, x0;
+
+#if defined(USE_SLANG)
+    y0 = 0;
+    x0 = SLsmg_get_column();
+#elif defined(USE_CURSES_PADS)
+    getyx(LYwin, y0, x0);
+#else
+    getyx(stdscr, y0, x0);
+#endif
+    Offs2Col[offset] = x0;
+
+    (void) y0;
+    (void) x0;
+}
+
+static void fill_edited_line(int prompting GCC_UNUSED, int length, int ch)
+{
+    int i;
+
+    TmpStyleOn(prompting ? s_prompt_edit_pad : s_aedit_pad);
+
+    for (i = 0; i < length; i++) {
+	LYaddch(UCH(ch));
+    }
+
+    TmpStyleOff(prompting ? s_prompt_edit_pad : s_aedit_pad);
+}
+
+/*
+ * Multibyte string display subroutine.
+ * FieldEditor fields retain their values as byte offsets.
+ * All external logic still works fine with byte values.
+ */
+void LYRefreshEdit(FieldEditor * edit)
+{
+    /* bytes and characters are not the same thing */
+#if defined(DEBUG_EDIT)
+    int all_bytes;
+#endif
+    int pos_bytes = EditAt;
+    int dpy_bytes;
+    int lft_bytes;		/* base of string which is displayed */
+
+    /* cells refer to display-columns on the screen */
+    int all_cells;		/* total of display-cells in Buffer */
+    int dpy_cells;		/* number of cells which are displayed */
+    int lft_cells;		/* number of cells before display (on left) */
+    int pos_cells;		/* number of display-cells up to EditAt */
+
+#if defined(SUPPORT_MULTIBYTE_EDIT)
+    int dpy_chars;
+    int lft_chars;
+
+#if defined(DEBUG_EDIT)
+    int all_chars;
+    int pos_chars;
+#endif
+#endif
+
+    /* other data */
+    int i;
+    int padsize;
+    char *str;
+    int lft_shift = 0;
+    int rgt_shift = 0;
+
+#ifdef USE_COLOR_STYLE
+    int estyle;
+#endif
+    int prompting = 0;
+
+    (void) pos_bytes;
+
+    /*
+     * If we've made no changes, or if there is nothing to display, just leave.
+     */
+    if (!IsDirty || (DpyWidth == 0))
+	return;
+
+    CTRACE((tfp, "LYRefreshEdit:%s\n", Buffer));
+
+    IsDirty = FALSE;
+
+    BufInUse = strlen(&Buffer[0]);
+
+    all_cells = LYstrCells(Buffer);
+    pos_cells = LYstrExtent2(Buffer, EditAt);
+
+#if defined(SUPPORT_MULTIBYTE_EDIT) && defined(DEBUG_EDIT)
+    all_bytes = (int) BufInUse;
+    lft_chars = mbcs_glyphs(Buffer, DpyStart);
+    pos_chars = mbcs_glyphs(Buffer, EditAt);
+    all_chars = mbcs_glyphs(Buffer, all_bytes);
+#endif
+
+    /*
+     * Now we have:
+     *                .--DpyWidth--.
+     *      +---------+=============+-----------+
+     *      |         |M           M|           |   (M=PanMargin)
+     *      +---------+=============+-----------+
+     *      0         DpyStart                   BufInUse
+     *
+     * Insertion point can be anywhere between 0 and stringlength.  Calculate
+     * a new display starting point.
+     *
+     * First, make Lynx scroll several columns at a time as needed when
+     * extending the string.   Doing this helps with lowspeed connections.
+     */
+
+    lft_bytes = DpyStart;
+    lft_cells = LYstrExtent2(Buffer, DpyStart);
+
+    if ((lft_cells + DpyWidth) <= all_cells) {
+	if (pos_cells >= (lft_cells + DpyWidth) - PanMargin) {
+	    lft_cells = (pos_cells - DpyWidth) + PanMargin;
+#ifdef SUPPORT_MULTIBYTE_EDIT
+	    lft_chars = cell2char(Buffer, lft_cells);
+	    lft_bytes = mbcs_skip(Buffer, lft_chars);
+#else
+	    lft_bytes = lft_cells;
+#endif /* SUPPORT_MULTIBYTE_EDIT */
+	}
+    }
+
+    if (pos_cells < lft_cells + PanMargin) {
+	lft_cells = pos_cells - PanMargin;
+	if (lft_cells < 0)
+	    lft_cells = 0;
+#ifdef SUPPORT_MULTIBYTE_EDIT
+	lft_chars = cell2char(Buffer, lft_cells);
+	lft_bytes = mbcs_skip(Buffer, lft_chars);
+#else
+	lft_bytes = lft_cells;
+#endif /* SUPPORT_MULTIBYTE_EDIT */
+    }
+
+    LYmove(StartY, StartX);
+
+    /*
+     * Draw the left scrolling-indicator now, to avoid the complication of
+     * overwriting part of a multicolumn character which may lie in the first
+     * position.
+     */
+    if (IsPanned && lft_cells) {
+	CTRACE_EDIT((tfp, "Draw left scroll-indicator\n"));
+	TmpStyleOn(prompting ? s_prompt_edit_arr : s_aedit_arr);
+	LYmove(StartY, StartX);
+	LYaddch(ACS_LARROW);
+	TmpStyleOff(prompting ? s_prompt_edit_arr : s_aedit_arr);
+	lft_shift = 1;
+    }
+
+    str = &Buffer[lft_bytes];
+    DpyStart = lft_bytes;
+
+    dpy_cells = all_cells - lft_cells;
+    CTRACE_EDIT((tfp, "Comparing dpy_cells %d > (%d - %d)\n",
+		 dpy_cells, DpyWidth, lft_shift));
+    if (dpy_cells > (DpyWidth - lft_shift)) {
+	rgt_shift = 1;
+	dpy_cells = (DpyWidth - lft_shift - rgt_shift);
+    }
+    for (;;) {
+#ifdef SUPPORT_MULTIBYTE_EDIT
+	dpy_chars = cell2char(str, dpy_cells);
+	dpy_bytes = mbcs_skip(str, dpy_chars);
+#else
+	dpy_bytes = dpy_cells;
+#endif /* SUPPORT_MULTIBYTE_EDIT */
+	/*
+	 * The last character on the display may be multicolumn, and if we take
+	 * away a single cell for the right scroll-indicator, that would force
+	 * us to display fewer characters.  Check for that, and recompute.
+	 */
+	if (rgt_shift && *str) {
+	    int old_cells = dpy_cells;
+
+	    dpy_cells = LYstrExtent2(str, dpy_bytes);
+	    if (dpy_cells > old_cells)
+		dpy_cells = old_cells - 1;
+
+	    CTRACE_EDIT((tfp, "Comparing cells %d vs %d\n", dpy_cells, old_cells));
+	    if (dpy_cells < old_cells) {
+		CTRACE_EDIT((tfp, "Recomputing...\n"));
+		continue;
+	    }
+	}
+	break;
+    }
+
+    CTRACE_EDIT((tfp, "BYTES left %2d pos %2d dpy %2d all %2d\n",
+		 lft_bytes, pos_bytes, dpy_bytes, all_bytes));
+    CTRACE_EDIT((tfp, "CELLS left %2d pos %2d dpy %2d all %2d\n",
+		 lft_cells, pos_cells, dpy_cells, all_cells));
+    CTRACE_EDIT((tfp, "CHARS left %2d pos %2d dpy %2d all %2d\n",
+		 lft_chars, pos_chars, dpy_chars, all_chars));
+
+#ifdef USE_COLOR_STYLE
+    /*
+     * If this is the last screen line, set attributes to normal, should only
+     * be needed for color styles.  The curses function may be used directly to
+     * avoid complications.  - kw
+     */
+    if (StartY == (LYlines - 1))
+	prompting = 1;
+    if (prompting) {
+	estyle = s_prompt_edit;
+    } else {
+	estyle = s_aedit;
+    }
+    CTRACE2(TRACE_STYLE,
+	    (tfp, "STYLE.getstr: switching to <edit.%s>.\n",
+	     prompting ? "prompt" : "active"));
+    if (estyle != NOSTYLE) {
+	curses_style(estyle, STACK_ON);
+    } else {
+	(void) wattrset(LYwin, A_NORMAL);	/* need to do something about colors? */
+    }
+#endif
+    if (IsHidden) {
+	BOOL utf_flag = IS_UTF8_TTY;
+	int cell = 0;
+
+	fill_edited_line(0, dpy_cells, '*');
+
+	i = 0;
+	do {
+	    const char *last = str + i;
+	    const char *next = LYmbcs_skip_glyphs(last, 1, utf_flag);
+	    int j = (int) (next - str);
+
+	    while (i < j) {
+		Offs2Col[i++] = cell + StartX;
+	    }
+	    cell += LYstrExtent2(last, (int) (next - last));
+	} while (i < dpy_bytes);
+	Offs2Col[i] = cell + StartX;
+    } else {
+#if defined(ENHANCED_LINEEDIT) && defined(USE_COLOR_STYLE)
+	if (EditMark >= 0 && DpyStart > EditMark)
+	    TmpStyleOn(prompting ? s_prompt_sel : s_aedit_sel);
+#endif
+	remember_column(edit, 0);
+	for (i = 0; i < dpy_bytes; i++) {
+#if defined(ENHANCED_LINEEDIT) && defined(USE_COLOR_STYLE)
+	    if (EditMark >= 0 && ((DpyStart + i == EditMark && EditAt > EditMark)
+				  || (DpyStart + i == EditAt && EditAt < EditMark)))
+		TmpStyleOn(prompting ? s_prompt_sel : s_aedit_sel);
+	    if (EditMark >= 0 && ((DpyStart + i == EditMark && EditAt < EditMark)
+				  || (DpyStart + i == EditAt && EditAt > EditMark)))
+		TmpStyleOff(prompting ? s_prompt_sel : s_aedit_sel);
+#endif
+	    if (str[i] == 1 || str[i] == 2 ||
+		(UCH(str[i]) == 160 &&
+		 !(HTPassHighCtrlRaw || IS_CJK_TTY ||
+		   (LYCharSet_UC[current_char_set].enc != UCT_ENC_8859 &&
+		    !(LYCharSet_UC[current_char_set].like8859
+		      & UCT_R_8859SPECL))))) {
+		LYaddch(' ');
+	    } else if (str[i] == '\t') {
+		int col = Offs2Col[i] - StartX;
+
+		/*
+		 * Like LYwaddnstr(), expand tabs from the beginning of the
+		 * field.
+		 */
+		while (++col % 8)
+		    LYaddch(' ');
+		LYaddch(' ');
+	    } else {
+		LYaddch(UCH(str[i]));
+	    }
+	    remember_column(edit, i + 1);
+	}
+#if defined(ENHANCED_LINEEDIT) && defined(USE_COLOR_STYLE)
+	if (EditMark >= 0 &&
+	    ((DpyStart + dpy_bytes <= EditMark && DpyStart + dpy_bytes > EditAt)
+	     || (DpyStart + dpy_bytes > EditMark
+		 && DpyStart + dpy_bytes <= EditAt))) {
+	    TmpStyleOff(prompting ? s_prompt_sel : s_aedit_sel);
+	}
+#endif
+    }
+
+    /*
+     * Erase rest of input area.
+     */
+    padsize = DpyWidth - (Offs2Col[dpy_bytes] - StartX);
+    fill_edited_line(prompting, padsize, PadChar);
+
+    /*
+     * Scrolling indicators.
+     */
+    if (IsPanned && dpy_bytes && rgt_shift) {
+	CTRACE((tfp, "Draw right-scroller offset (%d + %d)\n",
+		dpy_cells, lft_shift));
+	TmpStyleOn(prompting ? s_prompt_edit_arr : s_aedit_arr);
+	LYmove(StartY, StartX + dpy_cells + lft_shift);
+	LYaddch(ACS_RARROW);
+	TmpStyleOff(prompting ? s_prompt_edit_arr : s_aedit_arr);
+    }
+
+    /*
+     * Finally, move the cursor to the point where the next edit will occur.
+     */
+    LYmove(StartY, Offs2Col[EditAt - DpyStart]);
+
+#ifdef USE_COLOR_STYLE
+    if (estyle != NOSTYLE)
+	curses_style(estyle, STACK_OFF);
+#endif
+    LYrefresh();
+}
+
+static void reinsertEdit(FieldEditor * edit, char *result)
+{
+    if (result != 0) {
+	LYDoEdit(edit, '\0', LYE_ERASE, FALSE);
+	while (*result != '\0') {
+	    LYLineEdit(edit, (int) (*result), FALSE);
+	    result++;
+	}
+    }
+}
+
+static int caselessCmpList(const void *a,
+			   const void *b)
+{
+    return strcasecomp(*(STRING2PTR) a, *(STRING2PTR) b);
+}
+
+static int normalCmpList(const void *a,
+			 const void *b)
+{
+    return strcmp(*(STRING2PTR) a, *(STRING2PTR) b);
+}
+
+static char **sortedList(HTList *list, int ignorecase)
+{
+    size_t count = (unsigned) HTList_count(list);
+    size_t j = 0;
+    size_t k, jk;
+    char **result = typecallocn(char *, count + 1);
+
+    if (result == 0)
+	outofmem(__FILE__, "sortedList");
+
+    while (!HTList_isEmpty(list))
+	result[j++] = (char *) HTList_nextObject(list);
+
+    if (count > 1) {
+	qsort((char *) result, count, sizeof(*result),
+	      ignorecase ? caselessCmpList : normalCmpList);
+
+	/* remove duplicate entries from the sorted index */
+	for (j = 0; result[j] != 0; j++) {
+	    k = j;
+	    while (result[k] != 0
+		   && !strcmp(result[j], result[k])) {
+		k++;
+	    }
+	    k--;
+	    if (j != k) {
+		for (jk = j;; jk++) {
+		    result[jk] = result[jk + k - j];
+		    if (result[jk] == 0)
+			break;
+		}
+	    }
+	}
+    }
+
+    return result;
+}
+
+int LYarrayLength(STRING2PTR list)
+{
+    int result = 0;
+
+    while (*list++ != 0)
+	result++;
+    return result;
+}
+
+int LYarrayWidth(STRING2PTR list)
+{
+    int result = 0;
+    int check;
+
+    while (*list != 0) {
+	check = (int) strlen(*list++);
+	if (check > result)
+	    result = check;
+    }
+    return result;
+}
+
+static void FormatChoiceNum(char *target,
+			    int num_choices,
+			    int choice,
+			    const char *value)
+{
+    if (num_choices >= 0) {
+	int digits = (num_choices > 9) ? 2 : 1;
+
+	sprintf(target, "%*d: %.*s",
+		digits, (choice + 1),
+		MAX_LINE - 9 - digits, value);
+    } else {
+	LYStrNCpy(target, value, MAX_LINE - 1);
+    }
+}
+
+static unsigned options_width(STRING2PTR list)
+{
+    unsigned width = 0;
+    int count = 0;
+
+    while (list[count] != 0) {
+	unsigned ncells = (unsigned) LYstrCells(list[count]);
+
+	if (ncells > width) {
+	    width = ncells;
+	}
+	count++;
+    }
+    return width;
+}
+
+static void draw_option(WINDOW * win, int entry,
+			int width,
+			int reversed,
+			int num_choices,
+			int number,
+			const char *value)
+{
+    char Cnum[MAX_LINE];
+
+    (void) width;
+
+    FormatChoiceNum(Cnum, num_choices, number, "");
+#ifdef USE_SLANG
+    SLsmg_gotorc(win->top_y + entry, (win->left_x + 2));
+    LYaddstr(Cnum);
+    if (reversed)
+	SLsmg_set_color(2);
+    SLsmg_write_nstring((SLFUTURE_CONST char *) value, (unsigned) win->width);
+    if (reversed)
+	SLsmg_set_color(0);
+#else
+    wmove(win, entry, 1);
+    LynxWChangeStyle(win, s_menu_entry, STACK_ON);
+    waddch(win, ' ');
+    LynxWChangeStyle(win, s_menu_entry, STACK_OFF);
+    LynxWChangeStyle(win, s_menu_number, STACK_ON);
+    waddstr(win, Cnum);
+    LynxWChangeStyle(win, s_menu_number, STACK_OFF);
+#ifdef USE_COLOR_STYLE
+    LynxWChangeStyle(win, reversed ? s_menu_active : s_menu_entry, STACK_ON);
+#else
+    if (reversed)
+	wstart_reverse(win);
+#endif
+    LYpaddstr(win, width, value);
+#ifdef USE_COLOR_STYLE
+    LynxWChangeStyle(win, reversed ? s_menu_active : s_menu_entry, STACK_OFF);
+#else
+    if (reversed)
+	wstop_reverse(win);
+#endif
+    LynxWChangeStyle(win, s_menu_entry, STACK_ON);
+    waddch(win, ' ');
+    LynxWChangeStyle(win, s_menu_entry, STACK_OFF);
+#endif /* USE_SLANG */
+}
+
+static void show_popup_status(int cur_choice,
+			      STRING2PTR choices,
+			      int disabled,
+			      int for_mouse)
+{
+    if (disabled) {
+	_statusline(CHOICE_LIST_UNM_MSG);
+    } else if (!for_mouse) {
+	if (fields_are_named()) {
+	    char *status_msg = NULL;
+
+	    HTSprintf0(&status_msg, CHOICE_LIST_ADV_MSG, choices[cur_choice]);
+	    _statusline(status_msg);
+	    FREE(status_msg);
+	} else {
+	    _statusline(CHOICE_LIST_MESSAGE);
+	}
+#if defined(USE_MOUSE) && (defined(NCURSES) || defined(PDCURSES))
+    } else {
+	_statusline(MOUSE_CHOICE_MESSAGE);
+#endif
+    }
+}
+
+#define SHOW_POPUP_STATUS() show_popup_status(cur_choice, choices, disabled, for_mouse)
+
+/*
+ * This function offers the choices for values of an option via a popup window
+ * which functions like that for selection of options in a form.  - FM
+ *
+ * Also used for mouse popups with ncurses; this is indicated by for_mouse.
+ */
+int LYhandlePopupList(int cur_choice,
+		      int ly,
+		      int lx,
+		      STRING2PTR choices,
+		      int width,
+		      int i_length,
+		      int disabled,
+		      int for_mouse)
+{
+    BOOLEAN numbered = (BOOLEAN) (keypad_mode != NUMBERS_AS_ARROWS);
+    int c = 0, cmd = 0, i = 0, j = 0, rel = 0;
+    int orig_choice;
+    WINDOW *form_window;
+    int num_choices = 0;
+    int max_choices = 0;
+    int top, bottom, length = -1;
+    int window_offset = 0;
+    int lines_to_show;
+    char Cnum[64];
+    int Lnum;
+    int npages;
+    static bstring *prev_target = NULL;		/* Search string buffer */
+    static bstring *next_target = NULL;		/* Next search buffer */
+    static BOOL first = TRUE;
+    char *cp;
+    int ch = 0;
+    RecallType recall;
+    int QueryTotal;
+    int QueryNum;
+    BOOLEAN FirstRecall = TRUE;
+    BOOLEAN ReDraw = FALSE;
+    int number;
+    char buffer[MAX_LINE];
+    STRING2PTR Cptr = NULL;
+
+#define CAN_SCROLL_DOWN	1
+#define CAN_SCROLL_UP	2
+#define CAN_SCROLL	4
+    int can_scroll = 0, can_scroll_was = 0;
+
+    orig_choice = cur_choice;
+    if (cur_choice < 0)
+	cur_choice = 0;
+
+    /*
+     * Initialize the search string buffer. - FM
+     */
+    if (first) {
+	BStrCopy0(next_target, "");
+	first = FALSE;
+    }
+    BStrCopy0(prev_target, "");
+    QueryTotal = (search_queries ? HTList_count(search_queries) : 0);
+    recall = ((QueryTotal >= 1) ? RECALL_URL : NORECALL);
+    QueryNum = QueryTotal;
+
+    /*
+     * Count the number of choices to be displayed, where num_choices ranges
+     * from 0 to n, and set width to the longest choice string length.  Also
+     * set Lnum to the length for the highest choice number, then decrement
+     * num_choices so as to be zero-based.  The window width will be based on
+     * the sum of width and Lnum.  - FM
+     */
+    num_choices = LYarrayLength(choices) - 1;
+    if (width <= 0)
+	width = (int) options_width(choices);
+    if (numbered) {
+	sprintf(Cnum, "%d: ", num_choices);
+	Lnum = (int) strlen(Cnum);
+	max_choices = num_choices;
+    } else {
+	Lnum = 0;
+	max_choices = -1;
+    }
+
+    /*
+     * Let's assume for the sake of sanity that ly is the number corresponding
+     * to the line the choice is on.
+     *
+     * Let's also assume that cur_choice is the number of the item that should
+     * be initially selected, as 0 being the first item.
+     *
+     * So what we have, is the top equal to the current screen line subtracting
+     * the cur_choice + 1 (the one must be for the top line we will draw in a
+     * box).  If the top goes under 0, consider it 0.
+     */
+    top = ly - (cur_choice + 1);
+    if (top < 0)
+	top = 0;
+
+    /*
+     * Check and see if we need to put the i_length parameter up to the number
+     * of real choices.
+     */
+    if (i_length < 1) {
+	i_length = num_choices;
+    } else {
+	/*
+	 * Otherwise, it is really one number too high.
+	 */
+	i_length--;
+    }
+
+    /*
+     * The bottom is the value of the top plus the number of options to view
+     * plus 3 (one for the top line, one for the bottom line, and one to offset
+     * the 0 counted in the num_choices).
+     */
+    bottom = top + i_length + 3;
+
+    /*
+     * Set lines_to_show based on the user_mode global.
+     */
+    if (user_mode == NOVICE_MODE)
+	lines_to_show = LYlines - 4;
+    else
+	lines_to_show = LYlines - 2;
+
+    if (for_mouse && user_mode == NOVICE_MODE && lines_to_show > 2)
+	lines_to_show--;
+
+    /*
+     * Hmm...  If the bottom goes beyond the number of lines available,
+     */
+    if (bottom > lines_to_show) {
+	/*
+	 * Position the window at the top if we have more choices than will fit
+	 * in the window.
+	 */
+	if ((i_length + 3) > lines_to_show) {
+	    top = 0;
+	    bottom = (top + (i_length + 3));
+	    if (bottom > lines_to_show)
+		bottom = (lines_to_show + 1);
+	} else {
+	    /*
+	     * Try to position the window so that the selected choice will
+	     * appear where the selection box currently is positioned.  It
+	     * could end up too high, at this point, but we'll move it down
+	     * latter, if that has happened.
+	     */
+	    top = (lines_to_show + 1) - (i_length + 3);
+	    bottom = (lines_to_show + 1);
+	}
+    }
+
+    /*
+     * This is really fun, when the length is 4, it means 0 to 4, or 5.
+     */
+    length = (bottom - top) - 2;
+    if (length <= num_choices)
+	can_scroll = CAN_SCROLL;
+
+    /*
+     * Move the window down if it's too high.
+     */
+    if (bottom < ly + 2) {
+	bottom = ly + 2;
+	if (bottom > lines_to_show + 1)
+	    bottom = lines_to_show + 1;
+	top = bottom - length - 2;
+    }
+
+    if (for_mouse) {
+	int check = (Lnum + (int) width + 4);
+	int limit = LYcols;
+
+	/* shift horizontally to lie within screen width, if possible */
+	if (check < limit) {
+	    if (lx - 1 + check > limit)
+		lx = limit + 1 - check;
+	    else if (lx <= 0)
+		lx = 1;
+	}
+    }
+
+    /*
+     * Set up the overall window, including the boxing characters ('*'), if it
+     * all fits.  Otherwise, set up the widest window possible.  - FM
+     */
+    width += Lnum;
+    bottom -= top;
+
+    if (num_choices <= 0
+	|| cur_choice > num_choices
+	|| (form_window = LYstartPopup(&top,
+				       &lx,
+				       &bottom,
+				       &width)) == 0)
+	return (orig_choice);
+
+    width -= Lnum;
+    bottom += top;
+
+    SHOW_POPUP_STATUS();
+
+    /*
+     * Set up the window_offset for choices.
+     * cur_choice ranges from 0...n
+     * length ranges from 0...m
+     */
+    if (cur_choice >= length) {
+	window_offset = cur_choice - length + 1;
+    }
+
+    /*
+     * Compute the number of popup window pages.  - FM
+     */
+    npages = ((num_choices + 1) > length) ?
+	(((num_choices + 1) + (length - 1)) / (length))
+	: 1;
+    /*
+     * OH!  I LOVE GOTOs!  hack hack hack
+     */
+  redraw:
+
+    /*
+     * Display the boxed choices.
+     */
+    for (i = 0; i <= num_choices; i++) {
+	if (i >= window_offset && i - window_offset < length) {
+	    draw_option(form_window, ((i + 1) - window_offset), width, FALSE,
+			max_choices, i, choices[i]);
+	}
+    }
+    LYbox(form_window, !numbered);
+    Cptr = NULL;
+
+    /*
+     * Loop on user input.
+     */
+    while (cmd != LYK_ACTIVATE) {
+	int row = ((i + 1) - window_offset);
+
+	/* Show scroll indicators. */
+	if (can_scroll) {
+	    can_scroll = ((window_offset ? CAN_SCROLL_UP : 0)
+			  | (num_choices - window_offset >= length
+			     ? CAN_SCROLL_DOWN : 0));
+	    if (~can_scroll & can_scroll_was) {		/* Need to redraw */
+		LYbox(form_window, !numbered);
+		can_scroll_was = 0;
+	    }
+	    if (can_scroll & ~can_scroll_was & CAN_SCROLL_UP) {
+		wmove(form_window, 1, Lnum + width + 3);
+		LynxWChangeStyle(form_window, s_menu_sb, STACK_ON);
+		waddch(form_window, ACS_UARROW);
+		LynxWChangeStyle(form_window, s_menu_sb, STACK_OFF);
+	    }
+	    if (can_scroll & ~can_scroll_was & CAN_SCROLL_DOWN) {
+		wmove(form_window, length, Lnum + width + 3);
+		LynxWChangeStyle(form_window, s_menu_sb, STACK_ON);
+		waddch(form_window, ACS_DARROW);
+		LynxWChangeStyle(form_window, s_menu_sb, STACK_OFF);
+	    }
+	}
+
+	/*
+	 * Unreverse cur choice.
+	 */
+	if (Cptr != NULL) {
+	    draw_option(form_window, row, width, FALSE,
+			max_choices, i, Cptr[i]);
+	}
+	Cptr = choices;
+	i = cur_choice;
+	row = ((cur_choice + 1) - window_offset);
+	draw_option(form_window, row, width, TRUE,
+		    max_choices, cur_choice, Cptr[cur_choice]);
+	LYstowCursor(form_window, row, 1);
+
+	c = LYgetch_choice();
+	if (term_options || LYCharIsINTERRUPT(c)) {	/* Control-C or Control-G */
+	    cmd = LYK_QUIT;
+#ifndef USE_SLANG
+	} else if (c == MOUSE_KEY) {
+	    if ((cmd = fancy_mouse(form_window, row, &cur_choice)) < 0)
+		goto redraw;
+	    if (cmd == LYK_ACTIVATE)
+		break;
+#endif
+	} else {
+	    cmd = LKC_TO_LAC(keymap, c);
+	}
+#ifdef VMS
+	if (HadVMSInterrupt) {
+	    HadVMSInterrupt = FALSE;
+	    cmd = LYK_QUIT;
+	}
+#endif /* VMS */
+
+	switch (cmd) {
+	case LYK_F_LINK_NUM:
+	    c = '\0';
+	    /* FALLTHRU */
+	case LYK_1:		/* FALLTHRU */
+	case LYK_2:		/* FALLTHRU */
+	case LYK_3:		/* FALLTHRU */
+	case LYK_4:		/* FALLTHRU */
+	case LYK_5:		/* FALLTHRU */
+	case LYK_6:		/* FALLTHRU */
+	case LYK_7:		/* FALLTHRU */
+	case LYK_8:		/* FALLTHRU */
+	case LYK_9:
+	    /*
+	     * Get a number from the user, possibly with a 'g' or 'p' suffix
+	     * (which will be loaded into c).  - FM & LE
+	     */
+	    number = get_popup_number(SELECT_OPTION_NUMBER, &c, &rel);
+
+	    /* handle + or - suffix */
+	    CTRACE((tfp, "got popup option number %d, ", number));
+	    CTRACE((tfp, "rel='%c', c='%c', cur_choice=%d\n",
+		    rel, c, cur_choice));
+	    if (c == 'p') {
+		int curpage = ((cur_choice + 1) > length) ?
+		(((cur_choice + 1) + (length - 1)) / (length))
+		: 1;
+
+		CTRACE((tfp, "  curpage=%d\n", curpage));
+		if (rel == '+')
+		    number = curpage + number;
+		else if (rel == '-')
+		    number = curpage - number;
+	    } else if (rel == '+') {
+		number = cur_choice + number + 1;
+	    } else if (rel == '-') {
+		number = cur_choice - number + 1;
+	    }
+	    if (rel)
+		CTRACE((tfp, "new number=%d\n", number));
+	    /*
+	     * Check for a 'p' suffix.  - FM
+	     */
+	    if (c == 'p') {
+		/*
+		 * Treat 1 or less as the first page.  - FM
+		 */
+		if (number <= 1) {
+		    if (window_offset == 0) {
+			HTUserMsg(ALREADY_AT_OPTION_BEGIN);
+			SHOW_POPUP_STATUS();
+			break;
+		    }
+		    window_offset = 0;
+		    cur_choice = 0;
+		    SHOW_POPUP_STATUS();
+		    goto redraw;
+		}
+
+		/*
+		 * Treat a number equal to or greater than the number of pages
+		 * as the last page.  - FM
+		 */
+		if (number >= npages) {
+		    if (window_offset >= ((num_choices - length) + 1)) {
+			HTUserMsg(ALREADY_AT_OPTION_END);
+			SHOW_POPUP_STATUS();
+			break;
+		    }
+		    window_offset = ((npages - 1) * length);
+		    if (window_offset > (num_choices - length)) {
+			window_offset = (num_choices - length + 1);
+		    }
+		    if (cur_choice < window_offset)
+			cur_choice = window_offset;
+		    SHOW_POPUP_STATUS();
+		    goto redraw;
+		}
+
+		/*
+		 * We want an intermediate page.  - FM
+		 */
+		if (((number - 1) * length) == window_offset) {
+		    char *msg = 0;
+
+		    HTSprintf0(&msg, ALREADY_AT_OPTION_PAGE, number);
+		    HTUserMsg(msg);
+		    FREE(msg);
+		    SHOW_POPUP_STATUS();
+		    break;
+		}
+		cur_choice = window_offset = ((number - 1) * length);
+		SHOW_POPUP_STATUS();
+		goto redraw;
+
+	    }
+
+	    /*
+	     * Check for a positive number, which signifies that a choice
+	     * should be sought.  - FM
+	     */
+	    if (number > 0) {
+		/*
+		 * Decrement the number so as to correspond with our cur_choice
+		 * values.  - FM
+		 */
+		number--;
+
+		/*
+		 * If the number is in range and had no legal suffix, select
+		 * the indicated choice.  - FM
+		 */
+		if (number <= num_choices && c == '\0') {
+		    cur_choice = number;
+		    cmd = LYK_ACTIVATE;
+		    break;
+		}
+
+		/*
+		 * Verify that we had a 'g' suffix, and act on the number.  -
+		 * FM
+		 */
+		if (c == 'g') {
+		    if (cur_choice == number) {
+			/*
+			 * The choice already is current.  - FM
+			 */
+			char *msg = 0;
+
+			HTSprintf0(&msg, OPTION_ALREADY_CURRENT, (number + 1));
+			HTUserMsg(msg);
+			FREE(msg);
+			SHOW_POPUP_STATUS();
+			break;
+		    }
+
+		    if (number <= num_choices) {
+			/*
+			 * The number is in range and had a 'g' suffix, so make
+			 * it the current option, scrolling if needed.  - FM
+			 */
+			j = (number - cur_choice);
+			cur_choice = number;
+			if ((j > 0) &&
+			    (cur_choice - window_offset) >= length) {
+			    window_offset += j;
+			    if (window_offset > (num_choices - length + 1))
+				window_offset = (num_choices - length + 1);
+			} else if ((cur_choice - window_offset) < 0) {
+			    window_offset -= abs(j);
+			    if (window_offset < 0)
+				window_offset = 0;
+			}
+			SHOW_POPUP_STATUS();
+			goto redraw;
+		    }
+
+		    /*
+		     * Not in range.  - FM
+		     */
+		    HTUserMsg(BAD_OPTION_NUM_ENTERED);
+		}
+	    }
+
+	    /*
+	     * Restore the popup statusline.  - FM
+	     */
+	    SHOW_POPUP_STATUS();
+	    break;
+
+	case LYK_PREV_LINK:
+	case LYK_LPOS_PREV_LINK:
+	case LYK_FASTBACKW_LINK:
+	case LYK_UP_LINK:
+
+	    if (cur_choice > 0)
+		cur_choice--;
+
+	    /*
+	     * Scroll the window up if necessary.
+	     */
+	    if ((cur_choice - window_offset) < 0) {
+		window_offset--;
+		goto redraw;
+	    }
+	    break;
+
+	case LYK_NEXT_LINK:
+	case LYK_LPOS_NEXT_LINK:
+	case LYK_FASTFORW_LINK:
+	case LYK_DOWN_LINK:
+	    if (cur_choice < num_choices)
+		cur_choice++;
+
+	    /*
+	     * Scroll the window down if necessary
+	     */
+	    if ((cur_choice - window_offset) >= length) {
+		window_offset++;
+		goto redraw;
+	    }
+	    break;
+
+	case LYK_NEXT_PAGE:
+	    /*
+	     * Okay, are we on the last page of the list?  If not then,
+	     */
+	    if (window_offset != (num_choices - length + 1)) {
+		/*
+		 * Modify the current choice to not be a coordinate in the
+		 * list, but a coordinate on the item selected in the window.
+		 */
+		cur_choice -= window_offset;
+
+		/*
+		 * Page down the proper length for the list.  If simply to far,
+		 * back up.
+		 */
+		window_offset += length;
+		if (window_offset > (num_choices - length)) {
+		    window_offset = (num_choices - length + 1);
+		}
+
+		/*
+		 * Readjust the current selection to be a list coordinate
+		 * rather than window.  Redraw this thing.
+		 */
+		cur_choice += window_offset;
+		goto redraw;
+	    } else if (cur_choice < num_choices) {
+		/*
+		 * Already on last page of the list so just redraw it with the
+		 * last item selected.
+		 */
+		cur_choice = num_choices;
+	    }
+	    break;
+
+	case LYK_PREV_PAGE:
+	    /*
+	     * Are we on the first page of the list?  If not then,
+	     */
+	    if (window_offset != 0) {
+		/*
+		 * Modify the current selection to not be a list coordinate,
+		 * but a window coordinate.
+		 */
+		cur_choice -= window_offset;
+
+		/*
+		 * Page up the proper length.  If too far, back up.
+		 */
+		window_offset -= length;
+		if (window_offset < 0) {
+		    window_offset = 0;
+		}
+
+		/*
+		 * Readjust the current choice.
+		 */
+		cur_choice += window_offset;
+		goto redraw;
+	    } else if (cur_choice > 0) {
+		/*
+		 * Already on the first page so just back up to the first item.
+		 */
+		cur_choice = 0;
+	    }
+	    break;
+
+	case LYK_HOME:
+	    cur_choice = 0;
+	    if (window_offset > 0) {
+		window_offset = 0;
+		goto redraw;
+	    }
+	    break;
+
+	case LYK_END:
+	    cur_choice = num_choices;
+	    if (window_offset != (num_choices - length + 1)) {
+		window_offset = (num_choices - length + 1);
+		goto redraw;
+	    }
+	    break;
+
+	case LYK_DOWN_TWO:
+	    cur_choice += 2;
+	    if (cur_choice > num_choices)
+		cur_choice = num_choices;
+
+	    /*
+	     * Scroll the window down if necessary.
+	     */
+	    if ((cur_choice - window_offset) >= length) {
+		window_offset += 2;
+		if (window_offset > (num_choices - length + 1))
+		    window_offset = (num_choices - length + 1);
+		goto redraw;
+	    }
+	    break;
+
+	case LYK_UP_TWO:
+	    cur_choice -= 2;
+	    if (cur_choice < 0)
+		cur_choice = 0;
+
+	    /*
+	     * Scroll the window up if necessary.
+	     */
+	    if ((cur_choice - window_offset) < 0) {
+		window_offset -= 2;
+		if (window_offset < 0)
+		    window_offset = 0;
+		goto redraw;
+	    }
+	    break;
+
+	case LYK_DOWN_HALF:
+	    cur_choice += (length / 2);
+	    if (cur_choice > num_choices)
+		cur_choice = num_choices;
+
+	    /*
+	     * Scroll the window down if necessary.
+	     */
+	    if ((cur_choice - window_offset) >= length) {
+		window_offset += (length / 2);
+		if (window_offset > (num_choices - length + 1))
+		    window_offset = (num_choices - length + 1);
+		goto redraw;
+	    }
+	    break;
+
+	case LYK_UP_HALF:
+	    cur_choice -= (length / 2);
+	    if (cur_choice < 0)
+		cur_choice = 0;
+
+	    /*
+	     * Scroll the window up if necessary.
+	     */
+	    if ((cur_choice - window_offset) < 0) {
+		window_offset -= (length / 2);
+		if (window_offset < 0)
+		    window_offset = 0;
+		goto redraw;
+	    }
+	    break;
+
+	case LYK_REFRESH:
+	    lynx_force_repaint();
+	    LYrefresh();
+	    break;
+
+	case LYK_NEXT:
+	    if (recall && isBEmpty(next_target)) {
+		/*
+		 * We got a 'n'ext command with no prior query specified within
+		 * the popup window.  See if one was entered when the popup was
+		 * retracted, and if so, assume that's what's wanted.  Note
+		 * that it will become the default within popups, unless
+		 * another is entered within a popup.  If the within popup
+		 * default is to be changed at that point, use WHEREIS ('/')
+		 * and enter it, or the up- or down-arrow keys to seek any of
+		 * the previously entered queries, regardless of whether they
+		 * were entered within or outside of a popup window.  - FM
+		 */
+		if ((cp = (char *) HTList_objectAt(search_queries,
+						   0)) != NULL) {
+		    BStrCopy0(next_target, cp);
+		    QueryNum = 0;
+		    FirstRecall = FALSE;
+		}
+	    }
+	    BStrCopy(prev_target, next_target);
+	    /* FALLTHRU */
+	case LYK_WHEREIS:
+	    if (isBEmpty(prev_target)) {
+		_statusline(ENTER_WHEREIS_QUERY);
+		if ((ch = LYgetBString(&prev_target, FALSE, 0, recall)) < 0) {
+		    /*
+		     * User cancelled the search via ^G.  - FM
+		     */
+		    HTInfoMsg(CANCELLED);
+		    goto restore_popup_statusline;
+		}
+	    }
+
+	  check_recall:
+	    if (isBEmpty(prev_target) &&
+		!(recall && (ch == UPARROW_KEY || ch == DNARROW_KEY))) {
+		/*
+		 * No entry.  Simply break.  - FM
+		 */
+		HTInfoMsg(CANCELLED);
+		goto restore_popup_statusline;
+	    }
+
+	    if (recall && ch == UPARROW_KEY) {
+		if (FirstRecall) {
+		    /*
+		     * Use the current string or last query in the list.  - FM
+		     */
+		    FirstRecall = FALSE;
+		    if (!isBEmpty(next_target)) {
+			for (QueryNum = (QueryTotal - 1);
+			     QueryNum > 0; QueryNum--) {
+			    if ((cp = (char *) HTList_objectAt(search_queries,
+							       QueryNum))
+				!= NULL &&
+				!strcmp(next_target->str, cp)) {
+				break;
+			    }
+			}
+		    } else {
+			QueryNum = 0;
+		    }
+		} else {
+		    /*
+		     * Go back to the previous query in the list.  - FM
+		     */
+		    QueryNum++;
+		}
+		if (QueryNum >= QueryTotal) {
+		    /*
+		     * Roll around to the last query in the list.  - FM
+		     */
+		    QueryNum = 0;
+		}
+		if ((cp = (char *) HTList_objectAt(search_queries,
+						   QueryNum)) != NULL) {
+		    BStrCopy0(prev_target, cp);
+		    if (!isBEmpty(next_target) &&
+			!strcmp(next_target->str, prev_target->str)) {
+			_statusline(EDIT_CURRENT_QUERY);
+		    } else if ((!isBEmpty(next_target) && QueryTotal == 2) ||
+			       (isBEmpty(next_target) && QueryTotal == 1)) {
+			_statusline(EDIT_THE_PREV_QUERY);
+		    } else {
+			_statusline(EDIT_A_PREV_QUERY);
+		    }
+		    if ((ch = LYgetBString(&prev_target,
+					   FALSE, 0, recall)) < 0) {
+			/*
+			 * User cancelled the search via ^G.  - FM
+			 */
+			HTInfoMsg(CANCELLED);
+			goto restore_popup_statusline;
+		    }
+		    goto check_recall;
+		}
+	    } else if (recall && ch == DNARROW_KEY) {
+		if (FirstRecall) {
+		    /*
+		     * Use the current string or first query in the list.  - FM
+		     */
+		    FirstRecall = FALSE;
+		    if (!isBEmpty(next_target)) {
+			for (QueryNum = 0;
+			     QueryNum < (QueryTotal - 1); QueryNum++) {
+			    if ((cp = (char *) HTList_objectAt(search_queries,
+							       QueryNum))
+				!= NULL &&
+				!strcmp(next_target->str, cp)) {
+				break;
+			    }
+			}
+		    } else {
+			QueryNum = (QueryTotal - 1);
+		    }
+		} else {
+		    /*
+		     * Advance to the next query in the list.  - FM
+		     */
+		    QueryNum--;
+		}
+		if (QueryNum < 0) {
+		    /*
+		     * Roll around to the first query in the list.  - FM
+		     */
+		    QueryNum = (QueryTotal - 1);
+		}
+		if ((cp = (char *) HTList_objectAt(search_queries,
+						   QueryNum)) != NULL) {
+		    BStrCopy0(prev_target, cp);
+		    if (isBEmpty(next_target) &&
+			!strcmp(next_target->str, prev_target->str)) {
+			_statusline(EDIT_CURRENT_QUERY);
+		    } else if ((!isBEmpty(next_target) && QueryTotal == 2) ||
+			       (isBEmpty(next_target) && QueryTotal == 1)) {
+			_statusline(EDIT_THE_PREV_QUERY);
+		    } else {
+			_statusline(EDIT_A_PREV_QUERY);
+		    }
+		    if ((ch = LYgetBString(&prev_target,
+					   FALSE, 0, recall)) < 0) {
+			/*
+			 * User cancelled the search via ^G. - FM
+			 */
+			HTInfoMsg(CANCELLED);
+			goto restore_popup_statusline;
+		    }
+		    goto check_recall;
+		}
+	    }
+	    /*
+	     * Replace the search string buffer with the new target.  - FM
+	     */
+	    BStrCopy(next_target, prev_target);
+	    HTAddSearchQuery(next_target->str);
+
+	    /*
+	     * Start search at the next choice.  - FM
+	     */
+	    for (j = 1; Cptr[i + j] != NULL; j++) {
+		FormatChoiceNum(buffer, max_choices, (i + j), Cptr[i + j]);
+		if (LYcase_sensitive) {
+		    if (strstr(buffer, next_target->str) != NULL)
+			break;
+		} else {
+		    if (LYstrstr(buffer, next_target->str) != NULL)
+			break;
+		}
+	    }
+	    if (Cptr[i + j] != NULL) {
+		/*
+		 * We have a hit, so make that choice the current.  - FM
+		 */
+		cur_choice += j;
+		/*
+		 * Scroll the window down if necessary.
+		 */
+		if ((cur_choice - window_offset) >= length) {
+		    window_offset += j;
+		    if (window_offset > (num_choices - length + 1))
+			window_offset = (num_choices - length + 1);
+		    ReDraw = TRUE;
+		}
+		goto restore_popup_statusline;
+	    }
+
+	    /*
+	     * If we started at the beginning, it can't be present.  - FM
+	     */
+	    if (cur_choice == 0) {
+		HTUserMsg2(STRING_NOT_FOUND, next_target->str);
+		goto restore_popup_statusline;
+	    }
+
+	    /*
+	     * Search from the beginning to the current choice.  - FM
+	     */
+	    for (j = 0; j < cur_choice; j++) {
+		FormatChoiceNum(buffer, max_choices, (j + 1), Cptr[j]);
+		if (LYcase_sensitive) {
+		    if (strstr(buffer, next_target->str) != NULL)
+			break;
+		} else {
+		    if (LYstrstr(buffer, next_target->str) != NULL)
+			break;
+		}
+	    }
+	    if (j < cur_choice) {
+		/*
+		 * We have a hit, so make that choice the current.  - FM
+		 */
+		j = (cur_choice - j);
+		cur_choice -= j;
+		/*
+		 * Scroll the window up if necessary.
+		 */
+		if ((cur_choice - window_offset) < 0) {
+		    window_offset -= j;
+		    if (window_offset < 0)
+			window_offset = 0;
+		    ReDraw = TRUE;
+		}
+		goto restore_popup_statusline;
+	    }
+
+	    /*
+	     * Didn't find it in the preceding choices either.  - FM
+	     */
+	    HTUserMsg2(STRING_NOT_FOUND, next_target->str);
+
+	  restore_popup_statusline:
+	    /*
+	     * Restore the popup statusline and reset the search variables.  -
+	     * FM
+	     */
+	    SHOW_POPUP_STATUS();
+	    BStrCopy0(prev_target, "");
+	    QueryTotal = (search_queries ? HTList_count(search_queries)
+			  : 0);
+	    recall = ((QueryTotal >= 1) ? RECALL_URL : NORECALL);
+	    QueryNum = QueryTotal;
+	    if (ReDraw == TRUE) {
+		ReDraw = FALSE;
+		goto redraw;
+	    }
+	    break;
+
+	case LYK_QUIT:
+	case LYK_ABORT:
+	case LYK_PREV_DOC:
+	case LYK_INTERRUPT:
+	    cur_choice = orig_choice;
+	    cmd = LYK_ACTIVATE;	/* to exit */
+	    break;
+	}
+    }
+    LYstopPopup();
+
+    return (disabled ? orig_choice : cur_choice);
+}
+
+/*
+ * Allow the user to edit a string.
+ */
+int LYgetBString(bstring **inputline,
+		 int hidden,
+		 unsigned max_cols,
+		 RecallType recall)
+{
+    int x, y;
+    int ch;
+    int xlec = -2;
+    int last_xlec = -1;
+    int last_xlkc = -1;
+    FieldEditor MyEdit, *edit = &MyEdit;
+
+#ifdef SUPPORT_MULTIBYTE_EDIT
+    BOOL refresh_mb = TRUE;
+#endif /* SUPPORT_MULTIBYTE_EDIT */
+    BOOL done = FALSE;
+    int result = -1;
+
+    CTRACE((tfp, "called LYgetBString hidden %d, recall %d\n", hidden, (int) recall));
+
+    LYGetYX(y, x);		/* Use screen from cursor position to eol */
+
+    (void) y;
+    (void) x;
+
+    if (*inputline == NULL)	/* caller may not have initialized this */
+	BStrCopy0(*inputline, "");
+
+    LYSetupEdit(edit, (*inputline)->str, max_cols, LYcolLimit - x);
+    IsHidden = (BOOL) hidden;
+#ifdef FEPCTRL
+    fep_on();
+#endif
+
+    while (!done) {
+      beginning:
+#ifndef SUPPORT_MULTIBYTE_EDIT
+	LYRefreshEdit(edit);
+#else /* SUPPORT_MULTIBYTE_EDIT */
+	if (refresh_mb)
+	    LYRefreshEdit(edit);
+#endif /* SUPPORT_MULTIBYTE_EDIT */
+	ch = LYReadCmdKey(FOR_PROMPT);
+#ifdef SUPPORT_MULTIBYTE_EDIT
+#ifdef CJK_EX			/* for SJIS code */
+	if (!refresh_mb
+	    && (EditBinding(ch) != LYE_CHAR))
+	    goto beginning;
+#else
+	if (!refresh_mb
+	    && (EditBinding(ch) != LYE_CHAR)
+	    && (EditBinding(ch) != LYE_AIX))
+	    goto beginning;
+#endif
+#endif /* SUPPORT_MULTIBYTE_EDIT */
+
+	if (term_letter || term_options
+#ifdef VMS
+	    || HadVMSInterrupt
+#endif /* VMS */
+#ifndef DISABLE_NEWS
+	    || term_message
+#endif
+	    ) {
+#ifdef VMS
+	    HadVMSInterrupt = FALSE;
+#endif /* VMS */
+	    ch = LYCharINTERRUPT2;
+	}
+
+	if (recall != NORECALL && (ch == UPARROW_KEY || ch == DNARROW_KEY)) {
+	    BStrCopy0(*inputline, Buffer);
+	    LYAddToCloset(recall, Buffer);
+	    CTRACE((tfp, "LYgetstr(%s) recall\n", (*inputline)->str));
+#ifdef FEPCTRL
+	    fep_off();
+#endif
+	    LYFinishEdit(edit);
+	    result = ch;
+	    done = TRUE;
+	    continue;
+	}
+	ch |= InputMods;
+	InputMods = 0;
+	if (last_xlkc != -1) {
+	    if (ch == last_xlkc)
+		ch |= LKC_MOD3;
+	    last_xlkc = -1;	/* consumed */
+	}
+#ifndef WIN_EX
+	if (LKC_TO_LAC(keymap, ch) == LYK_REFRESH)
+	    goto beginning;
+#endif
+	last_xlec = xlec;
+	xlec = EditBinding(ch);
+	if ((xlec & LYE_DF) && !(xlec & LYE_FORM_LAC)) {
+	    last_xlkc = ch;
+	    xlec &= ~LYE_DF;
+	} else {
+	    last_xlkc = -1;
+	}
+	switch (xlec) {
+	case LYE_SETM1:
+	    InputMods |= LKC_MOD1;
+	    break;
+	case LYE_SETM2:
+	    InputMods |= LKC_MOD2;
+	    break;
+	case LYE_TAB:
+	    if (xlec == last_xlec && recall != NORECALL) {
+		HTList *list = whichRecall(recall);
+
+		if (!HTList_isEmpty(list)) {
+		    char **data = sortedList(list, (BOOL) (recall == RECALL_CMD));
+		    int old_y, old_x;
+		    int cur_choice = 0;
+		    int num_options = LYarrayLength((STRING2PTR) data);
+
+		    while (cur_choice < num_options
+			   && strcasecomp(data[cur_choice], Buffer) < 0)
+			cur_choice++;
+
+		    LYGetYX(old_y, old_x);
+		    cur_choice = LYhandlePopupList(cur_choice,
+						   0,
+						   old_x,
+						   (STRING2PTR) data,
+						   -1,
+						   -1,
+						   FALSE,
+						   FALSE);
+		    if (cur_choice >= 0) {
+			if (recall == RECALL_CMD)
+			    _statusline(": ");
+			reinsertEdit(edit, data[cur_choice]);
+		    }
+		    LYmove(old_y, old_x);
+		    FREE(data);
+		}
+	    } else {
+		reinsertEdit(edit, LYFindInCloset(recall, Buffer));
+	    }
+	    break;
+
+#ifndef CJK_EX
+	case LYE_AIX:
+	    /*
+	     * Handle CJK characters, or as a valid character in the current
+	     * display character set.  Otherwise, we treat this as LYE_ENTER.
+	     */
+	    if (ch != '\t' &&
+		(IS_CJK_TTY ||
+		 LYlowest_eightbit[current_char_set] <= 0x97)) {
+		LYLineEdit(edit, ch, FALSE);
+		break;
+	    }
+#endif
+	    /* FALLTHRU */
+	case LYE_ENTER:
+	    BStrCopy0(*inputline, Buffer);
+	    if (!hidden)
+		LYAddToCloset(recall, Buffer);
+	    CTRACE((tfp, "LYgetstr(%s) LYE_ENTER\n", (*inputline)->str));
+#ifdef FEPCTRL
+	    fep_off();
+#endif
+	    LYFinishEdit(edit);
+	    result = ch;
+	    done = TRUE;
+	    continue;
+
+#ifdef CAN_CUT_AND_PASTE
+	case LYE_PASTE:
+	    {
+		unsigned char *s = (unsigned char *) get_clip_grab(), *e;
+		size_t len;
+
+		if (!s)
+		    break;
+		len = strlen((const char *) s);
+		e = s + len;
+
+		if (len != 0) {
+		    unsigned char *e1 = s;
+
+		    while (e1 < e) {
+			if (*e1 < ' ') {	/* Stop here? */
+			    if (e1 > s)
+				LYEditInsert(edit, s, (int) (e1 - s),
+					     map_active, TRUE);
+			    s = e1;
+			    if (*e1 == '\t') {	/* Replace by space */
+				LYEditInsert(edit,
+					     (unsigned const char *) " ",
+					     1,
+					     map_active,
+					     TRUE);
+				s = ++e1;
+			    } else {
+				break;
+			    }
+			} else {
+			    ++e1;
+			}
+		    }
+		    if (e1 > s) {
+			LYEditInsert(edit, s, (int) (e1 - s), map_active, TRUE);
+		    }
+		}
+		get_clip_release();
+		break;
+	    }
+#endif
+
+	case LYE_ABORT:
+	    CTRACE((tfp, "LYgetstr LYE_ABORT\n"));
+#ifdef FEPCTRL
+	    fep_off();
+#endif
+	    LYFinishEdit(edit);
+	    BStrCopy0(*inputline, "");
+	    done = TRUE;
+	    continue;
+
+	case LYE_STOP:
+	    CTRACE((tfp, "LYgetstr LYE_STOP\n"));
+#ifdef TEXTFIELDS_MAY_NEED_ACTIVATION
+	    textfields_need_activation = TRUE;
+	    LYFinishEdit(edit);
+	    BStrCopy0(*inputline, "");
+	    done = TRUE;
+	    continue;
+#else
+#ifdef ENHANCED_LINEEDIT
+	    disableEditMark();
+#endif
+	    break;
+#endif
+
+	case LYE_LKCMD:
+	    /*
+	     * Used only in form_getstr() for invoking the LYK_F_LINK_NUM
+	     * prompt when in form text fields.  - FM
+	     */
+	    break;
+
+	case LYE_FORM_PASS:
+	    /*
+	     * Used in form_getstr() to end line editing and pass on the input
+	     * char/lynxkeycode.  Here it is just ignored.  - kw
+	     */
+	    break;
+
+	default:
+	    if (xlec & LYE_FORM_LAC) {
+		/*
+		 * Used in form_getstr() to end line editing and pass on the
+		 * lynxkeycode already containing a lynxactioncode.  Here it is
+		 * just ignored.  - kw
+		 */
+		break;
+	    }
+#ifndef SUPPORT_MULTIBYTE_EDIT
+	    LYLineEdit(edit, ch, FALSE);
+#else /* SUPPORT_MULTIBYTE_EDIT */
+	    if (LYLineEdit(edit, ch, FALSE) == 0) {
+		if (refresh_mb && IS_CJK_TTY && (0x81 <= ch) && (ch <= 0xfe))
+		    refresh_mb = FALSE;
+		else
+		    refresh_mb = TRUE;
+	    } else {
+		if (!refresh_mb) {
+		    LYDoEdit(edit, 0, LYE_DELP, FALSE);
+		}
+	    }
+#endif /* SUPPORT_MULTIBYTE_EDIT */
+	}
+    }
+    return result;
+}
+
+/*
+ * Use this for fixed-buffer edits which have not been converted to use
+ * LYgetBString().
+ */
+int LYgetstr(char *inputline,	/* fixed-size buffer for input/output */
+	     int hidden,	/* true to suppress from command-history */
+	     unsigned bufsize,	/* sizeof(inputline) */
+	     RecallType recall)	/* type of command-history */
+{
+    int ch;
+    bstring *my_bstring = NULL;
+
+    BStrCopy0(my_bstring, inputline);
+    if (my_bstring != 0) {
+	ch = LYgetBString(&my_bstring, hidden, bufsize, recall);
+	if (ch >= 0 && my_bstring != 0)
+	    LYStrNCpy(inputline, my_bstring->str, bufsize);
+	BStrFree(my_bstring);
+    } else {
+	ch = -1;
+    }
+    return ch;
+}
+
+const char *LYLineeditHelpURL(void)
+{
+    static int lasthelp_lineedit = -1;
+    static char helpbuf[LY_MAXPATH] = "\0";
+    static char *phelp = &helpbuf[0];
+    const char *result = NULL;
+
+    if (lasthelp_lineedit == current_lineedit) {
+	result = helpbuf;
+    } else {
+	const char *source = LYLineeditHelpURLs[current_lineedit];
+	size_t available;
+
+	if (lasthelp_lineedit == -1) {
+	    LYStrNCpy(helpbuf, helpfilepath, sizeof(helpbuf) - 1);
+	    phelp += strlen(helpbuf);
+	}
+	available = (sizeof(helpbuf) - (size_t) (phelp - helpbuf));
+	if (non_empty(source) &&
+	    (strlen(source) <= available)) {
+	    LYStrNCpy(phelp, source, available);
+	    lasthelp_lineedit = current_lineedit;
+	    result = helpbuf;
+	}
+    }
+    return result;
+}
+
+/*
+ * Wrapper for sscanf to ensure that lynx can "always" read a POSIX float.
+ * In some locales, the decimal point changes.
+ */
+int LYscanFloat2(const char **source, float *result)
+{
+    int count = 0;
+    char *temp;
+    const char *src = *source;
+
+    src = LYSkipCBlanks(src);
+    *result = 0.0;
+    if (StrChr(src, '.') != 0) {
+	long frc_part = 0;
+	float scale = 1.0;
+
+	if (*src != '.') {
+	    temp = NULL;
+	    frc_part = strtol(src, &temp, 10);
+	    *result = (float) frc_part;
+	    src = temp;
+	}
+	if (src != 0 && *src == '.') {
+	    ++src;
+	    if (isdigit(UCH(*src))) {
+		temp = NULL;
+		frc_part = strtol(src, &temp, 10);
+		if (temp != 0) {
+		    int digits = (int) (temp - src);
+
+		    while (digits-- > 0)
+			scale *= (float) 10.0;
+		    *result += ((float) frc_part / scale);
+		}
+		src = temp;
+	    }
+	}
+	if (src != 0 && *src != '\0' && StrChr(" \t+", *src) == 0) {
+	    char *extra = (char *) malloc(2 + strlen(src));
+
+	    if (extra != 0) {
+		extra[0] = '1';
+		strcpy(extra + 1, src);
+		if (sscanf(extra, "%f", &scale) == 1) {
+		    *result *= scale;
+		}
+		FREE(extra);
+		src = LYSkipCNonBlanks(src);
+	    } else {
+		src = 0;
+	    }
+	}
+	if (src != 0)
+	    count = 1;
+    } else {
+	count = sscanf(src, "%f", result);
+	src = LYSkipCNonBlanks(src);
+    }
+    CTRACE2(TRACE_CFG,
+	    (tfp, "LYscanFloat \"%s\" -> %f (%s)\n",
+	     *source, *result,
+	     count ? "ok" : "error"));
+    *source = src;
+    return count;
+}
+
+int LYscanFloat(const char *source, float *result)
+{
+    const char *temp = source;
+
+    return LYscanFloat2(&temp, result);
+}
+
+/*
+ * A replacement for 'strsep()'
+ */
+char *LYstrsep(char **stringp,
+	       const char *delim)
+{
+    char *marker;
+    char *result = 0;
+
+    if (non_empty(stringp)) {
+	result = *stringp;	/* will return the old value */
+	marker = strpbrk(*stringp, delim);
+	if (marker) {
+	    *marker = '\0';	/* terminate the substring */
+	    *stringp = ++marker;	/* point to the next substring */
+	} else {
+	    *stringp = 0;	/* this was the last */
+	}
+    }
+    return result;
+}
+
+/*
+ * LYstrstr finds the first occurrence of the string pointed to by needle
+ * in the string pointed to by haystack.
+ *
+ * It returns NULL if the string is not found.
+ *
+ * It is a case insensitive search.
+ */
+char *LYstrstr(char *haystack,
+	       const char *needle)
+{
+    int len = (int) strlen(needle);
+    char *result = NULL;
+
+    for (; *haystack != '\0'; haystack++) {
+	if (0 == UPPER8(*haystack, *needle)) {
+	    if (0 == strncasecomp8(haystack + 1, needle + 1, len - 1)) {
+		result = haystack;
+		break;
+	    }
+	}
+    }
+
+    return (result);
+}
+
+#define SkipSpecialChars(p) \
+	while (IsSpecialAttrChar(*p) && *p != '\0') \
+	    p++
+
+/*
+ * LYno_attr_char_case_strstr finds the first occurrence of the
+ * string pointed to by needle in the string pointed to by haystack.
+ *
+ * It ignores special characters, e.g., LY_UNDERLINE_START_CHAR in haystack.
+ *
+ * It is a case insensitive search.
+ */
+const char *LYno_attr_char_case_strstr(const char *haystack,
+				       const char *needle)
+{
+    const char *refptr, *tstptr;
+    const char *result = NULL;
+
+    if (haystack != NULL && needle != NULL) {
+
+	SkipSpecialChars(haystack);
+
+	for (; *haystack != '\0' && (result == NULL); haystack++) {
+	    if (0 == UPPER8(*haystack, *needle)) {
+		refptr = haystack + 1;
+		tstptr = needle + 1;
+
+		if (*tstptr == '\0') {
+		    result = haystack;
+		    break;
+		}
+
+		while (1) {
+		    if (!IsSpecialAttrChar(*refptr)) {
+			if (0 != UPPER8(*refptr, *tstptr))
+			    break;
+			refptr++;
+			tstptr++;
+		    } else {
+			refptr++;
+		    }
+		    if (*tstptr == '\0') {
+			result = haystack;
+			break;
+		    }
+		    if (*refptr == '\0')
+			break;
+		}
+	    }
+	}
+    }
+
+    return (result);
+}
+
+/*
+ * LYno_attr_char_strstr finds the first occurrence of the
+ * string pointed to by needle in the string pointed to by haystack.
+ * It ignores special characters, e.g., LY_UNDERLINE_START_CHAR in haystack.
+ *
+ * It is a case sensitive search.
+ */
+const char *LYno_attr_char_strstr(const char *haystack,
+				  const char *needle)
+{
+    const char *refptr, *tstptr;
+    const char *result = NULL;
+
+    if (haystack != NULL && needle != NULL) {
+
+	SkipSpecialChars(haystack);
+
+	for (; *haystack != '\0' && (result == NULL); haystack++) {
+	    if ((*haystack) == (*needle)) {
+		refptr = haystack + 1;
+		tstptr = needle + 1;
+
+		if (*tstptr == '\0') {
+		    result = haystack;
+		    break;
+		}
+
+		while (1) {
+		    if (!IsSpecialAttrChar(*refptr)) {
+			if ((*refptr) != (*tstptr))
+			    break;
+			refptr++;
+			tstptr++;
+		    } else {
+			refptr++;
+		    }
+		    if (*tstptr == '\0') {
+			result = haystack;
+			break;
+		    } else if (*refptr == '\0') {
+			break;
+		    }
+		}
+	    }
+	}
+    }
+
+    return (result);
+}
+
+/*
+ * LYno_attr_mbcs_case_strstr finds the first occurrence of the string pointed
+ * to by needle in the string pointed to by haystack.  It takes account of
+ * MultiByte Character Sequences (UTF8).  The physical lengths of the displayed
+ * string up to the start and end (= next position after) of the target string
+ * are returned in *nstartp and *nendp if the search is successful.
+ *
+ * These lengths count glyph cells if count_gcells is set.  (Full-width
+ * characters in CJK mode count as two.) Normally that's what we want.  They
+ * count actual glyphs if count_gcells is unset.  (Full-width characters in CJK
+ * mode count as one.)
+ *
+ * It ignores special characters, e.g., LY_UNDERLINE_START_CHAR in haystack.
+ *
+ * It assumes UTF8 if utf_flag is set.
+ *
+ * It is a case insensitive search.
+ */
+const char *LYno_attr_mbcs_case_strstr(const char *haystack,
+				       const char *needle,
+				       int utf_flag,
+				       int count_gcells,
+				       int *nstartp,
+				       int *nendp)
+{
+    const char *refptr;
+    const char *tstptr;
+    int len = 0;
+    int offset;
+    const char *result = NULL;
+
+    if (haystack != NULL && needle != NULL) {
+
+	SkipSpecialChars(haystack);
+
+	for (; *haystack != '\0' && (result == NULL); haystack++) {
+	    if ((!utf_flag && IS_CJK_TTY && is8bits(*haystack) &&
+		 *haystack == *needle &&
+		 IsNormalChar(*(haystack + 1))) ||
+		(0 == UPPER8(*haystack, *needle))) {
+		int tarlen = 0;
+
+		offset = len;
+		len++;
+
+		refptr = (haystack + 1);
+		tstptr = (needle + 1);
+
+		if (*tstptr == '\0') {
+		    if (nstartp)
+			*nstartp = offset;
+		    if (nendp)
+			*nendp = len;
+		    result = haystack;
+		    break;
+		}
+		if (!utf_flag && IS_CJK_TTY && is8bits(*haystack) &&
+		    *haystack == *needle &&
+		    IsNormalChar(*refptr)) {
+		    /* handle a CJK multibyte string */
+		    if (*refptr == *tstptr) {
+			refptr++;
+			tstptr++;
+			if (count_gcells)
+			    tarlen++;
+			if (*tstptr == '\0') {
+			    if (nstartp)
+				*nstartp = offset;
+			    if (nendp)
+				*nendp = len + tarlen;
+			    result = haystack;
+			    break;
+			}
+		    } else {
+			/* not a match */
+			haystack++;
+			if (count_gcells)
+			    len++;
+			continue;
+		    }
+		}
+		/* compare the remainder of the string */
+		while (1) {
+		    if (!IsSpecialAttrChar(*refptr)) {
+			if (!utf_flag && IS_CJK_TTY && is8bits(*refptr)) {
+			    if (*refptr == *tstptr &&
+				*(refptr + 1) == *(tstptr + 1) &&
+				!IsSpecialAttrChar(*(refptr + 1))) {
+				refptr++;
+				tstptr++;
+				if (count_gcells)
+				    tarlen++;
+			    } else {
+				break;
+			    }
+			} else if (0 != UPPER8(*refptr, *tstptr)) {
+			    break;
+			}
+
+			if (!IS_UTF_EXTRA(*tstptr)) {
+			    tarlen++;
+			}
+			refptr++;
+			tstptr++;
+
+		    } else {
+			refptr++;
+		    }
+
+		    if (*tstptr == '\0') {
+			if (nstartp)
+			    *nstartp = offset;
+			if (nendp)
+			    *nendp = len + tarlen;
+			result = haystack;
+			break;
+		    }
+		    if (*refptr == '\0')
+			break;
+		}
+	    } else if (!(IS_UTF_EXTRA(*haystack) ||
+			 IsSpecialAttrChar(*haystack))) {
+		if (!utf_flag && IS_CJK_TTY && is8bits(*haystack) &&
+		    IsNormalChar(*(haystack + 1))) {
+		    haystack++;
+		    if (count_gcells)
+			len++;
+		}
+		len++;
+	    }
+	}
+    }
+
+    return (result);
+}
+
+/*
+ * LYno_attr_mbcs_strstr finds the first occurrence of the string pointed
+ * to by needle in the string pointed to by haystack.
+ *
+ * It takes account of CJK and MultiByte Character Sequences (UTF8).  The
+ * physical lengths of the displayed string up to the start and end (= next
+ * position after) the target string are returned in *nstartp and *nendp if the
+ * search is successful.
+ *
+ * These lengths count glyph cells if count_gcells is set.  (Full-width
+ * characters in CJK mode count as two.) Normally that's what we want.  They
+ * count actual glyphs if count_gcells is unset.  (Full-width characters in CJK
+ * mode count as one.)
+ *
+ * It ignores special characters, e.g., LY_UNDERLINE_START_CHAR in haystack.
+ *
+ * It assumes UTF8 if utf_flag is set.
+ *
+ * It is a case sensitive search.
+ */
+const char *LYno_attr_mbcs_strstr(const char *haystack,
+				  const char *needle,
+				  int utf_flag,
+				  int count_gcells,
+				  int *nstartp,
+				  int *nendp)
+{
+    const char *refptr;
+    const char *tstptr;
+    int len = 0;
+    int offset;
+    const char *result = NULL;
+
+    if (haystack != NULL && needle != NULL) {
+
+	SkipSpecialChars(haystack);
+
+	for (; *haystack != '\0' && (result == NULL); haystack++) {
+	    if ((*haystack) == (*needle)) {
+		int tarlen = 0;
+
+		offset = len;
+		len++;
+
+		refptr = (haystack + 1);
+		tstptr = (needle + 1);
+
+		if (*tstptr == '\0') {
+		    if (nstartp)
+			*nstartp = offset;
+		    if (nendp)
+			*nendp = len;
+		    result = haystack;
+		    break;
+		} else if (!utf_flag &&
+			   IS_CJK_TTY &&
+			   is8bits(*haystack) &&
+			   IsNormalChar(*refptr)) {
+		    /* handle a CJK multibyte string */
+		    if (*refptr == *tstptr) {
+			/* found match */
+			refptr++;
+			tstptr++;
+			if (count_gcells)
+			    tarlen++;
+			if (*tstptr == '\0') {
+			    if (nstartp)
+				*nstartp = offset;
+			    if (nendp)
+				*nendp = len + tarlen;
+			    result = haystack;
+			    break;
+			}
+		    } else {
+			/* not a match - restart comparison */
+			haystack++;
+			if (count_gcells)
+			    len++;
+			continue;
+		    }
+		}
+		/* compare the remainder of the string */
+		while (1) {
+		    if (!IsSpecialAttrChar(*refptr)) {
+			if (!utf_flag && IS_CJK_TTY && is8bits(*refptr)) {
+			    if (*refptr == *tstptr &&
+				*(refptr + 1) == *(tstptr + 1) &&
+				!IsSpecialAttrChar(*(refptr + 1))) {
+				refptr++;
+				tstptr++;
+				if (count_gcells)
+				    tarlen++;
+			    } else {
+				break;
+			    }
+			} else if ((*refptr) != (*tstptr)) {
+			    break;
+			}
+
+			if (!IS_UTF_EXTRA(*tstptr)) {
+			    tarlen++;
+			}
+			refptr++;
+			tstptr++;
+		    } else {
+			refptr++;
+		    }
+
+		    if (*tstptr == '\0') {
+			if (nstartp)
+			    *nstartp = offset;
+			if (nendp)
+			    *nendp = len + tarlen;
+			result = haystack;
+			break;
+		    }
+		    if (*refptr == '\0')
+			break;
+		}
+	    } else if (!(IS_UTF_EXTRA(*haystack) ||
+			 IsSpecialAttrChar(*haystack))) {
+		if (!utf_flag && IS_CJK_TTY && is8bits(*haystack) &&
+		    IsNormalChar(*(haystack + 1))) {
+		    haystack++;
+		    if (count_gcells)
+			len++;
+		}
+		len++;
+	    }
+	}
+    }
+    return (result);
+}
+
+/*
+ * Allocate and return a copy of a string.
+ * see StrAllocCopy
+ */
+char *SNACopy(char **target,
+	      const char *source,
+	      size_t n)
+{
+    FREE(*target);
+    if (source) {
+	*target = typeMallocn(char, n + 1);
+
+	if (*target == NULL) {
+	    CTRACE((tfp, "Tried to malloc %lu bytes\n", (unsigned long) n));
+	    outofmem(__FILE__, "SNACopy");
+	}
+	LYStrNCpy(*target, source, n);
+    }
+    return *target;
+}
+
+/*
+ * Combinate string allocation and concatenation.
+ * see StrAllocCat
+ */
+char *SNACat(char **target,
+	     const char *source,
+	     size_t n)
+{
+    if (non_empty(source)) {
+	if (*target) {
+	    size_t length = strlen(*target);
+
+	    *target = typeRealloc(char, *target, length + n + 1);
+
+	    if (*target == NULL)
+		outofmem(__FILE__, "SNACat");
+	    LYStrNCpy(*target + length, source, n);
+	} else {
+	    *target = typeMallocn(char, n + 1);
+
+	    if (*target == NULL)
+		outofmem(__FILE__, "SNACat");
+	    MemCpy(*target, source, n);
+	    (*target)[n] = '\0';	/* terminate */
+	}
+    }
+    return *target;
+}
+
+#include <caselower.h>
+
+/*
+ * Returns lowercase equivalent for unicode,
+ * transparent output if no equivalent found.
+ */
+static long UniToLowerCase(long upper)
+{
+    size_t i, high, low;
+    long diff = 0;
+    long result = upper;
+
+    if (upper > 0) {
+	/*
+	 * Try unicode_to_lower_case[].
+	 */
+	low = 0;
+	high = TABLESIZE(unicode_to_lower_case);
+	while (low < high) {
+	    /*
+	     * Binary search.
+	     */
+	    i = (low + (high - low) / 2);
+	    diff = (unicode_to_lower_case[i].upper - upper);
+	    if (diff < 0) {
+		low = i + 1;
+	    } else if (diff > 0) {
+		high = i;
+	    } else if (diff == 0) {
+		result = unicode_to_lower_case[i].lower;
+		break;
+	    }
+	}
+    }
+
+    return result;
+}
+
+/*
+ *   UPPER8 ?
+ *   it was "TOUPPER(a) - TOUPPER(b)" in its previous life...
+ *
+ *   It was realized that case-insensitive user search
+ *   got information about upper/lower mapping from TOUPPER
+ *   (precisely from "(TOUPPER(a) - TOUPPER(b))==0")
+ *   and depends on locale in its 8bit mapping. -
+ *   Usually fails with DOS/WINDOWS display charsets
+ *   as well as on non-UNIX systems.
+ *
+ *   So use unicode case mapping.
+ */
+int UPPER8(int ch1, int ch2)
+{
+    int result = 0;
+
+    if (ch1 == ch2) {
+	result = 0;
+    } else if (!ch2) {
+	result = UCH(ch1);
+    } else if (!ch1) {
+	result = -UCH(ch2);
+    } else if (UCH(TOASCII(ch1)) < 128 && UCH(TOASCII(ch2)) < 128) {
+	/* case-insensitive match for us-ascii */
+	result = (TOUPPER(ch1) - TOUPPER(ch2));
+    } else if (UCH(TOASCII(ch1)) > 127 &&
+	       UCH(TOASCII(ch2)) > 127) {
+	/* case-insensitive match for upper half */
+	if (DisplayCharsetMatchLocale) {
+	    result = (TOUPPER(ch1) - TOUPPER(ch2));	/* old-style */
+	} else {
+	    long uni_ch2 = UCTransToUni((char) ch2, current_char_set);
+	    long uni_ch1;
+
+	    if (uni_ch2 < 0) {
+		result = UCH(ch1);
+	    } else {
+		uni_ch1 = UCTransToUni((char) ch1, current_char_set);
+		result = (int) (UniToLowerCase(uni_ch1) - UniToLowerCase(uni_ch2));
+	    }
+	}
+    } else {
+	result = -10;		/* mismatch */
+    }
+
+    return result;
+}
+
+/*
+ * Replaces 'fgets()' calls into a fixed-size buffer with reads into a buffer
+ * that is allocated.  When an EOF or error is found, the buffer is freed
+ * automatically.
+ */
+char *LYSafeGets(char **target,
+		 FILE *fp)
+{
+    char buffer[BUFSIZ];
+    char *result = 0;
+
+    if (target != 0)
+	result = *target;
+    if (result != 0)
+	*result = 0;
+
+    while (fgets(buffer, (int) sizeof(buffer), fp) != NULL) {
+	if (*buffer)
+	    result = StrAllocCat(result, buffer);
+	if (StrChr(buffer, '\n') != 0)
+	    break;
+    }
+    if (ferror(fp)) {
+	FREE(result);
+    } else if (feof(fp) && result && *result == '\0') {
+	/*
+	 * If the file ends in the middle of a line, return the partial line;
+	 * if another call is made after this, it will return NULL.  - kw
+	 */
+	FREE(result);
+    }
+    if (target != 0)
+	*target = result;
+    return result;
+}
+
+#ifdef USE_CMD_LOGGING
+static FILE *cmd_logfile;
+static FILE *cmd_script;
+
+void LYOpenCmdLogfile(int argc,
+		      char **argv)
+{
+    int n;
+
+    if (non_empty(lynx_cmd_logfile)) {
+	cmd_logfile = LYNewTxtFile(lynx_cmd_logfile);
+	if (cmd_logfile != 0) {
+	    fprintf(cmd_logfile, "# Command logfile created by %s %s (%s)\n",
+		    LYNX_NAME, LYNX_VERSION, LYVersionDate());
+	    for (n = 0; n < argc; n++) {
+		fprintf(cmd_logfile, "# Arg%d = %s\n", n, argv[n]);
+	    }
+	}
+    }
+}
+
+BOOL LYHaveCmdScript(void)
+{
+    return (BOOL) (cmd_script != 0);
+}
+
+void LYOpenCmdScript(void)
+{
+    if (non_empty(lynx_cmd_script)) {
+	cmd_script = fopen(lynx_cmd_script, TXT_R);
+	CTRACE((tfp, "LYOpenCmdScript(%s) %s\n",
+		lynx_cmd_script,
+		cmd_script != 0 ? "SUCCESS" : "FAIL"));
+    }
+}
+
+int LYReadCmdKey(int mode)
+{
+    int ch = -1;
+
+    if (cmd_script != 0) {
+	char *buffer = 0;
+	char *src;
+	char *tmp;
+
+	while ((ch < 0) && LYSafeGets(&buffer, cmd_script) != 0) {
+	    LYTrimTrailing(buffer);
+	    src = LYSkipBlanks(buffer);
+	    tmp = LYSkipNonBlanks(src);
+	    switch ((unsigned) (tmp - src)) {
+	    case 4:
+		if (!strncasecomp(src, "exit", 4))
+		    exit_immediately(EXIT_SUCCESS);
+		break;
+	    case 3:
+		if (!strncasecomp(src, "key", 3)) {
+		    ch = LYStringToKeycode(LYSkipBlanks(tmp));
+		} else if (!strncasecomp(src, "set", 3)) {
+		    src = LYSkipBlanks(tmp);
+		    tmp = src;
+		    while (*tmp != '\0') {
+			if (isspace(UCH(*tmp)) || *tmp == '=')
+			    break;
+			++tmp;
+		    }
+		    if (*tmp != '\0') {
+			*tmp++ = '\0';
+			tmp = LYSkipBlanks(tmp);
+		    }
+		    if (LYSetConfigValue(src, tmp)) {
+			CTRACE((tfp, "LYSetConfigValue(%s, %s)\n", src, tmp));
+		    } else if (LYsetRcValue(src, tmp)) {
+			CTRACE((tfp, "LYsetRcValue(%s, %s)\n", src, tmp));
+		    } else {
+			CTRACE((tfp, "?? set ignored %s\n", src));
+		    }
+		}
+		break;
+	    }
+	}
+	if (feof(cmd_script)) {
+	    fclose(cmd_script);
+	    cmd_script = 0;
+	}
+	if (ch >= 0) {
+	    LYSleepReplay();
+	    LYrefresh();
+	}
+	FREE(buffer);
+    } else {
+	ch = LYgetch_for(mode);
+    }
+    CTRACE((tfp, "LYReadCmdKey(%d) ->%s (%#x)\n",
+	    mode, LYKeycodeToString(ch, TRUE), ch));
+    LYWriteCmdKey(ch);
+    return ch;
+}
+
+/*
+ * Write a LYKeymapCode 'ch' to the logfile.
+ */
+void LYWriteCmdKey(int ch)
+{
+    if (cmd_logfile != 0) {
+	fprintf(cmd_logfile, "key %s\n", LYKeycodeToString(ch, FALSE));
+    }
+}
+
+void LYCloseCmdLogfile(void)
+{
+    if (cmd_logfile != 0) {
+	LYCloseOutput(cmd_logfile);
+	cmd_logfile = 0;
+    }
+    if (cmd_script != 0) {
+	LYCloseInput(cmd_script);
+	cmd_script = 0;
+    }
+    FREE(lynx_cmd_logfile);
+    FREE(lynx_cmd_script);
+}
+#endif /* USE_CMD_LOGGING */