Remove garbage files

1 files changed, 0 insertions, 6600 deletions

diff --git a/.#main.c.1.253 b/.#main.c.1.253
deleted file mode 100644
index 9a4c755..0000000
--- a/.#main.c.1.253
+++ /dev/null
@@ -1,6600 +0,0 @@
-/* $Id: main.c,v 1.253 2006/12/10 10:49:23 inu Exp $ */
-#define MAINPROGRAM
-#include "fm.h"
-#include <signal.h>
-#include <setjmp.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-#include <unistd.h>
-#include <fcntl.h>
-#if defined(HAVE_WAITPID) || defined(HAVE_WAIT3)
-#include <sys/wait.h>
-#endif
-#include <time.h>
-#include "terms.h"
-#include "myctype.h"
-#include "regex.h"
-#ifdef USE_MOUSE
-#ifdef USE_GPM
-#include <gpm.h>
-#endif				/* USE_GPM */
-#if defined(USE_GPM) || defined(USE_SYSMOUSE)
-extern int do_getch();
-#define getch()	do_getch()
-#endif				/* defined(USE_GPM) || defined(USE_SYSMOUSE) */
-#endif
-
-#define DSTR_LEN	256
-
-Hist *LoadHist;
-Hist *SaveHist;
-Hist *URLHist;
-Hist *ShellHist;
-Hist *TextHist;
-
-typedef struct _Event {
-    int cmd;
-    void *data;
-    struct _Event *next;
-} Event;
-static Event *CurrentEvent = NULL;
-static Event *LastEvent = NULL;
-
-#ifdef USE_ALARM
-static AlarmEvent DefaultAlarm = {
-    0, AL_UNSET, FUNCNAME_nulcmd, NULL
-};
-static AlarmEvent *CurrentAlarm = &DefaultAlarm;
-static MySignalHandler SigAlarm(SIGNAL_ARG);
-#endif
-
-#ifdef SIGWINCH
-static int need_resize_screen = FALSE;
-static MySignalHandler resize_hook(SIGNAL_ARG);
-static void resize_screen(void);
-#endif
-
-#ifdef SIGPIPE
-static MySignalHandler SigPipe(SIGNAL_ARG);
-#endif
-
-#ifdef USE_MARK
-static char *MarkString = NULL;
-#endif
-static char *SearchString = NULL;
-int (*searchRoutine) (Buffer *, char *);
-
-JMP_BUF IntReturn;
-
-static void delBuffer(Buffer *buf);
-static void cmd_loadfile(char *path);
-static void cmd_loadURL(char *url, ParsedURL *current, char *referer,
-			FormList *request);
-static void cmd_loadBuffer(Buffer *buf, int prop, int linkid);
-static void keyPressEventProc(int c);
-int show_params_p = 0;
-void show_params(FILE * fp);
-
-static char *getCurWord(Buffer *buf, int *spos, int *epos,
-			const char *badchars);
-
-static int display_ok = FALSE;
-static void do_dump(Buffer *);
-int prec_num = 0;
-int prev_key = -1;
-int on_target = 1;
-static int add_download_list = FALSE;
-
-void set_buffer_environ(Buffer *);
-static void save_buffer_position(Buffer *buf);
-
-static void _followForm(int);
-static void _goLine(char *);
-static void _newT(void);
-static void followTab(TabBuffer * tab);
-static void moveTab(TabBuffer * t, TabBuffer * t2, int right);
-static void _nextA(int);
-static void _prevA(int);
-static int check_target = TRUE;
-#define PREC_NUM (prec_num ? prec_num : 1)
-#define PREC_LIMIT 10000
-static int searchKeyNum(void);
-
-#define help() fusage(stdout, 0)
-#define usage() fusage(stderr, 1)
-
-static void
-fversion(FILE * f)
-{
-    fprintf(f, "w3m version %s, options %s\n", w3m_version,
-#if LANG == JA
-	    "lang=ja"
-#else
-	    "lang=en"
-#endif
-#ifdef USE_M17N
-	    ",m17n"
-#endif
-#ifdef USE_IMAGE
-	    ",image"
-#endif
-#ifdef USE_COLOR
-	    ",color"
-#ifdef USE_ANSI_COLOR
-	    ",ansi-color"
-#endif
-#endif
-#ifdef USE_MOUSE
-	    ",mouse"
-#ifdef USE_GPM
-	    ",gpm"
-#endif
-#ifdef USE_SYSMOUSE
-	    ",sysmouse"
-#endif
-#endif
-#ifdef USE_MENU
-	    ",menu"
-#endif
-#ifdef USE_COOKIE
-	    ",cookie"
-#endif
-#ifdef USE_SSL
-	    ",ssl"
-#ifdef USE_SSL_VERIFY
-	    ",ssl-verify"
-#endif
-#endif
-#ifdef USE_EXTERNAL_URI_LOADER
-	    ",external-uri-loader"
-#endif
-#ifdef USE_W3MMAILER
-	    ",w3mmailer"
-#endif
-#ifdef USE_NNTP
-	    ",nntp"
-#endif
-#ifdef USE_GOPHER
-	    ",gopher"
-#endif
-#ifdef INET6
-	    ",ipv6"
-#endif
-#ifdef USE_ALARM
-	    ",alarm"
-#endif
-#ifdef USE_MARK
-	    ",mark"
-#endif
-#ifdef USE_MIGEMO
-	    ",migemo"
-#endif
-	);
-}
-
-static void
-fusage(FILE * f, int err)
-{
-    fversion(f);
-    /* FIXME: gettextize? */
-    fprintf(f, "usage: w3m [options] [URL or filename]\noptions:\n");
-    fprintf(f, "    -t tab           set tab width\n");
-    fprintf(f, "    -r               ignore backspace effect\n");
-    fprintf(f, "    -l line          # of preserved line (default 10000)\n");
-#ifdef USE_M17N
-    fprintf(f, "    -I charset       document charset\n");
-    fprintf(f, "    -O charset       display/output charset\n");
-#ifndef DEBIAN			/* disabled by ukai: -s is used for squeeze multi lines */
-    fprintf(f, "    -e               EUC-JP\n");
-    fprintf(f, "    -s               Shift_JIS\n");
-    fprintf(f, "    -j               JIS\n");
-#endif
-#endif
-    fprintf(f, "    -B               load bookmark\n");
-    fprintf(f, "    -bookmark file   specify bookmark file\n");
-    fprintf(f, "    -T type          specify content-type\n");
-    fprintf(f, "    -m               internet message mode\n");
-    fprintf(f, "    -v               visual startup mode\n");
-#ifdef USE_COLOR
-    fprintf(f, "    -M               monochrome display\n");
-#endif				/* USE_COLOR */
-    fprintf(f,
-	    "    -N               open URL of command line on each new tab\n");
-    fprintf(f, "    -F               automatically render frame\n");
-    fprintf(f,
-	    "    -cols width      specify column width (used with -dump)\n");
-    fprintf(f,
-	    "    -ppc count       specify the number of pixels per character (4.0...32.0)\n");
-#ifdef USE_IMAGE
-    fprintf(f,
-	    "    -ppl count       specify the number of pixels per line (4.0...64.0)\n");
-#endif
-    fprintf(f, "    -dump            dump formatted page into stdout\n");
-    fprintf(f,
-	    "    -dump_head       dump response of HEAD request into stdout\n");
-    fprintf(f, "    -dump_source     dump page source into stdout\n");
-    fprintf(f, "    -dump_both       dump HEAD and source into stdout\n");
-    fprintf(f,
-	    "    -dump_extra      dump HEAD, source, and extra information into stdout\n");
-    fprintf(f, "    -post file       use POST method with file content\n");
-    fprintf(f, "    -header string   insert string as a header\n");
-    fprintf(f, "    +<num>           goto <num> line\n");
-    fprintf(f, "    -num             show line number\n");
-    fprintf(f, "    -no-proxy        don't use proxy\n");
-#ifdef INET6
-    fprintf(f, "    -4               IPv4 only (-o dns_order=4)\n");
-    fprintf(f, "    -6               IPv6 only (-o dns_order=6)\n");
-#endif
-#ifdef USE_MOUSE
-    fprintf(f, "    -no-mouse        don't use mouse\n");
-#endif				/* USE_MOUSE */
-#ifdef USE_COOKIE
-    fprintf(f,
-	    "    -cookie          use cookie (-no-cookie: don't use cookie)\n");
-#endif				/* USE_COOKIE */
-    fprintf(f, "    -pauth user:pass proxy authentication\n");
-    fprintf(f, "    -graph           use graphic character\n");
-    fprintf(f, "    -no-graph        don't use graphic character\n");
-#ifdef DEBIAN			/* replaced by ukai: pager requires -s */
-    fprintf(f, "    -s               squeeze multiple blank lines\n");
-#else
-    fprintf(f, "    -S               squeeze multiple blank lines\n");
-#endif
-    fprintf(f, "    -W               toggle wrap search mode\n");
-    fprintf(f, "    -X               don't use termcap init/deinit\n");
-    fprintf(f,
-	    "    -title[=TERM]    set buffer name to terminal title string\n");
-    fprintf(f, "    -o opt=value     assign value to config option\n");
-    fprintf(f, "    -show-option     print all config options\n");
-    fprintf(f, "    -config file     specify config file\n");
-    fprintf(f, "    -help            print this usage message\n");
-    fprintf(f, "    -version         print w3m version\n");
-    fprintf(f, "    -reqlog          write request logfile\n");
-    fprintf(f, "    -debug           DO NOT USE\n");
-    if (show_params_p)
-	show_params(f);
-    exit(err);
-}
-
-#ifdef USE_M17N
-#ifdef __EMX__
-static char *getCodePage(void);
-#endif
-#endif
-
-static GC_warn_proc orig_GC_warn_proc = NULL;
-#define GC_WARN_KEEP_MAX (20)
-
-static void
-wrap_GC_warn_proc(char *msg, GC_word arg)
-{
-    if (fmInitialized) {
-	/* *INDENT-OFF* */
-	static struct {
-	    char *msg;
-	    GC_word arg;
-	} msg_ring[GC_WARN_KEEP_MAX];
-	/* *INDENT-ON* */
-	static int i = 0;
-	static int n = 0;
-	static int lock = 0;
-	int j;
-
-	j = (i + n) % (sizeof(msg_ring) / sizeof(msg_ring[0]));
-	msg_ring[j].msg = msg;
-	msg_ring[j].arg = arg;
-
-	if (n < sizeof(msg_ring) / sizeof(msg_ring[0]))
-	    ++n;
-	else
-	    ++i;
-
-	if (!lock) {
-	    lock = 1;
-
-	    for (; n > 0; --n, ++i) {
-		i %= sizeof(msg_ring) / sizeof(msg_ring[0]);
-
-		printf(msg_ring[i].msg,	(unsigned long)msg_ring[i].arg);
-		sleep_till_anykey(1, 1);
-	    }
-
-	    lock = 0;
-	}
-    }
-    else if (orig_GC_warn_proc)
-	orig_GC_warn_proc(msg, arg);
-    else
-	fprintf(stderr, msg, (unsigned long)arg);
-}
-
-#ifdef SIGCHLD
-static void
-sig_chld(int signo)
-{
-    int p_stat;
-#ifdef HAVE_WAITPID
-    pid_t pid;
-
-    while ((pid = waitpid(-1, &p_stat, WNOHANG)) > 0) {
-	;
-    }
-#elif HAVE_WAIT3
-    int pid;
-
-    while ((pid = wait3(&p_stat, WNOHANG, NULL)) > 0) {
-	;
-    }
-#else
-    wait(&p_stat);
-#endif
-    mySignal(SIGCHLD, sig_chld);
-    return;
-}
-#endif
-
-Str
-make_optional_header_string(char *s)
-{
-    char *p;
-    Str hs;
-
-    if (strchr(s, '\n') || strchr(s, '\r'))
-	return NULL;
-    for (p = s; *p && *p != ':'; p++) ;
-    if (*p != ':' || p == s)
-	return NULL;
-    hs = Strnew_size(strlen(s) + 3);
-    Strcopy_charp_n(hs, s, p - s);
-    if (!Strcasecmp_charp(hs, "content-type"))
-	override_content_type = TRUE;
-    Strcat_charp(hs, ": ");
-    if (*(++p)) {		/* not null header */
-	SKIP_BLANKS(p);		/* skip white spaces */
-	Strcat_charp(hs, p);
-    }
-    Strcat_charp(hs, "\r\n");
-    return hs;
-}
-
-int
-main(int argc, char **argv, char **envp)
-{
-    Buffer *newbuf = NULL;
-    char *p, c;
-    int i;
-    InputStream redin;
-    char *line_str = NULL;
-    char **load_argv;
-    FormList *request;
-    int load_argc = 0;
-    int load_bookmark = FALSE;
-    int visual_start = FALSE;
-    int open_new_tab = FALSE;
-    char search_header = FALSE;
-    char *default_type = NULL;
-    char *post_file = NULL;
-    Str err_msg;
-#ifdef USE_M17N
-    char *Locale = NULL;
-    wc_uint8 auto_detect;
-#ifdef __EMX__
-    wc_ces CodePage;
-#endif
-#endif
-    GC_init();
-#if ENABLE_NLS
-    setlocale(LC_ALL, "");
-    bindtextdomain(PACKAGE, LOCALEDIR);
-    textdomain(PACKAGE);
-#endif
-
-#ifndef HAVE_SYS_ERRLIST
-    prepare_sys_errlist();
-#endif				/* not HAVE_SYS_ERRLIST */
-
-    NO_proxy_domains = newTextList();
-    fileToDelete = newTextList();
-
-    load_argv = New_N(char *, argc - 1);
-    load_argc = 0;
-
-    CurrentDir = currentdir();
-    CurrentPid = (int)getpid();
-    BookmarkFile = NULL;
-    config_file = NULL;
-
-    /* argument search 1 */
-    for (i = 1; i < argc; i++) {
-	if (*argv[i] == '-') {
-	    if (!strcmp("-config", argv[i])) {
-		argv[i] = "-dummy";
-		if (++i >= argc)
-		    usage();
-		config_file = argv[i];
-		argv[i] = "-dummy";
-	    }
-	    else if (!strcmp("-h", argv[i]) || !strcmp("-help", argv[i]))
-		help();
-	    else if (!strcmp("-V", argv[i]) || !strcmp("-version", argv[i])) {
-		fversion(stdout);
-		exit(0);
-	    }
-	}
-    }
-
-#ifdef USE_M17N
-    if (non_null(Locale = getenv("LC_ALL")) ||
-	non_null(Locale = getenv("LC_CTYPE")) ||
-	non_null(Locale = getenv("LANG"))) {
-	DisplayCharset = wc_guess_locale_charset(Locale, DisplayCharset);
-	DocumentCharset = wc_guess_locale_charset(Locale, DocumentCharset);
-	SystemCharset = wc_guess_locale_charset(Locale, SystemCharset);
-    }
-#ifdef __EMX__
-    CodePage = wc_guess_charset(getCodePage(), 0);
-    if (CodePage)
-	DisplayCharset = DocumentCharset = SystemCharset = CodePage;
-#endif
-#endif
-
-    /* initializations */
-    init_rc();
-
-    LoadHist = newHist();
-    SaveHist = newHist();
-    ShellHist = newHist();
-    TextHist = newHist();
-    URLHist = newHist();
-
-#ifdef USE_M17N
-    if (FollowLocale && Locale) {
-	DisplayCharset = wc_guess_locale_charset(Locale, DisplayCharset);
-	SystemCharset = wc_guess_locale_charset(Locale, SystemCharset);
-    }
-    auto_detect = WcOption.auto_detect;
-    BookmarkCharset = DocumentCharset;
-#endif
-
-    if (!non_null(HTTP_proxy) &&
-	((p = getenv("HTTP_PROXY")) ||
-	 (p = getenv("http_proxy")) || (p = getenv("HTTP_proxy"))))
-	HTTP_proxy = p;
-#ifdef USE_SSL
-    if (!non_null(HTTPS_proxy) &&
-	((p = getenv("HTTPS_PROXY")) ||
-	 (p = getenv("https_proxy")) || (p = getenv("HTTPS_proxy"))))
-	HTTPS_proxy = p;
-    if (HTTPS_proxy == NULL && non_null(HTTP_proxy))
-	HTTPS_proxy = HTTP_proxy;
-#endif				/* USE_SSL */
-#ifdef USE_GOPHER
-    if (!non_null(GOPHER_proxy) &&
-	((p = getenv("GOPHER_PROXY")) ||
-	 (p = getenv("gopher_proxy")) || (p = getenv("GOPHER_proxy"))))
-	GOPHER_proxy = p;
-#endif				/* USE_GOPHER */
-    if (!non_null(FTP_proxy) &&
-	((p = getenv("FTP_PROXY")) ||
-	 (p = getenv("ftp_proxy")) || (p = getenv("FTP_proxy"))))
-	FTP_proxy = p;
-    if (!non_null(NO_proxy) &&
-	((p = getenv("NO_PROXY")) ||
-	 (p = getenv("no_proxy")) || (p = getenv("NO_proxy"))))
-	NO_proxy = p;
-#ifdef USE_NNTP
-    if (!non_null(NNTP_server) && (p = getenv("NNTPSERVER")) != NULL)
-	NNTP_server = p;
-    if (!non_null(NNTP_mode) && (p = getenv("NNTPMODE")) != NULL)
-	NNTP_mode = p;
-#endif
-
-    if (!non_null(Editor) && (p = getenv("EDITOR")) != NULL)
-	Editor = p;
-    if (!non_null(Mailer) && (p = getenv("MAILER")) != NULL)
-	Mailer = p;
-
-    /* argument search 2 */
-    i = 1;
-    while (i < argc) {
-	if (*argv[i] == '-') {
-	    if (!strcmp("-t", argv[i])) {
-		if (++i >= argc)
-		    usage();
-		if (atoi(argv[i]) > 0)
-		    Tabstop = atoi(argv[i]);
-	    }
-	    else if (!strcmp("-r", argv[i]))
-		ShowEffect = FALSE;
-	    else if (!strcmp("-l", argv[i])) {
-		if (++i >= argc)
-		    usage();
-		if (atoi(argv[i]) > 0)
-		    PagerMax = atoi(argv[i]);
-	    }
-#ifdef USE_M17N
-#ifndef DEBIAN			/* XXX: use -o kanjicode={S|J|E} */
-	    else if (!strcmp("-s", argv[i]))
-		DisplayCharset = WC_CES_SHIFT_JIS;
-	    else if (!strcmp("-j", argv[i]))
-		DisplayCharset = WC_CES_ISO_2022_JP;
-	    else if (!strcmp("-e", argv[i]))
-		DisplayCharset = WC_CES_EUC_JP;
-#endif
-	    else if (!strncmp("-I", argv[i], 2)) {
-		if (argv[i][2] != '\0')
-		    p = argv[i] + 2;
-		else {
-		    if (++i >= argc)
-			usage();
-		    p = argv[i];
-		}
-		DocumentCharset = wc_guess_charset_short(p, DocumentCharset);
-		WcOption.auto_detect = WC_OPT_DETECT_OFF;
-		UseContentCharset = FALSE;
-	    }
-	    else if (!strncmp("-O", argv[i], 2)) {
-		if (argv[i][2] != '\0')
-		    p = argv[i] + 2;
-		else {
-		    if (++i >= argc)
-			usage();
-		    p = argv[i];
-		}
-		DisplayCharset = wc_guess_charset_short(p, DisplayCharset);
-	    }
-#endif
-	    else if (!strcmp("-graph", argv[i]))
-		UseGraphicChar = TRUE;
-	    else if (!strcmp("-no-graph", argv[i]))
-		UseGraphicChar = FALSE;
-	    else if (!strcmp("-T", argv[i])) {
-		if (++i >= argc)
-		    usage();
-		DefaultType = default_type = argv[i];
-	    }
-	    else if (!strcmp("-m", argv[i]))
-		SearchHeader = search_header = TRUE;
-	    else if (!strcmp("-v", argv[i]))
-		visual_start = TRUE;
-	    else if (!strcmp("-N", argv[i]))
-		open_new_tab = TRUE;
-#ifdef USE_COLOR
-	    else if (!strcmp("-M", argv[i]))
-		useColor = FALSE;
-#endif				/* USE_COLOR */
-	    else if (!strcmp("-B", argv[i]))
-		load_bookmark = TRUE;
-	    else if (!strcmp("-bookmark", argv[i])) {
-		if (++i >= argc)
-		    usage();
-		BookmarkFile = argv[i];
-		if (BookmarkFile[0] != '~' && BookmarkFile[0] != '/') {
-		    Str tmp = Strnew_charp(CurrentDir);
-		    if (Strlastchar(tmp) != '/')
-			Strcat_char(tmp, '/');
-		    Strcat_charp(tmp, BookmarkFile);
-		    BookmarkFile = cleanupName(tmp->ptr);
-		}
-	    }
-	    else if (!strcmp("-F", argv[i]))
-		RenderFrame = TRUE;
-	    else if (!strcmp("-W", argv[i])) {
-		if (WrapDefault)
-		    WrapDefault = FALSE;
-		else
-		    WrapDefault = TRUE;
-	    }
-	    else if (!strcmp("-dump", argv[i]))
-		w3m_dump = DUMP_BUFFER;
-	    else if (!strcmp("-dump_source", argv[i]))
-		w3m_dump = DUMP_SOURCE;
-	    else if (!strcmp("-dump_head", argv[i]))
-		w3m_dump = DUMP_HEAD;
-	    else if (!strcmp("-dump_both", argv[i]))
-		w3m_dump = (DUMP_HEAD | DUMP_SOURCE);
-	    else if (!strcmp("-dump_extra", argv[i]))
-		w3m_dump = (DUMP_HEAD | DUMP_SOURCE | DUMP_EXTRA);
-	    else if (!strcmp("-halfdump", argv[i]))
-		w3m_dump = DUMP_HALFDUMP;
-	    else if (!strcmp("-halfload", argv[i])) {
-		w3m_dump = 0;
-		w3m_halfload = TRUE;
-		DefaultType = default_type = "text/html";
-	    }
-	    else if (!strcmp("-backend", argv[i])) {
-		w3m_backend = TRUE;
-	    }
-	    else if (!strcmp("-backend_batch", argv[i])) {
-		w3m_backend = TRUE;
-		if (++i >= argc)
-		    usage();
-		if (!backend_batch_commands)
-		    backend_batch_commands = newTextList();
-		pushText(backend_batch_commands, argv[i]);
-	    }
-	    else if (!strcmp("-cols", argv[i])) {
-		if (++i >= argc)
-		    usage();
-		COLS = atoi(argv[i]);
-	    }
-	    else if (!strcmp("-ppc", argv[i])) {
-		double ppc;
-		if (++i >= argc)
-		    usage();
-		ppc = atof(argv[i]);
-		if (ppc >= MINIMUM_PIXEL_PER_CHAR &&
-		    ppc <= MAXIMUM_PIXEL_PER_CHAR) {
-		    pixel_per_char = ppc;
-		    set_pixel_per_char = TRUE;
-		}
-	    }
-#ifdef USE_IMAGE
-	    else if (!strcmp("-ppl", argv[i])) {
-		double ppc;
-		if (++i >= argc)
-		    usage();
-		ppc = atof(argv[i]);
-		if (ppc >= MINIMUM_PIXEL_PER_CHAR &&
-		    ppc <= MAXIMUM_PIXEL_PER_CHAR * 2) {
-		    pixel_per_line = ppc;
-		    set_pixel_per_line = TRUE;
-		}
-	    }
-#endif
-	    else if (!strcmp("-num", argv[i]))
-		showLineNum = TRUE;
-	    else if (!strcmp("-no-proxy", argv[i]))
-		use_proxy = FALSE;
-#ifdef INET6
-	    else if (!strcmp("-4", argv[i]) || !strcmp("-6", argv[i]))
-		set_param_option(Sprintf("dns_order=%c", argv[i][1])->ptr);
-#endif
-	    else if (!strcmp("-post", argv[i])) {
-		if (++i >= argc)
-		    usage();
-		post_file = argv[i];
-	    }
-	    else if (!strcmp("-header", argv[i])) {
-		Str hs;
-		if (++i >= argc)
-		    usage();
-		if ((hs = make_optional_header_string(argv[i])) != NULL) {
-		    if (header_string == NULL)
-			header_string = hs;
-		    else
-			Strcat(header_string, hs);
-		}
-		while (argv[i][0]) {
-		    argv[i][0] = '\0';
-		    argv[i]++;
-		}
-	    }
-#ifdef USE_MOUSE
-	    else if (!strcmp("-no-mouse", argv[i])) {
-		use_mouse = FALSE;
-	    }
-#endif				/* USE_MOUSE */
-#ifdef USE_COOKIE
-	    else if (!strcmp("-no-cookie", argv[i])) {
-		use_cookie = FALSE;
-		accept_cookie = FALSE;
-	    }
-	    else if (!strcmp("-cookie", argv[i])) {
-		use_cookie = TRUE;
-		accept_cookie = TRUE;
-	    }
-#endif				/* USE_COOKIE */
-	    else if (!strcmp("-pauth", argv[i])) {
-		if (++i >= argc)
-		    usage();
-		proxy_auth_cookie = Strnew_m_charp("Basic ",
-						   encodeB(argv[i])->ptr,
-						   NULL);
-		while (argv[i][0]) {
-		    argv[i][0] = '\0';
-		    argv[i]++;
-		}
-	    }
-#ifdef DEBIAN
-	    else if (!strcmp("-s", argv[i]))
-#else
-	    else if (!strcmp("-S", argv[i]))
-#endif
-		squeezeBlankLine = TRUE;
-	    else if (!strcmp("-X", argv[i]))
-		Do_not_use_ti_te = TRUE;
-	    else if (!strcmp("-title", argv[i]))
-		displayTitleTerm = getenv("TERM");
-	    else if (!strncmp("-title=", argv[i], 7))
-		displayTitleTerm = argv[i] + 7;
-	    else if (!strcmp("-o", argv[i]) ||
-		     !strcmp("-show-option", argv[i])) {
-		if (!strcmp("-show-option", argv[i]) || ++i >= argc ||
-		    !strcmp(argv[i], "?")) {
-		    show_params(stdout);
-		    exit(0);
-		}
-		if (!set_param_option(argv[i])) {
-		    /* option set failed */
-		    /* FIXME: gettextize? */
-		    fprintf(stderr, "%s: bad option\n", argv[i]);
-		    show_params_p = 1;
-		    usage();
-		}
-	    }
-	    else if (!strcmp("-dummy", argv[i])) {
-		/* do nothing */
-	    }
-	    else if (!strcmp("-debug", argv[i])) {
-		w3m_debug = TRUE;
-	    }
-	    else if (!strcmp("-reqlog",argv[i])) {
-		w3m_reqlog=rcFile("request.log");
-	    }
-	    else {
-		usage();
-	    }
-	}
-	else if (*argv[i] == '+') {
-	    line_str = argv[i] + 1;
-	}
-	else {
-	    load_argv[load_argc++] = argv[i];
-	}
-	i++;
-    }
-
-#ifdef	__WATT32__
-    if (w3m_debug)
-	dbug_init();
-    sock_init();
-#endif
-
-    FirstTab = NULL;
-    LastTab = NULL;
-    nTab = 0;
-    CurrentTab = NULL;
-    CurrentKey = -1;
-    if (BookmarkFile == NULL)
-	BookmarkFile = rcFile(BOOKMARK);
-
-    if (!isatty(1) && !w3m_dump) {
-	/* redirected output */
-	w3m_dump = DUMP_BUFFER;
-    }
-    if (w3m_dump) {
-	if (COLS == 0)
-	    COLS = 80;
-    }
-
-#ifdef USE_BINMODE_STREAM
-    setmode(fileno(stdout), O_BINARY);
-#endif
-    if (!w3m_dump && !w3m_backend) {
-	fmInit();
-#ifdef SIGWINCH
-	mySignal(SIGWINCH, resize_hook);
-#else				/* not SIGWINCH */
-	setlinescols();
-	setupscreen();
-#endif				/* not SIGWINCH */
-    }
-#ifdef USE_IMAGE
-    else if (w3m_halfdump && displayImage)
-	activeImage = TRUE;
-#endif
-
-    sync_with_option();
-#ifdef USE_COOKIE
-    initCookie();
-#endif				/* USE_COOKIE */
-#ifdef USE_HISTORY
-    if (UseHistory)
-	loadHistory(URLHist);
-#endif				/* not USE_HISTORY */
-
-#ifdef USE_M17N
-    wtf_init(DocumentCharset, DisplayCharset);
-    /*  if (w3m_dump)
-     *    WcOption.pre_conv = WC_TRUE; 
-     */
-#endif
-
-    if (w3m_backend)
-	backend();
-
-    if (w3m_dump)
-	mySignal(SIGINT, SIG_IGN);
-#ifdef SIGCHLD
-    mySignal(SIGCHLD, sig_chld);
-#endif
-#ifdef SIGPIPE
-    mySignal(SIGPIPE, SigPipe);
-#endif
-
-    orig_GC_warn_proc = GC_set_warn_proc(wrap_GC_warn_proc);
-    err_msg = Strnew();
-    if (load_argc == 0) {
-	/* no URL specified */
-	if (!isatty(0)) {
-	    redin = newFileStream(fdopen(dup(0), "rb"), (void (*)())pclose);
-	    newbuf = openGeneralPagerBuffer(redin);
-	    dup2(1, 0);
-	}
-	else if (load_bookmark) {
-	    newbuf = loadGeneralFile(BookmarkFile, NULL, NO_REFERER, 0, NULL);
-	    if (newbuf == NULL)
-		Strcat_charp(err_msg, "w3m: Can't load bookmark.\n");
-	}
-	else if (visual_start) {
-	    /* FIXME: gettextize? */
-	    Str s_page;
-	    s_page =
-		Strnew_charp
-		("<title>W3M startup page</title><center><b>Welcome to ");
-	    Strcat_charp(s_page, "<a href='http://w3m.sourceforge.net/'>");
-	    Strcat_m_charp(s_page,
-			   "w3m</a>!<p><p>This is w3m version ",
-			   w3m_version,
-			   "<br>Written by <a href='mailto:aito@fw.ipsj.or.jp'>Akinori Ito</a>",
-			   NULL);
-#ifdef DEBIAN
-	    Strcat_m_charp(s_page,
-			   "<p>Debian package is maintained by <a href='mailto:ukai@debian.or.jp'>Fumitoshi UKAI</a>.",
-			   "You can read <a href='file:///usr/share/doc/w3m/'>w3m documents on your local system</a>.",
-			   NULL);
-#endif				/* DEBIAN */
-	    newbuf = loadHTMLString(s_page);
-	    if (newbuf == NULL)
-		Strcat_charp(err_msg, "w3m: Can't load string.\n");
-	    else if (newbuf != NO_BUFFER)
-		newbuf->bufferprop |= (BP_INTERNAL | BP_NO_URL);
-	}
-	else if ((p = getenv("HTTP_HOME")) != NULL ||
-		 (p = getenv("WWW_HOME")) != NULL) {
-	    newbuf = loadGeneralFile(p, NULL, NO_REFERER, 0, NULL);
-	    if (newbuf == NULL)
-		Strcat(err_msg, Sprintf("w3m: Can't load %s.\n", p));
-	    else if (newbuf != NO_BUFFER)
-		pushHashHist(URLHist, parsedURL2Str(&newbuf->currentURL)->ptr);
-	}
-	else {
-	    if (fmInitialized)
-		fmTerm();
-	    usage();
-	}
-	if (newbuf == NULL) {
-	    if (fmInitialized)
-		fmTerm();
-	    if (err_msg->length)
-		fprintf(stderr, "%s", err_msg->ptr);
-	    w3m_exit(2);
-	}
-	i = -1;
-    }
-    else {
-	i = 0;
-    }
-    for (; i < load_argc; i++) {
-	if (i >= 0) {
-	    SearchHeader = search_header;
-	    DefaultType = default_type;
-	    if (w3m_dump == DUMP_HEAD) {
-		request = New(FormList);
-		request->method = FORM_METHOD_HEAD;
-		newbuf =
-		    loadGeneralFile(load_argv[i], NULL, NO_REFERER, 0,
-				    request);
-	    }
-	    else {
-		if (post_file && i == 0) {
-		    FILE *fp;
-		    Str body;
-		    if (!strcmp(post_file, "-"))
-			fp = stdin;
-		    else
-			fp = fopen(post_file, "r");
-		    if (fp == NULL) {
-			/* FIXME: gettextize? */
-			Strcat(err_msg,
-			       Sprintf("w3m: Can't open %s.\n", post_file));
-			continue;
-		    }
-		    body = Strfgetall(fp);
-		    if (fp != stdin)
-			fclose(fp);
-		    request =
-			newFormList(NULL, "post", NULL, NULL, NULL, NULL,
-				    NULL);
-		    request->body = body->ptr;
-		    request->boundary = NULL;
-		    request->length = body->length;
-		}
-		else {
-		    request = NULL;
-		}
-		newbuf =
-		    loadGeneralFile(load_argv[i], NULL, NO_REFERER, 0,
-				    request);
-	    }
-	    if (newbuf == NULL) {
-		/* FIXME: gettextize? */
-		Strcat(err_msg,
-		       Sprintf("w3m: Can't load %s.\n", load_argv[i]));
-		continue;
-	    }
-	    else if (newbuf == NO_BUFFER)
-		continue;
-	    switch (newbuf->real_scheme) {
-	    case SCM_MAILTO:
-		break;
-	    case SCM_LOCAL:
-	    case SCM_LOCAL_CGI:
-		unshiftHist(LoadHist, conv_from_system(load_argv[i]));
-	    default:
-		pushHashHist(URLHist, parsedURL2Str(&newbuf->currentURL)->ptr);
-		break;
-	    }
-	}
-	else if (newbuf == NO_BUFFER)
-	    continue;
-	if (newbuf->pagerSource ||
-	    (newbuf->real_scheme == SCM_LOCAL && newbuf->header_source &&
-	     newbuf->currentURL.file && strcmp(newbuf->currentURL.file, "-")))
-	    newbuf->search_header = search_header;
-	if (CurrentTab == NULL) {
-	    FirstTab = LastTab = CurrentTab = newTab();
-	    nTab = 1;
-	    Firstbuf = Currentbuf = newbuf;
-	}
-	else if (open_new_tab) {
-	    _newT();
-	    Currentbuf->nextBuffer = newbuf;
-	    delBuffer(Currentbuf);
-	}
-	else {
-	    Currentbuf->nextBuffer = newbuf;
-	    Currentbuf = newbuf;
-	}
-	if (!w3m_dump || w3m_dump == DUMP_BUFFER) {
-	    if (Currentbuf->frameset != NULL && RenderFrame)
-		rFrame();
-	}
-	if (w3m_dump)
-	    do_dump(Currentbuf);
-	else {
-	    Currentbuf = newbuf;
-#ifdef USE_BUFINFO
-	    saveBufferInfo();
-#endif
-	}
-    }
-    if (w3m_dump) {
-	if (err_msg->length)
-	    fprintf(stderr, "%s", err_msg->ptr);
-#ifdef USE_COOKIE
-	save_cookies();
-#endif				/* USE_COOKIE */
-	w3m_exit(0);
-    }
-
-    if (add_download_list) {
-	add_download_list = FALSE;
-	CurrentTab = LastTab;
-	if (!FirstTab) {
-	    FirstTab = LastTab = CurrentTab = newTab();
-	    nTab = 1;
-	}
-	if (!Firstbuf || Firstbuf == NO_BUFFER) {
-	    Firstbuf = Currentbuf = newBuffer(INIT_BUFFER_WIDTH);
-	    Currentbuf->bufferprop = BP_INTERNAL | BP_NO_URL;
-	    Currentbuf->buffername = DOWNLOAD_LIST_TITLE;
-	}
-	else
-	    Currentbuf = Firstbuf;
-	ldDL();
-    }
-    else
-	CurrentTab = FirstTab;
-    if (!FirstTab || !Firstbuf || Firstbuf == NO_BUFFER) {
-	if (newbuf == NO_BUFFER) {
-	    if (fmInitialized)
-		/* FIXME: gettextize? */
-		inputChar("Hit any key to quit w3m:");
-	}
-	if (fmInitialized)
-	    fmTerm();
-	if (err_msg->length)
-	    fprintf(stderr, "%s", err_msg->ptr);
-	if (newbuf == NO_BUFFER) {
-#ifdef USE_COOKIE
-	    save_cookies();
-#endif				/* USE_COOKIE */
-	    if (!err_msg->length)
-		w3m_exit(0);
-	}
-	w3m_exit(2);
-    }
-    if (err_msg->length)
-	disp_message_nsec(err_msg->ptr, FALSE, 1, TRUE, FALSE);
-
-    SearchHeader = FALSE;
-    DefaultType = NULL;
-#ifdef USE_M17N
-    UseContentCharset = TRUE;
-    WcOption.auto_detect = auto_detect;
-#endif
-
-    Currentbuf = Firstbuf;
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-    if (line_str) {
-	_goLine(line_str);
-    }
-    for (;;) {
-	if (add_download_list) {
-	    add_download_list = FALSE;
-	    ldDL();
-	}
-	if (Currentbuf->submit) {
-	    Anchor *a = Currentbuf->submit;
-	    Currentbuf->submit = NULL;
-	    gotoLine(Currentbuf, a->start.line);
-	    Currentbuf->pos = a->start.pos;
-	    _followForm(TRUE);
-	    continue;
-	}
-	/* event processing */
-	if (CurrentEvent) {
-	    CurrentKey = -1;
-	    CurrentKeyData = NULL;
-	    CurrentCmdData = (char *)CurrentEvent->data;
-	    w3mFuncList[CurrentEvent->cmd].func();
-	    CurrentCmdData = NULL;
-	    CurrentEvent = CurrentEvent->next;
-	    continue;
-	}
-	/* get keypress event */
-#ifdef USE_ALARM
-	if (Currentbuf->event) {
-	    if (Currentbuf->event->status != AL_UNSET) {
-		CurrentAlarm = Currentbuf->event;
-		if (CurrentAlarm->sec == 0) {	/* refresh (0sec) */
-		    Currentbuf->event = NULL;
-		    CurrentKey = -1;
-		    CurrentKeyData = NULL;
-		    CurrentCmdData = (char *)CurrentAlarm->data;
-		    w3mFuncList[CurrentAlarm->cmd].func();
-		    CurrentCmdData = NULL;
-		    continue;
-		}
-	    }
-	    else
-		Currentbuf->event = NULL;
-	}
-	if (!Currentbuf->event)
-	    CurrentAlarm = &DefaultAlarm;
-#endif
-#ifdef USE_MOUSE
-	mouse_action.in_action = FALSE;
-	if (use_mouse)
-	    mouse_active();
-#endif				/* USE_MOUSE */
-#ifdef USE_ALARM
-	if (CurrentAlarm->sec > 0) {
-	    mySignal(SIGALRM, SigAlarm);
-	    alarm(CurrentAlarm->sec);
-	}
-#endif
-#ifdef SIGWINCH
-	mySignal(SIGWINCH, resize_hook);
-#endif
-#ifdef USE_IMAGE
-	if (activeImage && displayImage && Currentbuf->img &&
-	    !Currentbuf->image_loaded) {
-	    do {
-#ifdef SIGWINCH
-		if (need_resize_screen)
-		    resize_screen();
-#endif
-		loadImage(Currentbuf, IMG_FLAG_NEXT);
-	    } while (sleep_till_anykey(1, 0) <= 0);
-	}
-#ifdef SIGWINCH
-	else
-#endif
-#endif
-#ifdef SIGWINCH
-	{
-	    do {
-		if (need_resize_screen)
-		    resize_screen();
-	    } while (sleep_till_anykey(1, 0) <= 0);
-	}
-#endif
-	c = getch();
-#ifdef USE_ALARM
-	if (CurrentAlarm->sec > 0) {
-	    alarm(0);
-	}
-#endif
-#ifdef USE_MOUSE
-	if (use_mouse)
-	    mouse_inactive();
-#endif				/* USE_MOUSE */
-	if (IS_ASCII(c)) {	/* Ascii */
-	    if(((prec_num && c == '0') || '1' <= c) && (c <= '9')) {
-		prec_num = prec_num * 10 + (int)(c - '0');
-		if (prec_num > PREC_LIMIT)
-	    	prec_num = PREC_LIMIT;
-	    }
-	    else {
-		set_buffer_environ(Currentbuf);
-		save_buffer_position(Currentbuf);
-		keyPressEventProc((int)c);
-		prec_num = 0;
-	    }
-	}
-	prev_key = CurrentKey;
-	CurrentKey = -1;
-	CurrentKeyData = NULL;
-    }
-}
-
-static void
-keyPressEventProc(int c)
-{
-    CurrentKey = c;
-    w3mFuncList[(int)GlobalKeymap[c]].func();
-}
-
-void
-pushEvent(int cmd, void *data)
-{
-    Event *event;
-
-    event = New(Event);
-    event->cmd = cmd;
-    event->data = data;
-    event->next = NULL;
-    if (CurrentEvent)
-	LastEvent->next = event;
-    else
-	CurrentEvent = event;
-    LastEvent = event;
-}
-
-static void
-dump_source(Buffer *buf)
-{
-    FILE *f;
-    char c;
-    if (buf->sourcefile == NULL)
-	return;
-    f = fopen(buf->sourcefile, "r");
-    if (f == NULL)
-	return;
-    while (c = fgetc(f), !feof(f)) {
-	putchar(c);
-    }
-    fclose(f);
-}
-
-static void
-dump_head(Buffer *buf)
-{
-    TextListItem *ti;
-
-    if (buf->document_header == NULL) {
-	if (w3m_dump & DUMP_EXTRA)
-	    printf("\n");
-	return;
-    }
-    for (ti = buf->document_header->first; ti; ti = ti->next) {
-#ifdef USE_M17N
-	printf("%s",
-	       wc_conv_strict(ti->ptr, InnerCharset,
-			      buf->document_charset)->ptr);
-#else
-	printf("%s", ti->ptr);
-#endif
-    }
-    puts("");
-}
-
-static void
-dump_extra(Buffer *buf)
-{
-    printf("W3m-current-url: %s\n", parsedURL2Str(&buf->currentURL)->ptr);
-    if (buf->baseURL)
-	printf("W3m-base-url: %s\n", parsedURL2Str(buf->baseURL)->ptr);
-#ifdef USE_M17N
-    printf("W3m-document-charset: %s\n",
-	   wc_ces_to_charset(buf->document_charset));
-#endif
-#ifdef USE_SSL
-    if (buf->ssl_certificate) {
-	Str tmp = Strnew();
-	char *p;
-	for (p = buf->ssl_certificate; *p; p++) {
-	    Strcat_char(tmp, *p);
-	    if (*p == '\n') {
-		for (; *(p + 1) == '\n'; p++) ;
-		if (*(p + 1))
-		    Strcat_char(tmp, '\t');
-	    }
-	}
-	if (Strlastchar(tmp) != '\n')
-	    Strcat_char(tmp, '\n');
-	printf("W3m-ssl-certificate: %s", tmp->ptr);
-    }
-#endif
-}
-
-static void
-do_dump(Buffer *buf)
-{
-    MySignalHandler(*volatile prevtrap) (SIGNAL_ARG) = NULL;
-
-    prevtrap = mySignal(SIGINT, intTrap);
-    if (SETJMP(IntReturn) != 0) {
-	mySignal(SIGINT, prevtrap);
-	return;
-    }
-    if (w3m_dump & DUMP_EXTRA)
-	dump_extra(buf);
-    if (w3m_dump & DUMP_HEAD)
-	dump_head(buf);
-    if (w3m_dump & DUMP_SOURCE)
-	dump_source(buf);
-    if (w3m_dump == DUMP_BUFFER)
-	saveBuffer(buf, stdout, FALSE);
-    mySignal(SIGINT, prevtrap);
-}
-
-DEFUN(nulcmd, NOTHING NULL @@@, "Do nothing")
-{				/* do nothing */
-}
-
-#ifdef __EMX__
-DEFUN(pcmap, PCMAP, "pcmap")
-{
-    w3mFuncList[(int)PcKeymap[(int)getch()]].func();
-}
-#else				/* not __EMX__ */
-void
-pcmap(void)
-{
-}
-#endif
-
-static void
-escKeyProc(int c, int esc, unsigned char *map)
-{
-    if (CurrentKey >= 0 && CurrentKey & K_MULTI) {
-	unsigned char **mmap;
-	mmap = (unsigned char **)getKeyData(MULTI_KEY(CurrentKey));
-	if (!mmap)
-	    return;
-	switch (esc) {
-	case K_ESCD:
-	    map = mmap[3];
-	    break;
-	case K_ESCB:
-	    map = mmap[2];
-	    break;
-	case K_ESC:
-	    map = mmap[1];
-	    break;
-	default:
-	    map = mmap[0];
-	    break;
-	}
-	esc |= (CurrentKey & ~0xFFFF);
-    }
-    CurrentKey = esc | c;
-    w3mFuncList[(int)map[c]].func();
-}
-
-DEFUN(escmap, ESCMAP, "ESC map")
-{
-    char c;
-    c = getch();
-    if (IS_ASCII(c))
-	escKeyProc((int)c, K_ESC, EscKeymap);
-}
-
-DEFUN(escbmap, ESCBMAP, "ESC [ map")
-{
-    char c;
-    c = getch();
-    if (IS_DIGIT(c)) {
-	escdmap(c);
-	return;
-    }
-    if (IS_ASCII(c))
-	escKeyProc((int)c, K_ESCB, EscBKeymap);
-}
-
-void
-escdmap(char c)
-{
-    int d;
-    d = (int)c - (int)'0';
-    c = getch();
-    if (IS_DIGIT(c)) {
-	d = d * 10 + (int)c - (int)'0';
-	c = getch();
-    }
-    if (c == '~')
-	escKeyProc((int)d, K_ESCD, EscDKeymap);
-}
-
-DEFUN(multimap, MULTIMAP, "multimap")
-{
-    char c;
-    c = getch();
-    if (IS_ASCII(c)) {
-	CurrentKey = K_MULTI | (CurrentKey << 16) | c;
-	escKeyProc((int)c, 0, NULL);
-    }
-}
-
-void
-tmpClearBuffer(Buffer *buf)
-{
-    if (buf->pagerSource == NULL && writeBufferCache(buf) == 0) {
-	buf->firstLine = NULL;
-	buf->topLine = NULL;
-	buf->currentLine = NULL;
-	buf->lastLine = NULL;
-    }
-}
-
-static Str currentURL(void);
-
-#ifdef USE_BUFINFO
-void
-saveBufferInfo()
-{
-    FILE *fp;
-
-    if (w3m_dump)
-	return;
-    if ((fp = fopen(rcFile("bufinfo"), "w")) == NULL) {
-	return;
-    }
-    fprintf(fp, "%s\n", currentURL()->ptr);
-    fclose(fp);
-}
-#endif
-
-static void
-pushBuffer(Buffer *buf)
-{
-    Buffer *b;
-
-#ifdef USE_IMAGE
-    deleteImage(Currentbuf);
-#endif
-    if (clear_buffer)
-	tmpClearBuffer(Currentbuf);
-    if (Firstbuf == Currentbuf) {
-	buf->nextBuffer = Firstbuf;
-	Firstbuf = Currentbuf = buf;
-    }
-    else if ((b = prevBuffer(Firstbuf, Currentbuf)) != NULL) {
-	b->nextBuffer = buf;
-	buf->nextBuffer = Currentbuf;
-	Currentbuf = buf;
-    }
-#ifdef USE_BUFINFO
-    saveBufferInfo();
-#endif
-
-}
-
-static void
-delBuffer(Buffer *buf)
-{
-    if (buf == NULL)
-	return;
-    if (Currentbuf == buf)
-	Currentbuf = buf->nextBuffer;
-    Firstbuf = deleteBuffer(Firstbuf, buf);
-    if (!Currentbuf)
-	Currentbuf = Firstbuf;
-}
-
-static void
-repBuffer(Buffer *oldbuf, Buffer *buf)
-{
-    Firstbuf = replaceBuffer(Firstbuf, oldbuf, buf);
-    Currentbuf = buf;
-}
-
-
-MySignalHandler
-intTrap(SIGNAL_ARG)
-{				/* Interrupt catcher */
-    LONGJMP(IntReturn, 0);
-    SIGNAL_RETURN;
-}
-
-#ifdef SIGWINCH
-static MySignalHandler
-resize_hook(SIGNAL_ARG)
-{
-    need_resize_screen = TRUE;
-    mySignal(SIGWINCH, resize_hook);
-    SIGNAL_RETURN;
-}
-
-static void
-resize_screen(void)
-{
-    need_resize_screen = FALSE;
-    setlinescols();
-    setupscreen();
-    if (CurrentTab)
-	displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-#endif				/* SIGWINCH */
-
-#ifdef SIGPIPE
-static MySignalHandler
-SigPipe(SIGNAL_ARG)
-{
-#ifdef USE_MIGEMO
-    init_migemo();
-#endif
-    mySignal(SIGPIPE, SigPipe);
-    SIGNAL_RETURN;
-}
-#endif
-
-/* 
- * Command functions: These functions are called with a keystroke.
- */
-
-#define MAX(a, b)  ((a) > (b) ? (a) : (b))
-#define MIN(a, b)  ((a) < (b) ? (a) : (b))
-
-static void
-nscroll(int n, int mode)
-{
-    Buffer *buf = Currentbuf;
-    Line *top = buf->topLine, *cur = buf->currentLine;
-    int lnum, tlnum, llnum, diff_n;
-
-    if (buf->firstLine == NULL)
-	return;
-    lnum = cur->linenumber;
-    buf->topLine = lineSkip(buf, top, n, FALSE);
-    if (buf->topLine == top) {
-	lnum += n;
-	if (lnum < buf->topLine->linenumber)
-	    lnum = buf->topLine->linenumber;
-	else if (lnum > buf->lastLine->linenumber)
-	    lnum = buf->lastLine->linenumber;
-    }
-    else {
-	tlnum = buf->topLine->linenumber;
-	llnum = buf->topLine->linenumber + buf->LINES - 1;
-	if (nextpage_topline)
-	    diff_n = 0;
-	else
-	    diff_n = n - (tlnum - top->linenumber);
-	if (lnum < tlnum)
-	    lnum = tlnum + diff_n;
-	if (lnum > llnum)
-	    lnum = llnum + diff_n;
-    }
-    gotoLine(buf, lnum);
-    arrangeLine(buf);
-    if (n > 0) {
-	if (buf->currentLine->bpos &&
-	    buf->currentLine->bwidth >= buf->currentColumn + buf->visualpos)
-	    cursorDown(buf, 1);
-	else {
-	    while (buf->currentLine->next && buf->currentLine->next->bpos &&
-		   buf->currentLine->bwidth + buf->currentLine->width <
-		   buf->currentColumn + buf->visualpos)
-		cursorDown0(buf, 1);
-	}
-    }
-    else {
-	if (buf->currentLine->bwidth + buf->currentLine->width <
-	    buf->currentColumn + buf->visualpos)
-	    cursorUp(buf, 1);
-	else {
-	    while (buf->currentLine->prev && buf->currentLine->bpos &&
-		   buf->currentLine->bwidth >=
-		   buf->currentColumn + buf->visualpos)
-		cursorUp0(buf, 1);
-	}
-    }
-    displayBuffer(buf, mode);
-}
-
-/* Move page forward */
-DEFUN(pgFore, NEXT_PAGE, "Move to next page")
-{
-    if (vi_prec_num)
-	nscroll(searchKeyNum() * (Currentbuf->LINES - 1), B_NORMAL);
-    else
-	nscroll(prec_num ? searchKeyNum() : searchKeyNum()
-		* (Currentbuf->LINES - 1), prec_num ? B_SCROLL : B_NORMAL);
-}
-
-/* Move page backward */
-DEFUN(pgBack, PREV_PAGE, "Move to previous page")
-{
-    if (vi_prec_num)
-	nscroll(-searchKeyNum() * (Currentbuf->LINES - 1), B_NORMAL);
-    else
-	nscroll(-(prec_num ? searchKeyNum() : searchKeyNum()
-		  * (Currentbuf->LINES - 1)), prec_num ? B_SCROLL : B_NORMAL);
-}
-
-/* 1 line up */
-DEFUN(lup1, UP, "Scroll up one line")
-{
-    nscroll(searchKeyNum(), B_SCROLL);
-}
-
-/* 1 line down */
-DEFUN(ldown1, DOWN, "Scroll down one line")
-{
-    nscroll(-searchKeyNum(), B_SCROLL);
-}
-
-/* move cursor position to the center of screen */
-DEFUN(ctrCsrV, CENTER_V, "Move to the center column")
-{
-    int offsety;
-    if (Currentbuf->firstLine == NULL)
-	return;
-    offsety = Currentbuf->LINES / 2 - Currentbuf->cursorY;
-    if (offsety != 0) {
-#if 0
-	Currentbuf->currentLine = lineSkip(Currentbuf,
-					   Currentbuf->currentLine, offsety,
-					   FALSE);
-#endif
-	Currentbuf->topLine =
-	    lineSkip(Currentbuf, Currentbuf->topLine, -offsety, FALSE);
-	arrangeLine(Currentbuf);
-	displayBuffer(Currentbuf, B_NORMAL);
-    }
-}
-
-DEFUN(ctrCsrH, CENTER_H, "Move to the center line")
-{
-    int offsetx;
-    if (Currentbuf->firstLine == NULL)
-	return;
-    offsetx = Currentbuf->cursorX - Currentbuf->COLS / 2;
-    if (offsetx != 0) {
-	columnSkip(Currentbuf, offsetx);
-	arrangeCursor(Currentbuf);
-	displayBuffer(Currentbuf, B_NORMAL);
-    }
-}
-
-/* Redraw screen */
-DEFUN(rdrwSc, REDRAW, "Redraw screen")
-{
-    clear();
-    arrangeCursor(Currentbuf);
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-static void
-clear_mark(Line *l)
-{
-    int pos;
-    if (!l)
-	return;
-    for (pos = 0; pos < l->size; pos++)
-	l->propBuf[pos] &= ~PE_MARK;
-}
-
-/* search by regular expression */
-static int
-srchcore(char *volatile str, int (*func) (Buffer *, char *))
-{
-    MySignalHandler(*prevtrap) ();
-    volatile int i, result = SR_NOTFOUND;
-
-    if (str != NULL && str != SearchString)
-	SearchString = str;
-    if (SearchString == NULL || *SearchString == '\0')
-	return SR_NOTFOUND;
-
-    str = conv_search_string(SearchString, DisplayCharset);
-    prevtrap = mySignal(SIGINT, intTrap);
-    crmode();
-    if (SETJMP(IntReturn) == 0) {
-	for (i = 0; i < PREC_NUM; i++) {
-	    result = func(Currentbuf, str);
-	    if (i < PREC_NUM - 1 && result & SR_FOUND)
-		clear_mark(Currentbuf->currentLine);
-	}
-    }
-    mySignal(SIGINT, prevtrap);
-    term_raw();
-    return result;
-}
-
-static void
-disp_srchresult(int result, char *prompt, char *str)
-{
-    if (str == NULL)
-	str = "";
-    if (result & SR_NOTFOUND)
-	disp_message(Sprintf("Not found: %s", str)->ptr, TRUE);
-    else if (result & SR_WRAPPED)
-	disp_message(Sprintf("Search wrapped: %s", str)->ptr, TRUE);
-    else if (show_srch_str)
-	disp_message(Sprintf("%s%s", prompt, str)->ptr, TRUE);
-}
-
-static int
-dispincsrch(int ch, Str buf, Lineprop *prop)
-{
-    static Buffer sbuf;
-    static Line *currentLine;
-    static int pos;
-    char *str;
-    int do_next_search = FALSE;
-
-    if (ch == 0 && buf == NULL) {
-	SAVE_BUFPOSITION(&sbuf);	/* search starting point */
-	currentLine = sbuf.currentLine;
-	pos = sbuf.pos;
-	return -1;
-    }
-
-    str = buf->ptr;
-    switch (ch) {
-    case 022:			/* C-r */
-	searchRoutine = backwardSearch;
-	do_next_search = TRUE;
-	break;
-    case 023:			/* C-s */
-	searchRoutine = forwardSearch;
-	do_next_search = TRUE;
-	break;
-
-#ifdef USE_MIGEMO
-    case 034:
-	migemo_active = -migemo_active;
-	goto done;
-#endif
-
-    default:
-	if (ch >= 0)
-	    return ch;		/* use InputKeymap */
-    }
-
-    if (do_next_search) {
-	if (*str) {
-	    if (searchRoutine == forwardSearch)
-		Currentbuf->pos += 1;
-	    SAVE_BUFPOSITION(&sbuf);
-	    if (srchcore(str, searchRoutine) == SR_NOTFOUND
-		&& searchRoutine == forwardSearch) {
-		Currentbuf->pos -= 1;
-		SAVE_BUFPOSITION(&sbuf);
-	    }
-	    arrangeCursor(Currentbuf);
-	    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-	    clear_mark(Currentbuf->currentLine);
-	    return -1;
-	}
-	else
-	    return 020;		/* _prev completion for C-s C-s */
-    }
-    else if (*str) {
-	RESTORE_BUFPOSITION(&sbuf);
-	arrangeCursor(Currentbuf);
-	srchcore(str, searchRoutine);
-	arrangeCursor(Currentbuf);
-	currentLine = Currentbuf->currentLine;
-	pos = Currentbuf->pos;
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-    clear_mark(Currentbuf->currentLine);
-#ifdef USE_MIGEMO
-  done:
-    while (*str++ != '\0') {
-	if (migemo_active > 0)
-	    *prop++ |= PE_UNDER;
-	else
-	    *prop++ &= ~PE_UNDER;
-    }
-#endif
-    return -1;
-}
-
-void
-isrch(int (*func) (Buffer *, char *), char *prompt)
-{
-    char *str;
-    Buffer sbuf;
-    SAVE_BUFPOSITION(&sbuf);
-    dispincsrch(0, NULL, NULL);	/* initialize incremental search state */
-
-    searchRoutine = func;
-    str = inputLineHistSearch(prompt, NULL, IN_STRING, TextHist, dispincsrch);
-    if (str == NULL) {
-	RESTORE_BUFPOSITION(&sbuf);
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-void
-srch(int (*func) (Buffer *, char *), char *prompt)
-{
-    char *str;
-    int result;
-    int disp = FALSE;
-    int pos;
-
-    str = searchKeyData();
-    if (str == NULL || *str == '\0') {
-	str = inputStrHist(prompt, NULL, TextHist);
-	if (str != NULL && *str == '\0')
-	    str = SearchString;
-	if (str == NULL) {
-	    displayBuffer(Currentbuf, B_NORMAL);
-	    return;
-	}
-	disp = TRUE;
-    }
-    pos = Currentbuf->pos;
-    if (func == forwardSearch)
-	Currentbuf->pos += 1;
-    result = srchcore(str, func);
-    if (result & SR_FOUND)
-	clear_mark(Currentbuf->currentLine);
-    else
-	Currentbuf->pos = pos;
-    displayBuffer(Currentbuf, B_NORMAL);
-    if (disp)
-	disp_srchresult(result, prompt, str);
-    searchRoutine = func;
-}
-
-/* Search regular expression forward */
-
-DEFUN(srchfor, SEARCH SEARCH_FORE WHEREIS, "Search forward")
-{
-    srch(forwardSearch, "Forward: ");
-}
-
-DEFUN(isrchfor, ISEARCH, "Incremental search forward")
-{
-    isrch(forwardSearch, "I-search: ");
-}
-
-/* Search regular expression backward */
-
-DEFUN(srchbak, SEARCH_BACK, "Search backward")
-{
-    srch(backwardSearch, "Backward: ");
-}
-
-DEFUN(isrchbak, ISEARCH_BACK, "Incremental search backward")
-{
-    isrch(backwardSearch, "I-search backward: ");
-}
-
-static void
-srch_nxtprv(int reverse)
-{
-    int result;
-    /* *INDENT-OFF* */
-    static int (*routine[2]) (Buffer *, char *) = {
-	forwardSearch, backwardSearch
-    };
-    /* *INDENT-ON* */
-
-    if (searchRoutine == NULL) {
-	/* FIXME: gettextize? */
-	disp_message("No previous regular expression", TRUE);
-	return;
-    }
-    if (reverse != 0)
-	reverse = 1;
-    if (searchRoutine == backwardSearch)
-	reverse ^= 1;
-    if (reverse == 0)
-	Currentbuf->pos += 1;
-    result = srchcore(SearchString, routine[reverse]);
-    if (result & SR_FOUND)
-	clear_mark(Currentbuf->currentLine);
-    displayBuffer(Currentbuf, B_NORMAL);
-    disp_srchresult(result, (reverse ? "Backward: " : "Forward: "),
-		    SearchString);
-}
-
-/* Search next matching */
-DEFUN(srchnxt, SEARCH_NEXT, "Search next regexp")
-{
-    srch_nxtprv(0);
-}
-
-/* Search previous matching */
-DEFUN(srchprv, SEARCH_PREV, "Search previous regexp")
-{
-    srch_nxtprv(1);
-}
-
-static void
-shiftvisualpos(Buffer *buf, int shift)
-{
-    Line *l = buf->currentLine;
-    buf->visualpos -= shift;
-    if (buf->visualpos - l->bwidth >= buf->COLS)
-	buf->visualpos = l->bwidth + buf->COLS - 1;
-    else if (buf->visualpos - l->bwidth < 0)
-	buf->visualpos = l->bwidth;
-    arrangeLine(buf);
-    if (buf->visualpos - l->bwidth == -shift && buf->cursorX == 0)
-	buf->visualpos = l->bwidth;
-}
-
-/* Shift screen left */
-DEFUN(shiftl, SHIFT_LEFT, "Shift screen left")
-{
-    int column;
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-    column = Currentbuf->currentColumn;
-    columnSkip(Currentbuf, searchKeyNum() * (-Currentbuf->COLS + 1) + 1);
-    shiftvisualpos(Currentbuf, Currentbuf->currentColumn - column);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-/* Shift screen right */
-DEFUN(shiftr, SHIFT_RIGHT, "Shift screen right")
-{
-    int column;
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-    column = Currentbuf->currentColumn;
-    columnSkip(Currentbuf, searchKeyNum() * (Currentbuf->COLS - 1) - 1);
-    shiftvisualpos(Currentbuf, Currentbuf->currentColumn - column);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-DEFUN(col1R, RIGHT, "Shift screen one column right")
-{
-    Buffer *buf = Currentbuf;
-    Line *l = buf->currentLine;
-    int j, column, n = searchKeyNum();
-
-    if (l == NULL)
-	return;
-    for (j = 0; j < n; j++) {
-	column = buf->currentColumn;
-	columnSkip(Currentbuf, 1);
-	if (column == buf->currentColumn)
-	    break;
-	shiftvisualpos(Currentbuf, 1);
-    }
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-DEFUN(col1L, LEFT, "Shift screen one column")
-{
-    Buffer *buf = Currentbuf;
-    Line *l = buf->currentLine;
-    int j, n = searchKeyNum();
-
-    if (l == NULL)
-	return;
-    for (j = 0; j < n; j++) {
-	if (buf->currentColumn == 0)
-	    break;
-	columnSkip(Currentbuf, -1);
-	shiftvisualpos(Currentbuf, -1);
-    }
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-DEFUN(setEnv, SETENV, "Set environment variable")
-{
-    char *env;
-    char *var, *value;
-
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    env = searchKeyData();
-    if (env == NULL || *env == '\0' || strchr(env, '=') == NULL) {
-	if (env != NULL && *env != '\0')
-	    env = Sprintf("%s=", env)->ptr;
-	env = inputStrHist("Set environ: ", env, TextHist);
-	if (env == NULL || *env == '\0') {
-	    displayBuffer(Currentbuf, B_NORMAL);
-	    return;
-	}
-    }
-    if ((value = strchr(env, '=')) != NULL && value > env) {
-	var = allocStr(env, value - env);
-	value++;
-	set_environ(var, value);
-    }
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-DEFUN(pipeBuf, PIPE_BUF, "Send rendered document to pipe")
-{
-    Buffer *buf;
-    char *cmd, *tmpf;
-    FILE *f;
-
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    cmd = searchKeyData();
-    if (cmd == NULL || *cmd == '\0') {
-	/* FIXME: gettextize? */
-	cmd = inputLineHist("Pipe buffer to: ", "", IN_COMMAND, ShellHist);
-    }
-    if (cmd != NULL)
-	cmd = conv_to_system(cmd);
-    if (cmd == NULL || *cmd == '\0') {
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-    tmpf = tmpfname(TMPF_DFL, NULL)->ptr;
-    f = fopen(tmpf, "w");
-    if (f == NULL) {
-	/* FIXME: gettextize? */
-	disp_message(Sprintf("Can't save buffer to %s", cmd)->ptr, TRUE);
-	return;
-    }
-    saveBuffer(Currentbuf, f, TRUE);
-    fclose(f);
-    buf = getpipe(myExtCommand(cmd, shell_quote(tmpf), TRUE)->ptr);
-    if (buf == NULL) {
-	disp_message("Execution failed", TRUE);
-	return;
-    }
-    else {
-	buf->filename = cmd;
-	buf->buffername = Sprintf("%s %s", PIPEBUFFERNAME,
-				  conv_from_system(cmd))->ptr;
-	buf->bufferprop |= (BP_INTERNAL | BP_NO_URL);
-	if (buf->type == NULL)
-	    buf->type = "text/plain";
-	buf->currentURL.file = "-";
-	pushBuffer(buf);
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-/* Execute shell command and read output ac pipe. */
-DEFUN(pipesh, PIPE_SHELL, "Execute shell command and browse")
-{
-    Buffer *buf;
-    char *cmd;
-
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    cmd = searchKeyData();
-    if (cmd == NULL || *cmd == '\0') {
-	cmd = inputLineHist("(read shell[pipe])!", "", IN_COMMAND, ShellHist);
-    }
-    if (cmd != NULL)
-	cmd = conv_to_system(cmd);
-    if (cmd == NULL || *cmd == '\0') {
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-    buf = getpipe(cmd);
-    if (buf == NULL) {
-	disp_message("Execution failed", TRUE);
-	return;
-    }
-    else {
-	buf->bufferprop |= (BP_INTERNAL | BP_NO_URL);
-	if (buf->type == NULL)
-	    buf->type = "text/plain";
-	pushBuffer(buf);
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-/* Execute shell command and load entire output to buffer */
-DEFUN(readsh, READ_SHELL, "Execute shell command and load")
-{
-    Buffer *buf;
-    MySignalHandler(*prevtrap) ();
-    char *cmd;
-
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    cmd = searchKeyData();
-    if (cmd == NULL || *cmd == '\0') {
-	cmd = inputLineHist("(read shell)!", "", IN_COMMAND, ShellHist);
-    }
-    if (cmd != NULL)
-	cmd = conv_to_system(cmd);
-    if (cmd == NULL || *cmd == '\0') {
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-    prevtrap = mySignal(SIGINT, intTrap);
-    crmode();
-    buf = getshell(cmd);
-    mySignal(SIGINT, prevtrap);
-    term_raw();
-    if (buf == NULL) {
-	/* FIXME: gettextize? */
-	disp_message("Execution failed", TRUE);
-	return;
-    }
-    else {
-	buf->bufferprop |= (BP_INTERNAL | BP_NO_URL);
-	if (buf->type == NULL)
-	    buf->type = "text/plain";
-	pushBuffer(buf);
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-/* Execute shell command */
-DEFUN(execsh, EXEC_SHELL SHELL, "Execute shell command")
-{
-    char *cmd;
-
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    cmd = searchKeyData();
-    if (cmd == NULL || *cmd == '\0') {
-	cmd = inputLineHist("(exec shell)!", "", IN_COMMAND, ShellHist);
-    }
-    if (cmd != NULL)
-	cmd = conv_to_system(cmd);
-    if (cmd != NULL && *cmd != '\0') {
-	fmTerm();
-	printf("\n");
-	system(cmd);
-	/* FIXME: gettextize? */
-	printf("\n[Hit any key]");
-	fflush(stdout);
-	fmInit();
-	getch();
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-/* Load file */
-DEFUN(ldfile, LOAD, "Load local file")
-{
-    char *fn;
-
-    fn = searchKeyData();
-    if (fn == NULL || *fn == '\0') {
-	/* FIXME: gettextize? */
-	fn = inputFilenameHist("(Load)Filename? ", NULL, LoadHist);
-    }
-    if (fn != NULL)
-	fn = conv_to_system(fn);
-    if (fn == NULL || *fn == '\0') {
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-    cmd_loadfile(fn);
-}
-
-/* Load help file */
-DEFUN(ldhelp, HELP, "View help")
-{
-#ifdef USE_HELP_CGI
-    char *lang;
-    int n;
-    Str tmp;
-
-    lang = AcceptLang;
-    n = strcspn(lang, ";, \t");
-    tmp = Sprintf("file:///$LIB/" HELP_CGI CGI_EXTENSION "?version=%s&lang=%s",
-		  Str_form_quote(Strnew_charp(w3m_version))->ptr,
-		  Str_form_quote(Strnew_charp_n(lang, n))->ptr);
-    cmd_loadURL(tmp->ptr, NULL, NO_REFERER, NULL);
-#else
-    cmd_loadURL(helpFile(HELP_FILE), NULL, NO_REFERER, NULL);
-#endif
-}
-
-static void
-cmd_loadfile(char *fn)
-{
-    Buffer *buf;
-
-    buf = loadGeneralFile(file_to_url(fn), NULL, NO_REFERER, 0, NULL);
-    if (buf == NULL) {
-	/* FIXME: gettextize? */
-	char *emsg = Sprintf("%s not found", conv_from_system(fn))->ptr;
-	disp_err_message(emsg, FALSE);
-    }
-    else if (buf != NO_BUFFER) {
-	pushBuffer(buf);
-	if (RenderFrame && Currentbuf->frameset != NULL)
-	    rFrame();
-    }
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-/* Move cursor left */
-static void
-_movL(int n)
-{
-    int i, m = searchKeyNum();
-    if (Currentbuf->firstLine == NULL)
-	return;
-    for (i = 0; i < m; i++)
-	cursorLeft(Currentbuf, n);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-DEFUN(movL, MOVE_LEFT,
-      "Move cursor left (a half screen shift at the left edge)")
-{
-    _movL(Currentbuf->COLS / 2);
-}
-
-DEFUN(movL1, MOVE_LEFT1, "Move cursor left (1 columns shift at the left edge)")
-{
-    _movL(1);
-}
-
-/* Move cursor downward */
-static void
-_movD(int n)
-{
-    int i, m = searchKeyNum();
-    if (Currentbuf->firstLine == NULL)
-	return;
-    for (i = 0; i < m; i++)
-	cursorDown(Currentbuf, n);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-DEFUN(movD, MOVE_DOWN,
-      "Move cursor down (a half screen scroll at the end of screen)")
-{
-    _movD((Currentbuf->LINES + 1) / 2);
-}
-
-DEFUN(movD1, MOVE_DOWN1,
-      "Move cursor down (1 line scroll at the end of screen)")
-{
-    _movD(1);
-}
-
-/* move cursor upward */
-static void
-_movU(int n)
-{
-    int i, m = searchKeyNum();
-    if (Currentbuf->firstLine == NULL)
-	return;
-    for (i = 0; i < m; i++)
-	cursorUp(Currentbuf, n);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-DEFUN(movU, MOVE_UP,
-      "Move cursor up (a half screen scroll at the top of screen)")
-{
-    _movU((Currentbuf->LINES + 1) / 2);
-}
-
-DEFUN(movU1, MOVE_UP1, "Move cursor up (1 line scrol at the top of screen)")
-{
-    _movU(1);
-}
-
-/* Move cursor right */
-static void
-_movR(int n)
-{
-    int i, m = searchKeyNum();
-    if (Currentbuf->firstLine == NULL)
-	return;
-    for (i = 0; i < m; i++)
-	cursorRight(Currentbuf, n);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-DEFUN(movR, MOVE_RIGHT,
-      "Move cursor right (a half screen shift at the right edge)")
-{
-    _movR(Currentbuf->COLS / 2);
-}
-
-DEFUN(movR1, MOVE_RIGHT1,
-      "Move cursor right (1 columns shift at the right edge)")
-{
-    _movR(1);
-}
-
-/* movLW, movRW */
-/* 
- * From: Takashi Nishimoto <g96p0935@mse.waseda.ac.jp> Date: Mon, 14 Jun
- * 1999 09:29:56 +0900 
- */
-#define IS_WORD_CHAR(c,p) (IS_ALNUM(c) && CharType(p) == PC_ASCII)
-
-static int
-prev_nonnull_line(Line *line)
-{
-    Line *l;
-
-    for (l = line; l != NULL && l->len == 0; l = l->prev) ;
-    if (l == NULL || l->len == 0)
-	return -1;
-
-    Currentbuf->currentLine = l;
-    if (l != line)
-	Currentbuf->pos = Currentbuf->currentLine->len;
-    return 0;
-}
-
-DEFUN(movLW, PREV_WORD, "Move to previous word")
-{
-    char *lb;
-    Lineprop *pb;
-    Line *pline;
-    int ppos;
-    int i, n = searchKeyNum();
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-
-    for (i = 0; i < n; i++) {
-	pline = Currentbuf->currentLine;
-	ppos = Currentbuf->pos;
-
-	if (prev_nonnull_line(Currentbuf->currentLine) < 0)
-	    goto end;
-
-	while (1) {
-	    lb = Currentbuf->currentLine->lineBuf;
-	    pb = Currentbuf->currentLine->propBuf;
-	    while (Currentbuf->pos > 0 &&
-		   !IS_WORD_CHAR(lb[Currentbuf->pos - 1],
-				 pb[Currentbuf->pos - 1])) {
-		Currentbuf->pos--;
-	    }
-	    if (Currentbuf->pos > 0)
-		break;
-	    if (prev_nonnull_line(Currentbuf->currentLine->prev) < 0) {
-		Currentbuf->currentLine = pline;
-		Currentbuf->pos = ppos;
-		goto end;
-	    }
-	    Currentbuf->pos = Currentbuf->currentLine->len;
-	}
-
-	lb = Currentbuf->currentLine->lineBuf;
-	pb = Currentbuf->currentLine->propBuf;
-	while (Currentbuf->pos > 0 &&
-	       IS_WORD_CHAR(lb[Currentbuf->pos - 1],
-			    pb[Currentbuf->pos - 1])) {
-	    Currentbuf->pos--;
-	}
-    }
-  end:
-    arrangeCursor(Currentbuf);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-static int
-next_nonnull_line(Line *line)
-{
-    Line *l;
-
-    for (l = line; l != NULL && l->len == 0; l = l->next) ;
-
-    if (l == NULL || l->len == 0)
-	return -1;
-
-    Currentbuf->currentLine = l;
-    if (l != line)
-	Currentbuf->pos = 0;
-    return 0;
-}
-
-DEFUN(movRW, NEXT_WORD, "Move to next word")
-{
-    char *lb;
-    Lineprop *pb;
-    Line *pline;
-    int ppos;
-    int i, n = searchKeyNum();
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-
-    for (i = 0; i < n; i++) {
-	pline = Currentbuf->currentLine;
-	ppos = Currentbuf->pos;
-
-	if (next_nonnull_line(Currentbuf->currentLine) < 0)
-	    goto end;
-
-	lb = Currentbuf->currentLine->lineBuf;
-	pb = Currentbuf->currentLine->propBuf;
-
-	while (lb[Currentbuf->pos] &&
-	       IS_WORD_CHAR(lb[Currentbuf->pos], pb[Currentbuf->pos]))
-	    Currentbuf->pos++;
-
-	while (1) {
-	    while (lb[Currentbuf->pos] &&
-		   !IS_WORD_CHAR(lb[Currentbuf->pos], pb[Currentbuf->pos]))
-		Currentbuf->pos++;
-	    if (lb[Currentbuf->pos])
-		break;
-	    if (next_nonnull_line(Currentbuf->currentLine->next) < 0) {
-		Currentbuf->currentLine = pline;
-		Currentbuf->pos = ppos;
-		goto end;
-	    }
-	    Currentbuf->pos = 0;
-	    lb = Currentbuf->currentLine->lineBuf;
-	    pb = Currentbuf->currentLine->propBuf;
-	}
-    }
-  end:
-    arrangeCursor(Currentbuf);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-static void
-_quitfm(int confirm)
-{
-    char *ans = "y";
-
-    if (checkDownloadList())
-	/* FIXME: gettextize? */
-	ans = inputChar("Download process retains. "
-			"Do you want to exit w3m? (y/n)");
-    else if (confirm)
-	/* FIXME: gettextize? */
-	ans = inputChar("Do you want to exit w3m? (y/n)");
-    if (!(ans && TOLOWER(*ans) == 'y')) {
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-
-    term_title("");		/* XXX */
-#ifdef USE_IMAGE
-    if (activeImage)
-	termImage();
-#endif
-    fmTerm();
-#ifdef USE_COOKIE
-    save_cookies();
-#endif				/* USE_COOKIE */
-#ifdef USE_HISTORY
-    if (UseHistory && SaveURLHist)
-	saveHistory(URLHist, URLHistSize);
-#endif				/* USE_HISTORY */
-    w3m_exit(0);
-}
-
-/* Quit */
-DEFUN(quitfm, ABORT EXIT, "Quit w3m without confirmation")
-{
-    _quitfm(FALSE);
-}
-
-/* Question and Quit */
-DEFUN(qquitfm, QUIT, "Quit w3m")
-{
-    _quitfm(confirm_on_quit);
-}
-
-/* Select buffer */
-DEFUN(selBuf, SELECT, "Go to buffer selection panel")
-{
-    Buffer *buf;
-    int ok;
-    char cmd;
-
-    ok = FALSE;
-    do {
-	buf = selectBuffer(Firstbuf, Currentbuf, &cmd);
-	switch (cmd) {
-	case 'B':
-	    ok = TRUE;
-	    break;
-	case '\n':
-	case ' ':
-	    Currentbuf = buf;
-	    ok = TRUE;
-	    break;
-	case 'D':
-	    delBuffer(buf);
-	    if (Firstbuf == NULL) {
-		/* No more buffer */
-		Firstbuf = nullBuffer();
-		Currentbuf = Firstbuf;
-	    }
-	    break;
-	case 'q':
-	    qquitfm();
-	    break;
-	case 'Q':
-	    quitfm();
-	    break;
-	}
-    } while (!ok);
-
-    for (buf = Firstbuf; buf != NULL; buf = buf->nextBuffer) {
-	if (buf == Currentbuf)
-	    continue;
-#ifdef USE_IMAGE
-	deleteImage(buf);
-#endif
-	if (clear_buffer)
-	    tmpClearBuffer(buf);
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-/* Suspend (on BSD), or run interactive shell (on SysV) */
-DEFUN(susp, INTERRUPT SUSPEND, "Stop loading document")
-{
-#ifndef SIGSTOP
-    char *shell;
-#endif				/* not SIGSTOP */
-    move(LASTLINE, 0);
-    clrtoeolx();
-    refresh();
-    fmTerm();
-#ifndef SIGSTOP
-    shell = getenv("SHELL");
-    if (shell == NULL)
-	shell = "/bin/sh";
-    system(shell);
-#else				/* SIGSTOP */
-    kill((pid_t) 0, SIGSTOP);
-#endif				/* SIGSTOP */
-    fmInit();
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-/* Go to specified line */
-static void
-_goLine(char *l)
-{
-    if (l == NULL || *l == '\0' || Currentbuf->currentLine == NULL) {
-	displayBuffer(Currentbuf, B_FORCE_REDRAW);
-	return;
-    }
-    Currentbuf->pos = 0;
-    if (((*l == '^') || (*l == '$')) && prec_num) {
-	gotoRealLine(Currentbuf, prec_num);
-    }
-    else if (*l == '^') {
-	Currentbuf->topLine = Currentbuf->currentLine = Currentbuf->firstLine;
-    }
-    else if (*l == '$') {
-	Currentbuf->topLine =
-	    lineSkip(Currentbuf, Currentbuf->lastLine,
-		     -(Currentbuf->LINES + 1) / 2, TRUE);
-	Currentbuf->currentLine = Currentbuf->lastLine;
-    }
-    else
-	gotoRealLine(Currentbuf, atoi(l));
-    arrangeCursor(Currentbuf);
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-DEFUN(goLine, GOTO_LINE, "Go to specified line")
-{
-
-    char *str = searchKeyData();
-    if (prec_num)
-	_goLine("^");
-    else if (str)
-	_goLine(str);
-    else
-	/* FIXME: gettextize? */
-	_goLine(inputStr("Goto line: ", ""));
-}
-
-
-DEFUN(goLineF, BEGIN, "Go to the first line")
-{
-    _goLine("^");
-}
-
-DEFUN(goLineL, END, "Go to the last line")
-{
-    _goLine("$");
-}
-
-/* Go to the beginning of the line */
-DEFUN(linbeg, LINE_BEGIN, "Go to the beginning of line")
-{
-    if (Currentbuf->firstLine == NULL)
-	return;
-    while (Currentbuf->currentLine->prev && Currentbuf->currentLine->bpos)
-	cursorUp0(Currentbuf, 1);
-    Currentbuf->pos = 0;
-    arrangeCursor(Currentbuf);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-/* Go to the bottom of the line */
-DEFUN(linend, LINE_END, "Go to the end of line")
-{
-    if (Currentbuf->firstLine == NULL)
-	return;
-    while (Currentbuf->currentLine->next
-	   && Currentbuf->currentLine->next->bpos)
-	cursorDown0(Currentbuf, 1);
-    Currentbuf->pos = Currentbuf->currentLine->len - 1;
-    arrangeCursor(Currentbuf);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-static int
-cur_real_linenumber(Buffer *buf)
-{
-    Line *l, *cur = buf->currentLine;
-    int n;
-
-    if (!cur)
-	return 1;
-    n = cur->real_linenumber ? cur->real_linenumber : 1;
-    for (l = buf->firstLine; l && l != cur && l->real_linenumber == 0; l = l->next) {	/* header */
-	if (l->bpos == 0)
-	    n++;
-    }
-    return n;
-}
-
-/* Run editor on the current buffer */
-DEFUN(editBf, EDIT, "Edit current document")
-{
-    char *fn = Currentbuf->filename;
-    Str cmd;
-
-    if (fn == NULL || Currentbuf->pagerSource != NULL ||	/* Behaving as a pager */
-	(Currentbuf->type == NULL && Currentbuf->edit == NULL) ||	/* Reading shell */
-	Currentbuf->real_scheme != SCM_LOCAL || !strcmp(Currentbuf->currentURL.file, "-") ||	/* file is std input  */
-	Currentbuf->bufferprop & BP_FRAME) {	/* Frame */
-	disp_err_message("Can't edit other than local file", TRUE);
-	return;
-    }
-    if (Currentbuf->edit)
-	cmd = unquote_mailcap(Currentbuf->edit, Currentbuf->real_type, fn,
-			      checkHeader(Currentbuf, "Content-Type:"), NULL);
-    else
-	cmd = myEditor(Editor, shell_quote(fn),
-		       cur_real_linenumber(Currentbuf));
-    fmTerm();
-    system(cmd->ptr);
-    fmInit();
-
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-    reload();
-}
-
-/* Run editor on the current screen */
-DEFUN(editScr, EDIT_SCREEN, "Edit currently rendered document")
-{
-    char *tmpf;
-    FILE *f;
-
-    tmpf = tmpfname(TMPF_DFL, NULL)->ptr;
-    f = fopen(tmpf, "w");
-    if (f == NULL) {
-	/* FIXME: gettextize? */
-	disp_err_message(Sprintf("Can't open %s", tmpf)->ptr, TRUE);
-	return;
-    }
-    saveBuffer(Currentbuf, f, TRUE);
-    fclose(f);
-    fmTerm();
-    system(myEditor(Editor, shell_quote(tmpf),
-		    cur_real_linenumber(Currentbuf))->ptr);
-    fmInit();
-    unlink(tmpf);
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-#ifdef USE_MARK
-
-/* Set / unset mark */
-DEFUN(_mark, MARK, "Set/unset mark")
-{
-    Line *l;
-    if (!use_mark)
-	return;
-    if (Currentbuf->firstLine == NULL)
-	return;
-    l = Currentbuf->currentLine;
-    l->propBuf[Currentbuf->pos] ^= PE_MARK;
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-/* Go to next mark */
-DEFUN(nextMk, NEXT_MARK, "Move to next word")
-{
-    Line *l;
-    int i;
-
-    if (!use_mark)
-	return;
-    if (Currentbuf->firstLine == NULL)
-	return;
-    i = Currentbuf->pos + 1;
-    l = Currentbuf->currentLine;
-    if (i >= l->len) {
-	i = 0;
-	l = l->next;
-    }
-    while (l != NULL) {
-	for (; i < l->len; i++) {
-	    if (l->propBuf[i] & PE_MARK) {
-		Currentbuf->currentLine = l;
-		Currentbuf->pos = i;
-		arrangeCursor(Currentbuf);
-		displayBuffer(Currentbuf, B_NORMAL);
-		return;
-	    }
-	}
-	l = l->next;
-	i = 0;
-    }
-    /* FIXME: gettextize? */
-    disp_message("No mark exist after here", TRUE);
-}
-
-/* Go to previous mark */
-DEFUN(prevMk, PREV_MARK, "Move to previous mark")
-{
-    Line *l;
-    int i;
-
-    if (!use_mark)
-	return;
-    if (Currentbuf->firstLine == NULL)
-	return;
-    i = Currentbuf->pos - 1;
-    l = Currentbuf->currentLine;
-    if (i < 0) {
-	l = l->prev;
-	if (l != NULL)
-	    i = l->len - 1;
-    }
-    while (l != NULL) {
-	for (; i >= 0; i--) {
-	    if (l->propBuf[i] & PE_MARK) {
-		Currentbuf->currentLine = l;
-		Currentbuf->pos = i;
-		arrangeCursor(Currentbuf);
-		displayBuffer(Currentbuf, B_NORMAL);
-		return;
-	    }
-	}
-	l = l->prev;
-	if (l != NULL)
-	    i = l->len - 1;
-    }
-    /* FIXME: gettextize? */
-    disp_message("No mark exist before here", TRUE);
-}
-
-/* Mark place to which the regular expression matches */
-DEFUN(reMark, REG_MARK, "Set mark using regexp")
-{
-    Line *l;
-    char *str;
-    char *p, *p1, *p2;
-
-    if (!use_mark)
-	return;
-    str = searchKeyData();
-    if (str == NULL || *str == '\0') {
-	str = inputStrHist("(Mark)Regexp: ", MarkString, TextHist);
-	if (str == NULL || *str == '\0') {
-	    displayBuffer(Currentbuf, B_NORMAL);
-	    return;
-	}
-    }
-    str = conv_search_string(str, DisplayCharset);
-    if ((str = regexCompile(str, 1)) != NULL) {
-	disp_message(str, TRUE);
-	return;
-    }
-    MarkString = str;
-    for (l = Currentbuf->firstLine; l != NULL; l = l->next) {
-	p = l->lineBuf;
-	for (;;) {
-	    if (regexMatch(p, &l->lineBuf[l->len] - p, p == l->lineBuf) == 1) {
-		matchedPosition(&p1, &p2);
-		l->propBuf[p1 - l->lineBuf] |= PE_MARK;
-		p = p2;
-	    }
-	    else
-		break;
-	}
-    }
-
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-#endif				/* USE_MARK */
-
-static Buffer *
-loadNormalBuf(Buffer *buf, int renderframe)
-{
-    pushBuffer(buf);
-    if (renderframe && RenderFrame && Currentbuf->frameset != NULL)
-	rFrame();
-    return buf;
-}
-
-static Buffer *
-loadLink(char *url, char *target, char *referer, FormList *request)
-{
-    Buffer *buf, *nfbuf;
-    union frameset_element *f_element = NULL;
-    int flag = 0;
-    ParsedURL *base, pu;
-
-    message(Sprintf("loading %s", url)->ptr, 0, 0);
-    refresh();
-
-    base = baseURL(Currentbuf);
-    if (base == NULL ||
-	base->scheme == SCM_LOCAL || base->scheme == SCM_LOCAL_CGI)
-	referer = NO_REFERER;
-    if (referer == NULL)
-	referer = parsedURL2Str(&Currentbuf->currentURL)->ptr;
-    buf = loadGeneralFile(url, baseURL(Currentbuf), referer, flag, request);
-    if (buf == NULL) {
-	char *emsg = Sprintf("Can't load %s", url)->ptr;
-	disp_err_message(emsg, FALSE);
-	return NULL;
-    }
-
-    parseURL2(url, &pu, base);
-    pushHashHist(URLHist, parsedURL2Str(&pu)->ptr);
-
-    if (buf == NO_BUFFER) {
-	return NULL;
-    }
-    if (!on_target)		/* open link as an indivisual page */
-	return loadNormalBuf(buf, TRUE);
-
-    if (do_download)		/* download (thus no need to render frame) */
-	return loadNormalBuf(buf, FALSE);
-
-    if (target == NULL ||	/* no target specified (that means this page is not a frame page) */
-	!strcmp(target, "_top") ||	/* this link is specified to be opened as an indivisual * page */
-	!(Currentbuf->bufferprop & BP_FRAME)	/* This page is not a frame page */
-	) {
-	return loadNormalBuf(buf, TRUE);
-    }
-    nfbuf = Currentbuf->linkBuffer[LB_N_FRAME];
-    if (nfbuf == NULL) {
-	/* original page (that contains <frameset> tag) doesn't exist */
-	return loadNormalBuf(buf, TRUE);
-    }
-
-    f_element = search_frame(nfbuf->frameset, target);
-    if (f_element == NULL) {
-	/* specified target doesn't exist in this frameset */
-	return loadNormalBuf(buf, TRUE);
-    }
-
-    /* frame page */
-
-    /* stack current frameset */
-    pushFrameTree(&(nfbuf->frameQ), copyFrameSet(nfbuf->frameset), Currentbuf);
-    /* delete frame view buffer */
-    delBuffer(Currentbuf);
-    Currentbuf = nfbuf;
-    /* nfbuf->frameset = copyFrameSet(nfbuf->frameset); */
-    resetFrameElement(f_element, buf, referer, request);
-    discardBuffer(buf);
-    rFrame();
-    {
-	Anchor *al = NULL;
-	char *label = pu.label;
-
-	if (label && f_element->element->attr == F_BODY) {
-	    al = searchAnchor(f_element->body->nameList, label);
-	}
-	if (!al) {
-	    label = Strnew_m_charp("_", target, NULL)->ptr;
-	    al = searchURLLabel(Currentbuf, label);
-	}
-	if (al) {
-	    gotoLine(Currentbuf, al->start.line);
-	    if (label_topline)
-		Currentbuf->topLine = lineSkip(Currentbuf, Currentbuf->topLine,
-					       Currentbuf->currentLine->
-					       linenumber -
-					       Currentbuf->topLine->linenumber,
-					       FALSE);
-	    Currentbuf->pos = al->start.pos;
-	    arrangeCursor(Currentbuf);
-	}
-    }
-    displayBuffer(Currentbuf, B_NORMAL);
-    return buf;
-}
-
-static void
-gotoLabel(char *label)
-{
-    Buffer *buf;
-    Anchor *al;
-    int i;
-
-    al = searchURLLabel(Currentbuf, label);
-    if (al == NULL) {
-	/* FIXME: gettextize? */
-	disp_message(Sprintf("%s is not found", label)->ptr, TRUE);
-	return;
-    }
-    buf = newBuffer(Currentbuf->width);
-    copyBuffer(buf, Currentbuf);
-    for (i = 0; i < MAX_LB; i++)
-	buf->linkBuffer[i] = NULL;
-    buf->currentURL.label = allocStr(label, -1);
-    pushHashHist(URLHist, parsedURL2Str(&buf->currentURL)->ptr);
-    (*buf->clone)++;
-    pushBuffer(buf);
-    gotoLine(Currentbuf, al->start.line);
-    if (label_topline)
-	Currentbuf->topLine = lineSkip(Currentbuf, Currentbuf->topLine,
-				       Currentbuf->currentLine->linenumber
-				       - Currentbuf->topLine->linenumber,
-				       FALSE);
-    Currentbuf->pos = al->start.pos;
-    arrangeCursor(Currentbuf);
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-    return;
-}
-
-/* follow HREF link */
-DEFUN(followA, GOTO_LINK, "Go to current link")
-{
-    Line *l;
-    Anchor *a;
-    ParsedURL u;
-#ifdef USE_IMAGE
-    int x = 0, y = 0, map = 0;
-#endif
-    char *url;
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-    l = Currentbuf->currentLine;
-
-#ifdef USE_IMAGE
-    a = retrieveCurrentImg(Currentbuf);
-    if (a && a->image && a->image->map) {
-	_followForm(FALSE);
-	return;
-    }
-    if (a && a->image && a->image->ismap) {
-	getMapXY(Currentbuf, a, &x, &y);
-	map = 1;
-    }
-#else
-    a = retrieveCurrentMap(Currentbuf);
-    if (a) {
-	_followForm(FALSE);
-	return;
-    }
-#endif
-    a = retrieveCurrentAnchor(Currentbuf);
-    if (a == NULL) {
-	_followForm(FALSE);
-	return;
-    }
-    if (*a->url == '#') {	/* index within this buffer */
-	gotoLabel(a->url + 1);
-	return;
-    }
-    parseURL2(a->url, &u, baseURL(Currentbuf));
-    if (Strcmp(parsedURL2Str(&u), parsedURL2Str(&Currentbuf->currentURL)) == 0) {
-	/* index within this buffer */
-	if (u.label) {
-	    gotoLabel(u.label);
-	    return;
-	}
-    }
-    if (!strncasecmp(a->url, "mailto:", 7)
-#ifdef USE_W3MMAILER
-	&& non_null(Mailer) && strchr(a->url, '?') == NULL
-#endif
-	) {
-	/* invoke external mailer */
-	Str to = Strnew_charp(a->url + 7);
-#ifndef USE_W3MMAILER
-	char *pos;
-	if (!non_null(Mailer)) {
-	    /* FIXME: gettextize? */
-	    disp_err_message("no mailer is specified", TRUE);
-	    return;
-	}
-	if ((pos = strchr(to->ptr, '?')) != NULL)
-	    Strtruncate(to, pos - to->ptr);
-#endif
-	fmTerm();
-	system(myExtCommand(Mailer, shell_quote(file_unquote(to->ptr)),
-			    FALSE)->ptr);
-	fmInit();
-	displayBuffer(Currentbuf, B_FORCE_REDRAW);
-	pushHashHist(URLHist, a->url);
-	return;
-    }
-#if 0
-    else if (!strncasecmp(a->url, "news:", 5) && strchr(a->url, '@') == NULL) {
-	/* news:newsgroup is not supported */
-	/* FIXME: gettextize? */
-	disp_err_message("news:newsgroup_name is not supported", TRUE);
-	return;
-    }
-#endif				/* USE_NNTP */
-    url = a->url;
-#ifdef USE_IMAGE
-    if (map)
-	url = Sprintf("%s?%d,%d", a->url, x, y)->ptr;
-#endif
-
-    if (check_target && open_tab_blank && a->target &&
-	(!strcasecmp(a->target, "_new") || !strcasecmp(a->target, "_blank"))) {
-	Buffer *buf;
-
-	_newT();
-	buf = Currentbuf;
-	loadLink(url, a->target, a->referer, NULL);
-	if (buf != Currentbuf)
-	    delBuffer(buf);
-	else
-	    deleteTab(CurrentTab);
-	displayBuffer(Currentbuf, B_FORCE_REDRAW);
-	return;
-    }
-    loadLink(url, a->target, a->referer, NULL);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-/* follow HREF link in the buffer */
-void
-bufferA(void)
-{
-    on_target = FALSE;
-    followA();
-    on_target = TRUE;
-}
-
-/* view inline image */
-DEFUN(followI, VIEW_IMAGE, "View image")
-{
-    Line *l;
-    Anchor *a;
-    Buffer *buf;
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-    l = Currentbuf->currentLine;
-
-    a = retrieveCurrentImg(Currentbuf);
-    if (a == NULL)
-	return;
-    /* FIXME: gettextize? */
-    message(Sprintf("loading %s", a->url)->ptr, 0, 0);
-    refresh();
-    buf = loadGeneralFile(a->url, baseURL(Currentbuf), NULL, 0, NULL);
-    if (buf == NULL) {
-	/* FIXME: gettextize? */
-	char *emsg = Sprintf("Can't load %s", a->url)->ptr;
-	disp_err_message(emsg, FALSE);
-    }
-    else if (buf != NO_BUFFER) {
-	pushBuffer(buf);
-    }
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-static FormItemList *
-save_submit_formlist(FormItemList *src)
-{
-    FormList *list;
-    FormList *srclist;
-    FormItemList *srcitem;
-    FormItemList *item;
-    FormItemList *ret = NULL;
-#ifdef MENU_SELECT
-    FormSelectOptionItem *opt;
-    FormSelectOptionItem *curopt;
-    FormSelectOptionItem *srcopt;
-#endif				/* MENU_SELECT */
-
-    if (src == NULL)
-	return NULL;
-    srclist = src->parent;
-    list = New(FormList);
-    list->method = srclist->method;
-    list->action = Strdup(srclist->action);
-#ifdef USE_M17N
-    list->charset = srclist->charset;
-#endif
-    list->enctype = srclist->enctype;
-    list->nitems = srclist->nitems;
-    list->body = srclist->body;
-    list->boundary = srclist->boundary;
-    list->length = srclist->length;
-
-    for (srcitem = srclist->item; srcitem; srcitem = srcitem->next) {
-	item = New(FormItemList);
-	item->type = srcitem->type;
-	item->name = Strdup(srcitem->name);
-	item->value = Strdup(srcitem->value);
-	item->checked = srcitem->checked;
-	item->accept = srcitem->accept;
-	item->size = srcitem->size;
-	item->rows = srcitem->rows;
-	item->maxlength = srcitem->maxlength;
-	item->readonly = srcitem->readonly;
-#ifdef MENU_SELECT
-	opt = curopt = NULL;
-	for (srcopt = srcitem->select_option; srcopt; srcopt = srcopt->next) {
-	    if (!srcopt->checked)
-		continue;
-	    opt = New(FormSelectOptionItem);
-	    opt->value = Strdup(srcopt->value);
-	    opt->label = Strdup(srcopt->label);
-	    opt->checked = srcopt->checked;
-	    if (item->select_option == NULL) {
-		item->select_option = curopt = opt;
-	    }
-	    else {
-		curopt->next = opt;
-		curopt = curopt->next;
-	    }
-	}
-	item->select_option = opt;
-	if (srcitem->label)
-	    item->label = Strdup(srcitem->label);
-#endif				/* MENU_SELECT */
-	item->parent = list;
-	item->next = NULL;
-
-	if (list->lastitem == NULL) {
-	    list->item = list->lastitem = item;
-	}
-	else {
-	    list->lastitem->next = item;
-	    list->lastitem = item;
-	}
-
-	if (srcitem == src)
-	    ret = item;
-    }
-
-    return ret;
-}
-
-#ifdef USE_M17N
-static Str
-conv_form_encoding(Str val, FormItemList *fi, Buffer *buf)
-{
-    wc_ces charset = SystemCharset;
-
-    if (fi->parent->charset)
-	charset = fi->parent->charset;
-    else if (buf->document_charset && buf->document_charset != WC_CES_US_ASCII)
-	charset = buf->document_charset;
-    return wc_Str_conv_strict(val, InnerCharset, charset);
-}
-#else
-#define conv_form_encoding(val, fi, buf) (val)
-#endif
-
-static void
-query_from_followform(Str *query, FormItemList *fi, int multipart)
-{
-    FormItemList *f2;
-    FILE *body = NULL;
-
-    if (multipart) {
-	*query = tmpfname(TMPF_DFL, NULL);
-	body = fopen((*query)->ptr, "w");
-	if (body == NULL) {
-	    return;
-	}
-	fi->parent->body = (*query)->ptr;
-	fi->parent->boundary =
-	    Sprintf("------------------------------%d%ld%ld%ld", CurrentPid,
-		    fi->parent, fi->parent->body, fi->parent->boundary)->ptr;
-    }
-    *query = Strnew();
-    for (f2 = fi->parent->item; f2; f2 = f2->next) {
-	if (f2->name == NULL)
-	    continue;
-	/* <ISINDEX> is translated into single text form */
-	if (f2->name->length == 0 &&
-	    (multipart || f2->type != FORM_INPUT_TEXT))
-	    continue;
-	switch (f2->type) {
-	case FORM_INPUT_RESET:
-	    /* do nothing */
-	    continue;
-	case FORM_INPUT_SUBMIT:
-	case FORM_INPUT_IMAGE:
-	    if (f2 != fi || f2->value == NULL)
-		continue;
-	    break;
-	case FORM_INPUT_RADIO:
-	case FORM_INPUT_CHECKBOX:
-	    if (!f2->checked)
-		continue;
-	}
-	if (multipart) {
-	    if (f2->type == FORM_INPUT_IMAGE) {
-		int x = 0, y = 0;
-#ifdef USE_IMAGE
-		getMapXY(Currentbuf, retrieveCurrentImg(Currentbuf), &x, &y);
-#endif
-		*query = Strdup(conv_form_encoding(f2->name, fi, Currentbuf));
-		Strcat_charp(*query, ".x");
-		form_write_data(body, fi->parent->boundary, (*query)->ptr,
-				Sprintf("%d", x)->ptr);
-		*query = Strdup(conv_form_encoding(f2->name, fi, Currentbuf));
-		Strcat_charp(*query, ".y");
-		form_write_data(body, fi->parent->boundary, (*query)->ptr,
-				Sprintf("%d", y)->ptr);
-	    }
-	    else if (f2->name && f2->name->length > 0 && f2->value != NULL) {
-		/* not IMAGE */
-		*query = conv_form_encoding(f2->value, fi, Currentbuf);
-		if (f2->type == FORM_INPUT_FILE)
-		    form_write_from_file(body, fi->parent->boundary,
-					 conv_form_encoding(f2->name, fi,
-							    Currentbuf)->ptr,
-					 (*query)->ptr,
-					 Str_conv_to_system(f2->value)->ptr);
-		else
-		    form_write_data(body, fi->parent->boundary,
-				    conv_form_encoding(f2->name, fi,
-						       Currentbuf)->ptr,
-				    (*query)->ptr);
-	    }
-	}
-	else {
-	    /* not multipart */
-	    if (f2->type == FORM_INPUT_IMAGE) {
-		int x = 0, y = 0;
-#ifdef USE_IMAGE
-		getMapXY(Currentbuf, retrieveCurrentImg(Currentbuf), &x, &y);
-#endif
-		Strcat(*query,
-		       Str_form_quote(conv_form_encoding
-				      (f2->name, fi, Currentbuf)));
-		Strcat(*query, Sprintf(".x=%d&", x));
-		Strcat(*query,
-		       Str_form_quote(conv_form_encoding
-				      (f2->name, fi, Currentbuf)));
-		Strcat(*query, Sprintf(".y=%d", y));
-	    }
-	    else {
-		/* not IMAGE */
-		if (f2->name && f2->name->length > 0) {
-		    Strcat(*query,
-			   Str_form_quote(conv_form_encoding
-					  (f2->name, fi, Currentbuf)));
-		    Strcat_char(*query, '=');
-		}
-		if (f2->value != NULL) {
-		    if (fi->parent->method == FORM_METHOD_INTERNAL)
-			Strcat(*query, Str_form_quote(f2->value));
-		    else {
-			Strcat(*query,
-			       Str_form_quote(conv_form_encoding
-					      (f2->value, fi, Currentbuf)));
-		    }
-		}
-	    }
-	    if (f2->next)
-		Strcat_char(*query, '&');
-	}
-    }
-    if (multipart) {
-	fprintf(body, "--%s--\r\n", fi->parent->boundary);
-	fclose(body);
-    }
-    else {
-	/* remove trailing & */
-	while (Strlastchar(*query) == '&')
-	    Strshrink(*query, 1);
-    }
-}
-
-/* submit form */
-DEFUN(submitForm, SUBMIT, "Submit form")
-{
-    _followForm(TRUE);
-}
-
-/* process form */
-void
-followForm(void)
-{
-    _followForm(FALSE);
-}
-
-static void
-_followForm(int submit)
-{
-    Line *l;
-    Anchor *a, *a2;
-    char *p;
-    FormItemList *fi, *f2;
-    Str tmp, tmp2;
-    int multipart = 0, i;
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-    l = Currentbuf->currentLine;
-
-    a = retrieveCurrentForm(Currentbuf);
-    if (a == NULL)
-	return;
-    fi = (FormItemList *)a->url;
-    switch (fi->type) {
-    case FORM_INPUT_TEXT:
-	if (submit)
-	    goto do_submit;
-	if (fi->readonly)
-	    /* FIXME: gettextize? */
-	    disp_message_nsec("Read only field!", FALSE, 1, TRUE, FALSE);
-	/* FIXME: gettextize? */
-	p = inputStrHist("TEXT:", fi->value ? fi->value->ptr : NULL, TextHist);
-	if (p == NULL || fi->readonly)
-	    break;
-	fi->value = Strnew_charp(p);
-	formUpdateBuffer(a, Currentbuf, fi);
-	if (fi->accept || fi->parent->nitems == 1)
-	    goto do_submit;
-	break;
-    case FORM_INPUT_FILE:
-	if (submit)
-	    goto do_submit;
-	if (fi->readonly)
-	    /* FIXME: gettextize? */
-	    disp_message_nsec("Read only field!", FALSE, 1, TRUE, FALSE);
-	/* FIXME: gettextize? */
-	p = inputFilenameHist("Filename:", fi->value ? fi->value->ptr : NULL,
-			      NULL);
-	if (p == NULL || fi->readonly)
-	    break;
-	fi->value = Strnew_charp(p);
-	formUpdateBuffer(a, Currentbuf, fi);
-	if (fi->accept || fi->parent->nitems == 1)
-	    goto do_submit;
-	break;
-    case FORM_INPUT_PASSWORD:
-	if (submit)
-	    goto do_submit;
-	if (fi->readonly) {
-	    /* FIXME: gettextize? */
-	    disp_message_nsec("Read only field!", FALSE, 1, TRUE, FALSE);
-	    break;
-	}
-	/* FIXME: gettextize? */
-	p = inputLine("Password:", fi->value ? fi->value->ptr : NULL,
-		      IN_PASSWORD);
-	if (p == NULL)
-	    break;
-	fi->value = Strnew_charp(p);
-	formUpdateBuffer(a, Currentbuf, fi);
-	if (fi->accept)
-	    goto do_submit;
-	break;
-    case FORM_TEXTAREA:
-	if (submit)
-	    goto do_submit;
-	if (fi->readonly)
-	    /* FIXME: gettextize? */
-	    disp_message_nsec("Read only field!", FALSE, 1, TRUE, FALSE);
-	input_textarea(fi);
-	formUpdateBuffer(a, Currentbuf, fi);
-	break;
-    case FORM_INPUT_RADIO:
-	if (submit)
-	    goto do_submit;
-	if (fi->readonly) {
-	    /* FIXME: gettextize? */
-	    disp_message_nsec("Read only field!", FALSE, 1, TRUE, FALSE);
-	    break;
-	}
-	formRecheckRadio(a, Currentbuf, fi);
-	break;
-    case FORM_INPUT_CHECKBOX:
-	if (submit)
-	    goto do_submit;
-	if (fi->readonly) {
-	    /* FIXME: gettextize? */
-	    disp_message_nsec("Read only field!", FALSE, 1, TRUE, FALSE);
-	    break;
-	}
-	fi->checked = !fi->checked;
-	formUpdateBuffer(a, Currentbuf, fi);
-	break;
-#ifdef MENU_SELECT
-    case FORM_SELECT:
-	if (submit)
-	    goto do_submit;
-	if (!formChooseOptionByMenu(fi,
-				    Currentbuf->cursorX - Currentbuf->pos +
-				    a->start.pos + Currentbuf->rootX,
-				    Currentbuf->cursorY + Currentbuf->rootY))
-	    break;
-	formUpdateBuffer(a, Currentbuf, fi);
-	if (fi->parent->nitems == 1)
-	    goto do_submit;
-	break;
-#endif				/* MENU_SELECT */
-    case FORM_INPUT_IMAGE:
-    case FORM_INPUT_SUBMIT:
-    case FORM_INPUT_BUTTON:
-      do_submit:
-	tmp = Strnew();
-	tmp2 = Strnew();
-	multipart = (fi->parent->method == FORM_METHOD_POST &&
-		     fi->parent->enctype == FORM_ENCTYPE_MULTIPART);
-	query_from_followform(&tmp, fi, multipart);
-
-	tmp2 = Strdup(fi->parent->action);
-	if (!Strcmp_charp(tmp2, "!CURRENT_URL!")) {
-	    /* It means "current URL" */
-	    tmp2 = parsedURL2Str(&Currentbuf->currentURL);
-	    if ((p = strchr(tmp2->ptr, '?')) != NULL)
-		Strshrink(tmp2, (tmp2->ptr + tmp2->length) - p);
-	}
-
-	if (fi->parent->method == FORM_METHOD_GET) {
-	    if ((p = strchr(tmp2->ptr, '?')) != NULL)
-		Strshrink(tmp2, (tmp2->ptr + tmp2->length) - p);
-	    Strcat_charp(tmp2, "?");
-	    Strcat(tmp2, tmp);
-	    loadLink(tmp2->ptr, a->target, NULL, NULL);
-	}
-	else if (fi->parent->method == FORM_METHOD_POST) {
-	    Buffer *buf;
-	    if (multipart) {
-		struct stat st;
-		stat(fi->parent->body, &st);
-		fi->parent->length = st.st_size;
-	    }
-	    else {
-		fi->parent->body = tmp->ptr;
-		fi->parent->length = tmp->length;
-	    }
-	    buf = loadLink(tmp2->ptr, a->target, NULL, fi->parent);
-	    if (multipart) {
-		unlink(fi->parent->body);
-	    }
-	    if (buf && !(buf->bufferprop & BP_REDIRECTED)) {	/* buf must be Currentbuf */
-		/* BP_REDIRECTED means that the buffer is obtained through
-		 * Location: header. In this case, buf->form_submit must not be set
-		 * because the page is not loaded by POST method but GET method.
-		 */
-		buf->form_submit = save_submit_formlist(fi);
-	    }
-	}
-	else if ((fi->parent->method == FORM_METHOD_INTERNAL && (!Strcmp_charp(fi->parent->action, "map") || !Strcmp_charp(fi->parent->action, "none"))) || Currentbuf->bufferprop & BP_INTERNAL) {	/* internal */
-	    do_internal(tmp2->ptr, tmp->ptr);
-	}
-	else {
-	    disp_err_message("Can't send form because of illegal method.",
-			     FALSE);
-	}
-	break;
-    case FORM_INPUT_RESET:
-	for (i = 0; i < Currentbuf->formitem->nanchor; i++) {
-	    a2 = &Currentbuf->formitem->anchors[i];
-	    f2 = (FormItemList *)a2->url;
-	    if (f2->parent == fi->parent &&
-		f2->name && f2->value &&
-		f2->type != FORM_INPUT_SUBMIT &&
-		f2->type != FORM_INPUT_HIDDEN &&
-		f2->type != FORM_INPUT_RESET) {
-		f2->value = f2->init_value;
-		f2->checked = f2->init_checked;
-#ifdef MENU_SELECT
-		f2->label = f2->init_label;
-		f2->selected = f2->init_selected;
-#endif				/* MENU_SELECT */
-		formUpdateBuffer(a2, Currentbuf, f2);
-	    }
-	}
-	break;
-    case FORM_INPUT_HIDDEN:
-    default:
-	break;
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-/* go to the top anchor */
-DEFUN(topA, LINK_BEGIN, "Go to the first link")
-{
-    HmarkerList *hl = Currentbuf->hmarklist;
-    BufferPoint *po;
-    Anchor *an;
-    int hseq = 0;
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-    if (!hl || hl->nmark == 0)
-	return;
-
-    if (prec_num > hl->nmark)
-	hseq = hl->nmark - 1;
-    else if (prec_num > 0)
-	hseq = prec_num - 1;
-    do {
-	if (hseq >= hl->nmark)
-	    return;
-	po = hl->marks + hseq;
-	an = retrieveAnchor(Currentbuf->href, po->line, po->pos);
-	if (an == NULL)
-	    an = retrieveAnchor(Currentbuf->formitem, po->line, po->pos);
-	hseq++;
-    } while (an == NULL);
-
-    gotoLine(Currentbuf, po->line);
-    Currentbuf->pos = po->pos;
-    arrangeCursor(Currentbuf);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-/* go to the last anchor */
-DEFUN(lastA, LINK_END, "Go to the last link")
-{
-    HmarkerList *hl = Currentbuf->hmarklist;
-    BufferPoint *po;
-    Anchor *an;
-    int hseq;
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-    if (!hl || hl->nmark == 0)
-	return;
-
-    if (prec_num >= hl->nmark)
-	hseq = 0;
-    else if (prec_num > 0)
-	hseq = hl->nmark - prec_num;
-    else
-	hseq = hl->nmark - 1;
-    do {
-	if (hseq < 0)
-	    return;
-	po = hl->marks + hseq;
-	an = retrieveAnchor(Currentbuf->href, po->line, po->pos);
-	if (an == NULL)
-	    an = retrieveAnchor(Currentbuf->formitem, po->line, po->pos);
-	hseq--;
-    } while (an == NULL);
-
-    gotoLine(Currentbuf, po->line);
-    Currentbuf->pos = po->pos;
-    arrangeCursor(Currentbuf);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-/* go to the next anchor */
-DEFUN(nextA, NEXT_LINK, "Move to next link")
-{
-    _nextA(FALSE);
-}
-
-/* go to the previous anchor */
-DEFUN(prevA, PREV_LINK, "Move to previous link")
-{
-    _prevA(FALSE);
-}
-
-/* go to the next visited anchor */
-DEFUN(nextVA, NEXT_VISITED, "Move to next visited link")
-{
-    _nextA(TRUE);
-}
-
-/* go to the previous visited anchor */
-DEFUN(prevVA, PREV_VISITED, "Move to previous visited link")
-{
-    _prevA(TRUE);
-}
-
-/* go to the next [visited] anchor */
-static void
-_nextA(int visited)
-{
-    HmarkerList *hl = Currentbuf->hmarklist;
-    BufferPoint *po;
-    Anchor *an, *pan;
-    int i, x, y, n = searchKeyNum();
-    ParsedURL url;
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-    if (!hl || hl->nmark == 0)
-	return;
-
-    an = retrieveCurrentAnchor(Currentbuf);
-    if (visited != TRUE && an == NULL)
-	an = retrieveCurrentForm(Currentbuf);
-
-    y = Currentbuf->currentLine->linenumber;
-    x = Currentbuf->pos;
-
-    if (visited == TRUE) {
-	n = hl->nmark;
-    }
-
-    for (i = 0; i < n; i++) {
-	pan = an;
-	if (an && an->hseq >= 0) {
-	    int hseq = an->hseq + 1;
-	    do {
-		if (hseq >= hl->nmark) {
-		    if (visited == TRUE)
-			return;
-		    an = pan;
-		    goto _end;
-		}
-		po = &hl->marks[hseq];
-		an = retrieveAnchor(Currentbuf->href, po->line, po->pos);
-		if (visited != TRUE && an == NULL)
-		    an = retrieveAnchor(Currentbuf->formitem, po->line,
-					po->pos);
-		hseq++;
-		if (visited == TRUE && an) {
-		    parseURL2(an->url, &url, baseURL(Currentbuf));
-		    if (getHashHist(URLHist, parsedURL2Str(&url)->ptr)) {
-			goto _end;
-		    }
-		}
-	    } while (an == NULL || an == pan);
-	}
-	else {
-	    an = closest_next_anchor(Currentbuf->href, NULL, x, y);
-	    if (visited != TRUE)
-		an = closest_next_anchor(Currentbuf->formitem, an, x, y);
-	    if (an == NULL) {
-		if (visited == TRUE)
-		    return;
-		an = pan;
-		break;
-	    }
-	    x = an->start.pos;
-	    y = an->start.line;
-	    if (visited == TRUE) {
-		parseURL2(an->url, &url, baseURL(Currentbuf));
-		if (getHashHist(URLHist, parsedURL2Str(&url)->ptr)) {
-		    goto _end;
-		}
-	    }
-	}
-    }
-    if (visited == TRUE)
-	return;
-
-  _end:
-    if (an == NULL || an->hseq < 0)
-	return;
-    po = &hl->marks[an->hseq];
-    gotoLine(Currentbuf, po->line);
-    Currentbuf->pos = po->pos;
-    arrangeCursor(Currentbuf);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-/* go to the previous anchor */
-static void
-_prevA(int visited)
-{
-    HmarkerList *hl = Currentbuf->hmarklist;
-    BufferPoint *po;
-    Anchor *an, *pan;
-    int i, x, y, n = searchKeyNum();
-    ParsedURL url;
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-    if (!hl || hl->nmark == 0)
-	return;
-
-    an = retrieveCurrentAnchor(Currentbuf);
-    if (visited != TRUE && an == NULL)
-	an = retrieveCurrentForm(Currentbuf);
-
-    y = Currentbuf->currentLine->linenumber;
-    x = Currentbuf->pos;
-
-    if (visited == TRUE) {
-	n = hl->nmark;
-    }
-
-    for (i = 0; i < n; i++) {
-	pan = an;
-	if (an && an->hseq >= 0) {
-	    int hseq = an->hseq - 1;
-	    do {
-		if (hseq < 0) {
-		    if (visited == TRUE)
-			return;
-		    an = pan;
-		    goto _end;
-		}
-		po = hl->marks + hseq;
-		an = retrieveAnchor(Currentbuf->href, po->line, po->pos);
-		if (visited != TRUE && an == NULL)
-		    an = retrieveAnchor(Currentbuf->formitem, po->line,
-					po->pos);
-		hseq--;
-		if (visited == TRUE && an) {
-		    parseURL2(an->url, &url, baseURL(Currentbuf));
-		    if (getHashHist(URLHist, parsedURL2Str(&url)->ptr)) {
-			goto _end;
-		    }
-		}
-	    } while (an == NULL || an == pan);
-	}
-	else {
-	    an = closest_prev_anchor(Currentbuf->href, NULL, x, y);
-	    if (visited != TRUE)
-		an = closest_prev_anchor(Currentbuf->formitem, an, x, y);
-	    if (an == NULL) {
-		if (visited == TRUE)
-		    return;
-		an = pan;
-		break;
-	    }
-	    x = an->start.pos;
-	    y = an->start.line;
-	    if (visited == TRUE && an) {
-		parseURL2(an->url, &url, baseURL(Currentbuf));
-		if (getHashHist(URLHist, parsedURL2Str(&url)->ptr)) {
-		    goto _end;
-		}
-	    }
-	}
-    }
-    if (visited == TRUE)
-	return;
-
-  _end:
-    if (an == NULL || an->hseq < 0)
-	return;
-    po = hl->marks + an->hseq;
-    gotoLine(Currentbuf, po->line);
-    Currentbuf->pos = po->pos;
-    arrangeCursor(Currentbuf);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-/* go to the next left/right anchor */
-static void
-nextX(int d, int dy)
-{
-    HmarkerList *hl = Currentbuf->hmarklist;
-    Anchor *an, *pan;
-    Line *l;
-    int i, x, y, n = searchKeyNum();
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-    if (!hl || hl->nmark == 0)
-	return;
-
-    an = retrieveCurrentAnchor(Currentbuf);
-    if (an == NULL)
-	an = retrieveCurrentForm(Currentbuf);
-
-    l = Currentbuf->currentLine;
-    x = Currentbuf->pos;
-    y = l->linenumber;
-    pan = NULL;
-    for (i = 0; i < n; i++) {
-	if (an)
-	    x = (d > 0) ? an->end.pos : an->start.pos - 1;
-	an = NULL;
-	while (1) {
-	    for (; x >= 0 && x < l->len; x += d) {
-		an = retrieveAnchor(Currentbuf->href, y, x);
-		if (!an)
-		    an = retrieveAnchor(Currentbuf->formitem, y, x);
-		if (an) {
-		    pan = an;
-		    break;
-		}
-	    }
-	    if (!dy || an)
-		break;
-	    l = (dy > 0) ? l->next : l->prev;
-	    if (!l)
-		break;
-	    x = (d > 0) ? 0 : l->len - 1;
-	    y = l->linenumber;
-	}
-	if (!an)
-	    break;
-    }
-
-    if (pan == NULL)
-	return;
-    gotoLine(Currentbuf, y);
-    Currentbuf->pos = pan->start.pos;
-    arrangeCursor(Currentbuf);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-/* go to the next downward/upward anchor */
-static void
-nextY(int d)
-{
-    HmarkerList *hl = Currentbuf->hmarklist;
-    Anchor *an, *pan;
-    int i, x, y, n = searchKeyNum();
-    int hseq;
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-    if (!hl || hl->nmark == 0)
-	return;
-
-    an = retrieveCurrentAnchor(Currentbuf);
-    if (an == NULL)
-	an = retrieveCurrentForm(Currentbuf);
-
-    x = Currentbuf->pos;
-    y = Currentbuf->currentLine->linenumber + d;
-    pan = NULL;
-    hseq = -1;
-    for (i = 0; i < n; i++) {
-	if (an)
-	    hseq = abs(an->hseq);
-	an = NULL;
-	for (; y >= 0 && y <= Currentbuf->lastLine->linenumber; y += d) {
-	    an = retrieveAnchor(Currentbuf->href, y, x);
-	    if (!an)
-		an = retrieveAnchor(Currentbuf->formitem, y, x);
-	    if (an && hseq != abs(an->hseq)) {
-		pan = an;
-		break;
-	    }
-	}
-	if (!an)
-	    break;
-    }
-
-    if (pan == NULL)
-	return;
-    gotoLine(Currentbuf, pan->start.line);
-    arrangeLine(Currentbuf);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-/* go to the next left anchor */
-DEFUN(nextL, NEXT_LEFT, "Move to next left link")
-{
-    nextX(-1, 0);
-}
-
-/* go to the next left-up anchor */
-DEFUN(nextLU, NEXT_LEFT_UP, "Move to next left (or upward) link")
-{
-    nextX(-1, -1);
-}
-
-/* go to the next right anchor */
-DEFUN(nextR, NEXT_RIGHT, "Move to next right link")
-{
-    nextX(1, 0);
-}
-
-/* go to the next right-down anchor */
-DEFUN(nextRD, NEXT_RIGHT_DOWN, "Move to next right (or downward) link")
-{
-    nextX(1, 1);
-}
-
-/* go to the next downward anchor */
-DEFUN(nextD, NEXT_DOWN, "Move to next downward link")
-{
-    nextY(1);
-}
-
-/* go to the next upward anchor */
-DEFUN(nextU, NEXT_UP, "Move to next upward link")
-{
-    nextY(-1);
-}
-
-/* go to the next bufferr */
-DEFUN(nextBf, NEXT, "Move to next buffer")
-{
-    Buffer *buf;
-    int i;
-
-    for (i = 0; i < PREC_NUM; i++) {
-	buf = prevBuffer(Firstbuf, Currentbuf);
-	if (!buf) {
-	    if (i == 0)
-		return;
-	    break;
-	}
-	Currentbuf = buf;
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-/* go to the previous bufferr */
-DEFUN(prevBf, PREV, "Move to previous buffer")
-{
-    Buffer *buf;
-    int i;
-
-    for (i = 0; i < PREC_NUM; i++) {
-	buf = Currentbuf->nextBuffer;
-	if (!buf) {
-	    if (i == 0)
-		return;
-	    break;
-	}
-	Currentbuf = buf;
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-static int
-checkBackBuffer(Buffer *buf)
-{
-    Buffer *fbuf = buf->linkBuffer[LB_N_FRAME];
-
-    if (fbuf) {
-	if (fbuf->frameQ)
-	    return TRUE;	/* Currentbuf has stacked frames */
-	/* when no frames stacked and next is frame source, try next's
-	 * nextBuffer */
-	if (RenderFrame && fbuf == buf->nextBuffer) {
-	    if (fbuf->nextBuffer != NULL)
-		return TRUE;
-	    else
-		return FALSE;
-	}
-    }
-
-    if (buf->nextBuffer)
-	return TRUE;
-
-    return FALSE;
-}
-
-/* delete current buffer and back to the previous buffer */
-DEFUN(backBf, BACK, "Back to previous buffer")
-{
-    Buffer *buf = Currentbuf->linkBuffer[LB_N_FRAME];
-
-    if (!checkBackBuffer(Currentbuf)) {
-	if (close_tab_back && nTab >= 1) {
-	    deleteTab(CurrentTab);
-	    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-	}
-	else
-	    /* FIXME: gettextize? */
-	    disp_message("Can't back...", TRUE);
-	return;
-    }
-
-    delBuffer(Currentbuf);
-
-    if (buf) {
-	if (buf->frameQ) {
-	    struct frameset *fs;
-	    long linenumber = buf->frameQ->linenumber;
-	    long top = buf->frameQ->top_linenumber;
-	    int pos = buf->frameQ->pos;
-	    int currentColumn = buf->frameQ->currentColumn;
-	    AnchorList *formitem = buf->frameQ->formitem;
-
-	    fs = popFrameTree(&(buf->frameQ));
-	    deleteFrameSet(buf->frameset);
-	    buf->frameset = fs;
-
-	    if (buf == Currentbuf) {
-		rFrame();
-		Currentbuf->topLine = lineSkip(Currentbuf,
-					       Currentbuf->firstLine, top - 1,
-					       FALSE);
-		gotoLine(Currentbuf, linenumber);
-		Currentbuf->pos = pos;
-		Currentbuf->currentColumn = currentColumn;
-		arrangeCursor(Currentbuf);
-		formResetBuffer(Currentbuf, formitem);
-	    }
-	}
-	else if (RenderFrame && buf == Currentbuf) {
-	    delBuffer(Currentbuf);
-	}
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-DEFUN(deletePrevBuf, DELETE_PREVBUF,
-      "Delete previous buffer (mainly for local-CGI)")
-{
-    Buffer *buf = Currentbuf->nextBuffer;
-    if (buf)
-	delBuffer(buf);
-}
-
-static void
-cmd_loadURL(char *url, ParsedURL *current, char *referer, FormList *request)
-{
-    Buffer *buf;
-
-    if (!strncasecmp(url, "mailto:", 7)
-#ifdef USE_W3MMAILER
-	&& non_null(Mailer) && strchr(url, '?') == NULL
-#endif
-	) {
-	/* invoke external mailer */
-	Str to = Strnew_charp(url + 7);
-#ifndef USE_W3MMAILER
-	char *pos;
-	if (!non_null(Mailer)) {
-	    /* FIXME: gettextize? */
-	    disp_err_message("no mailer is specified", TRUE);
-	    return;
-	}
-	if ((pos = strchr(to->ptr, '?')) != NULL)
-	    Strtruncate(to, pos - to->ptr);
-#endif
-	fmTerm();
-	system(myExtCommand(Mailer, shell_quote(file_unquote(to->ptr)),
-			    FALSE)->ptr);
-	fmInit();
-	displayBuffer(Currentbuf, B_FORCE_REDRAW);
-	pushHashHist(URLHist, url);
-	return;
-    }
-#if 0
-    if (!strncasecmp(url, "news:", 5) && strchr(url, '@') == NULL) {
-	/* news:newsgroup is not supported */
-	/* FIXME: gettextize? */
-	disp_err_message("news:newsgroup_name is not supported", TRUE);
-	return;
-    }
-#endif				/* USE_NNTP */
-
-    refresh();
-    buf = loadGeneralFile(url, current, referer, 0, request);
-    if (buf == NULL) {
-	/* FIXME: gettextize? */
-	char *emsg = Sprintf("Can't load %s", conv_from_system(url))->ptr;
-	disp_err_message(emsg, FALSE);
-    }
-    else if (buf != NO_BUFFER) {
-	pushBuffer(buf);
-	if (RenderFrame && Currentbuf->frameset != NULL)
-	    rFrame();
-    }
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-
-/* go to specified URL */
-static void
-goURL0(char *prompt, int relative)
-{
-    char *url, *referer;
-    ParsedURL p_url, *current;
-    Buffer *cur_buf = Currentbuf;
-
-    url = searchKeyData();
-    if (url == NULL) {
-	Hist *hist = copyHist(URLHist);
-	Anchor *a;
-
-	current = baseURL(Currentbuf);
-	if (current) {
-	    char *c_url = parsedURL2Str(current)->ptr;
-	    if (DefaultURLString == DEFAULT_URL_CURRENT) {
-		url = c_url;
-		if (DecodeURL)
-		    url = url_unquote_conv(url, 0);
-	    }
-	    else
-		pushHist(hist, c_url);
-	}
-	a = retrieveCurrentAnchor(Currentbuf);
-	if (a) {
-	    char *a_url;
-	    parseURL2(a->url, &p_url, current);
-	    a_url = parsedURL2Str(&p_url)->ptr;
-	    if (DefaultURLString == DEFAULT_URL_LINK) {
-		url = a_url;
-		if (DecodeURL)
-		    url = url_unquote_conv(url, Currentbuf->document_charset);
-	    }
-	    else
-		pushHist(hist, a_url);
-	}
-	url = inputLineHist(prompt, url, IN_URL, hist);
-	if (url != NULL)
-	    SKIP_BLANKS(url);
-    }
-#ifdef USE_M17N
-    if (url != NULL) {
-	if ((relative || *url == '#') && Currentbuf->document_charset)
-	    url = wc_conv_strict(url, InnerCharset,
-				 Currentbuf->document_charset)->ptr;
-	else
-	    url = conv_to_system(url);
-    }
-#endif
-    if (url == NULL || *url == '\0') {
-	displayBuffer(Currentbuf, B_FORCE_REDRAW);
-	return;
-    }
-    if (*url == '#') {
-	gotoLabel(url + 1);
-	return;
-    }
-    if (relative) {
-	current = baseURL(Currentbuf);
-	referer = parsedURL2Str(&Currentbuf->currentURL)->ptr;
-    }
-    else {
-	current = NULL;
-	referer = NULL;
-    }
-    parseURL2(url, &p_url, current);
-    pushHashHist(URLHist, parsedURL2Str(&p_url)->ptr);
-    cmd_loadURL(url, current, referer, NULL);
-    if (Currentbuf != cur_buf)	/* success */
-	pushHashHist(URLHist, parsedURL2Str(&Currentbuf->currentURL)->ptr);
-}
-
-DEFUN(goURL, GOTO, "Go to URL")
-{
-    goURL0("Goto URL: ", FALSE);
-}
-
-DEFUN(gorURL, GOTO_RELATIVE, "Go to relative URL")
-{
-    goURL0("Goto relative URL: ", TRUE);
-}
-
-static void
-cmd_loadBuffer(Buffer *buf, int prop, int linkid)
-{
-    if (buf == NULL) {
-	disp_err_message("Can't load string", FALSE);
-    }
-    else if (buf != NO_BUFFER) {
-	buf->bufferprop |= (BP_INTERNAL | prop);
-	if (!(buf->bufferprop & BP_NO_URL))
-	    copyParsedURL(&buf->currentURL, &Currentbuf->currentURL);
-	if (linkid != LB_NOLINK) {
-	    buf->linkBuffer[REV_LB[linkid]] = Currentbuf;
-	    Currentbuf->linkBuffer[linkid] = buf;
-	}
-	pushBuffer(buf);
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-/* load bookmark */
-DEFUN(ldBmark, BOOKMARK VIEW_BOOKMARK, "Read bookmark")
-{
-    cmd_loadURL(BookmarkFile, NULL, NO_REFERER, NULL);
-}
-
-
-/* Add current to bookmark */
-DEFUN(adBmark, ADD_BOOKMARK, "Add current page to bookmark")
-{
-    Str tmp;
-    FormList *request;
-
-    tmp = Sprintf("mode=panel&cookie=%s&bmark=%s&url=%s&title=%s"
-#ifdef USE_M17N
-		    "&charset=%s"
-#endif
-		    ,
-		  (Str_form_quote(localCookie()))->ptr,
-		  (Str_form_quote(Strnew_charp(BookmarkFile)))->ptr,
-		  (Str_form_quote(parsedURL2Str(&Currentbuf->currentURL)))->
-		  ptr,
-#ifdef USE_M17N
-		  (Str_form_quote(wc_conv_strict(Currentbuf->buffername,
-						 InnerCharset,
-						 BookmarkCharset)))->ptr,
-		  wc_ces_to_charset(BookmarkCharset));
-#else
-		  (Str_form_quote(Strnew_charp(Currentbuf->buffername)))->ptr);
-#endif
-    request = newFormList(NULL, "post", NULL, NULL, NULL, NULL, NULL);
-    request->body = tmp->ptr;
-    request->length = tmp->length;
-    cmd_loadURL("file:///$LIB/" W3MBOOKMARK_CMDNAME, NULL, NO_REFERER,
-		request);
-}
-
-/* option setting */
-DEFUN(ldOpt, OPTIONS, "Option setting panel")
-{
-    cmd_loadBuffer(load_option_panel(), BP_NO_URL, LB_NOLINK);
-}
-
-/* set an option */
-DEFUN(setOpt, SET_OPTION, "Set option")
-{
-    char *opt;
-
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    opt = searchKeyData();
-    if (opt == NULL || *opt == '\0' || strchr(opt, '=') == NULL) {
-	if (opt != NULL && *opt != '\0') {
-	    char *v = get_param_option(opt);
-	    opt = Sprintf("%s=%s", opt, v ? v : "")->ptr;
-	}
-	opt = inputStrHist("Set option: ", opt, TextHist);
-	if (opt == NULL || *opt == '\0') {
-	    displayBuffer(Currentbuf, B_NORMAL);
-	    return;
-	}
-    }
-    if (set_param_option(opt))
-	sync_with_option();
-    displayBuffer(Currentbuf, B_REDRAW_IMAGE);
-}
-
-/* error message list */
-DEFUN(msgs, MSGS, "Display error messages")
-{
-    cmd_loadBuffer(message_list_panel(), BP_NO_URL, LB_NOLINK);
-}
-
-/* page info */
-DEFUN(pginfo, INFO, "View info of current document")
-{
-    Buffer *buf;
-
-    if ((buf = Currentbuf->linkBuffer[LB_N_INFO]) != NULL) {
-	Currentbuf = buf;
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-    if ((buf = Currentbuf->linkBuffer[LB_INFO]) != NULL)
-	delBuffer(buf);
-    buf = page_info_panel(Currentbuf);
-    cmd_loadBuffer(buf, BP_NORMAL, LB_INFO);
-}
-
-void
-follow_map(struct parsed_tagarg *arg)
-{
-    char *name = tag_get_value(arg, "link");
-#if defined(MENU_MAP) || defined(USE_IMAGE)
-    Anchor *an;
-    MapArea *a;
-    int x, y;
-    ParsedURL p_url;
-
-    an = retrieveCurrentImg(Currentbuf);
-    x = Currentbuf->cursorX + Currentbuf->rootX;
-    y = Currentbuf->cursorY + Currentbuf->rootY;
-    a = follow_map_menu(Currentbuf, name, an, x, y);
-    if (a == NULL || a->url == NULL || *(a->url) == '\0') {
-#endif
-#ifndef MENU_MAP
-	Buffer *buf = follow_map_panel(Currentbuf, name);
-
-	if (buf != NULL)
-	    cmd_loadBuffer(buf, BP_NORMAL, LB_NOLINK);
-#endif
-#if defined(MENU_MAP) || defined(USE_IMAGE)
-	return;
-    }
-    if (*(a->url) == '#') {
-	gotoLabel(a->url + 1);
-	return;
-    }
-    parseURL2(a->url, &p_url, baseURL(Currentbuf));
-    pushHashHist(URLHist, parsedURL2Str(&p_url)->ptr);
-    if (check_target && open_tab_blank && a->target &&
-	(!strcasecmp(a->target, "_new") || !strcasecmp(a->target, "_blank"))) {
-	Buffer *buf;
-
-	_newT();
-	buf = Currentbuf;
-	cmd_loadURL(a->url, baseURL(Currentbuf),
-		    parsedURL2Str(&Currentbuf->currentURL)->ptr, NULL);
-	if (buf != Currentbuf)
-	    delBuffer(buf);
-	else
-	    deleteTab(CurrentTab);
-	displayBuffer(Currentbuf, B_FORCE_REDRAW);
-	return;
-    }
-    cmd_loadURL(a->url, baseURL(Currentbuf),
-		parsedURL2Str(&Currentbuf->currentURL)->ptr, NULL);
-#endif
-}
-
-#ifdef USE_MENU
-/* link menu */
-DEFUN(linkMn, LINK_MENU, "Popup link element menu")
-{
-    LinkList *l = link_menu(Currentbuf);
-    ParsedURL p_url;
-
-    if (!l || !l->url)
-	return;
-    if (*(l->url) == '#') {
-	gotoLabel(l->url + 1);
-	return;
-    }
-    parseURL2(l->url, &p_url, baseURL(Currentbuf));
-    pushHashHist(URLHist, parsedURL2Str(&p_url)->ptr);
-    cmd_loadURL(l->url, baseURL(Currentbuf),
-		parsedURL2Str(&Currentbuf->currentURL)->ptr, NULL);
-}
-
-static void
-anchorMn(Anchor *(*menu_func) (Buffer *), int go)
-{
-    Anchor *a;
-    BufferPoint *po;
-
-    if (!Currentbuf->href || !Currentbuf->hmarklist)
-	return;
-    a = menu_func(Currentbuf);
-    if (!a || a->hseq < 0)
-	return;
-    po = &Currentbuf->hmarklist->marks[a->hseq];
-    gotoLine(Currentbuf, po->line);
-    Currentbuf->pos = po->pos;
-    arrangeCursor(Currentbuf);
-    displayBuffer(Currentbuf, B_NORMAL);
-    if (go)
-	followA();
-}
-
-/* accesskey */
-DEFUN(accessKey, ACCESSKEY, "Popup acceskey menu")
-{
-    anchorMn(accesskey_menu, TRUE);
-}
-
-/* list menu */
-DEFUN(listMn, LIST_MENU, "Popup link list menu and go to selected link")
-{
-    anchorMn(list_menu, TRUE);
-}
-
-DEFUN(movlistMn, MOVE_LIST_MENU,
-      "Popup link list menu and move cursor to selected link")
-{
-    anchorMn(list_menu, FALSE);
-}
-#endif
-
-/* link,anchor,image list */
-DEFUN(linkLst, LIST, "Show all links and images")
-{
-    Buffer *buf;
-
-    buf = link_list_panel(Currentbuf);
-    if (buf != NULL) {
-#ifdef USE_M17N
-	buf->document_charset = Currentbuf->document_charset;
-#endif
-	cmd_loadBuffer(buf, BP_NORMAL, LB_NOLINK);
-    }
-}
-
-#ifdef USE_COOKIE
-/* cookie list */
-DEFUN(cooLst, COOKIE, "View cookie list")
-{
-    Buffer *buf;
-
-    buf = cookie_list_panel();
-    if (buf != NULL)
-	cmd_loadBuffer(buf, BP_NO_URL, LB_NOLINK);
-}
-#endif				/* USE_COOKIE */
-
-#ifdef USE_HISTORY
-/* History page */
-DEFUN(ldHist, HISTORY, "View history of URL")
-{
-    cmd_loadBuffer(historyBuffer(URLHist), BP_NO_URL, LB_NOLINK);
-}
-#endif				/* USE_HISTORY */
-
-/* download HREF link */
-DEFUN(svA, SAVE_LINK, "Save link to file")
-{
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    do_download = TRUE;
-    followA();
-    do_download = FALSE;
-}
-
-/* download IMG link */
-DEFUN(svI, SAVE_IMAGE, "Save image to file")
-{
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    do_download = TRUE;
-    followI();
-    do_download = FALSE;
-}
-
-/* save buffer */
-DEFUN(svBuf, PRINT SAVE_SCREEN, "Save rendered document to file")
-{
-    char *qfile = NULL, *file;
-    FILE *f;
-    int is_pipe;
-
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    file = searchKeyData();
-    if (file == NULL || *file == '\0') {
-	/* FIXME: gettextize? */
-	qfile = inputLineHist("Save buffer to: ", NULL, IN_COMMAND, SaveHist);
-	if (qfile == NULL || *qfile == '\0') {
-	    displayBuffer(Currentbuf, B_NORMAL);
-	    return;
-	}
-    }
-    file = conv_to_system(qfile ? qfile : file);
-    if (*file == '|') {
-	is_pipe = TRUE;
-	f = popen(file + 1, "w");
-    }
-    else {
-	if (qfile) {
-	    file = unescape_spaces(Strnew_charp(qfile))->ptr;
-	    file = conv_to_system(file);
-	}
-	file = expandPath(file);
-	if (checkOverWrite(file) < 0) {
-	    displayBuffer(Currentbuf, B_NORMAL);
-	    return;
-	}
-	f = fopen(file, "w");
-	is_pipe = FALSE;
-    }
-    if (f == NULL) {
-	/* FIXME: gettextize? */
-	char *emsg = Sprintf("Can't open %s", conv_from_system(file))->ptr;
-	disp_err_message(emsg, TRUE);
-	return;
-    }
-    saveBuffer(Currentbuf, f, TRUE);
-    if (is_pipe)
-	pclose(f);
-    else
-	fclose(f);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-/* save source */
-DEFUN(svSrc, DOWNLOAD SAVE, "Save document source to file")
-{
-    char *file;
-
-    if (Currentbuf->sourcefile == NULL)
-	return;
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    PermitSaveToPipe = TRUE;
-    if (Currentbuf->real_scheme == SCM_LOCAL)
-	file = conv_from_system(guess_save_name(NULL,
-						Currentbuf->currentURL.
-						real_file));
-    else
-	file = guess_save_name(Currentbuf, Currentbuf->currentURL.file);
-    doFileCopy(Currentbuf->sourcefile, file);
-    PermitSaveToPipe = FALSE;
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-static void
-_peekURL(int only_img)
-{
-
-    Anchor *a;
-    ParsedURL pu;
-    static Str s = NULL;
-#ifdef USE_M17N
-    static Lineprop *p = NULL;
-    Lineprop *pp;
-#endif
-    static int offset = 0, n;
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-    if (CurrentKey == prev_key && s != NULL) {
-	if (s->length - offset >= COLS)
-	    offset++;
-	else if (s->length <= offset)	/* bug ? */
-	    offset = 0;
-	goto disp;
-    }
-    else {
-	offset = 0;
-    }
-    s = NULL;
-    a = (only_img ? NULL : retrieveCurrentAnchor(Currentbuf));
-    if (a == NULL) {
-	a = (only_img ? NULL : retrieveCurrentForm(Currentbuf));
-	if (a == NULL) {
-	    a = retrieveCurrentImg(Currentbuf);
-	    if (a == NULL)
-		return;
-	}
-	else
-	    s = Strnew_charp(form2str((FormItemList *)a->url));
-    }
-    if (s == NULL) {
-	parseURL2(a->url, &pu, baseURL(Currentbuf));
-	s = parsedURL2Str(&pu);
-    }
-    if (DecodeURL)
-	s = Strnew_charp(url_unquote_conv
-			 (s->ptr, Currentbuf->document_charset));
-#ifdef USE_M17N
-    s = checkType(s, &pp, NULL);
-    p = NewAtom_N(Lineprop, s->length);
-    bcopy((void *)pp, (void *)p, s->length * sizeof(Lineprop));
-#endif
-  disp:
-    n = searchKeyNum();
-    if (n > 1 && s->length > (n - 1) * (COLS - 1))
-	offset = (n - 1) * (COLS - 1);
-#ifdef USE_M17N
-    while (offset < s->length && p[offset] & PC_WCHAR2)
-	offset++;
-#endif
-    disp_message_nomouse(&s->ptr[offset], TRUE);
-}
-
-/* peek URL */
-DEFUN(peekURL, PEEK_LINK, "Peek link URL")
-{
-    _peekURL(0);
-}
-
-/* peek URL of image */
-DEFUN(peekIMG, PEEK_IMG, "Peek image URL")
-{
-    _peekURL(1);
-}
-
-/* show current URL */
-static Str
-currentURL(void)
-{
-    if (Currentbuf->bufferprop & BP_INTERNAL)
-	return Strnew_size(0);
-    return parsedURL2Str(&Currentbuf->currentURL);
-}
-
-DEFUN(curURL, PEEK, "Peek current URL")
-{
-    static Str s = NULL;
-#ifdef USE_M17N
-    static Lineprop *p = NULL;
-    Lineprop *pp;
-#endif
-    static int offset = 0, n;
-
-    if (Currentbuf->bufferprop & BP_INTERNAL)
-	return;
-    if (CurrentKey == prev_key && s != NULL) {
-	if (s->length - offset >= COLS)
-	    offset++;
-	else if (s->length <= offset)	/* bug ? */
-	    offset = 0;
-    }
-    else {
-	offset = 0;
-	s = currentURL();
-	if (DecodeURL)
-	    s = Strnew_charp(url_unquote_conv(s->ptr, 0));
-#ifdef USE_M17N
-	s = checkType(s, &pp, NULL);
-	p = NewAtom_N(Lineprop, s->length);
-	bcopy((void *)pp, (void *)p, s->length * sizeof(Lineprop));
-#endif
-    }
-    n = searchKeyNum();
-    if (n > 1 && s->length > (n - 1) * (COLS - 1))
-	offset = (n - 1) * (COLS - 1);
-#ifdef USE_M17N
-    while (offset < s->length && p[offset] & PC_WCHAR2)
-	offset++;
-#endif
-    disp_message_nomouse(&s->ptr[offset], TRUE);
-}
-/* view HTML source */
-
-DEFUN(vwSrc, SOURCE VIEW, "View HTML source")
-{
-    Buffer *buf;
-
-    if (Currentbuf->type == NULL || Currentbuf->bufferprop & BP_FRAME)
-	return;
-    if ((buf = Currentbuf->linkBuffer[LB_SOURCE]) != NULL ||
-	(buf = Currentbuf->linkBuffer[LB_N_SOURCE]) != NULL) {
-	Currentbuf = buf;
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-    if (Currentbuf->sourcefile == NULL) {
-	if (Currentbuf->pagerSource &&
-	    !strcasecmp(Currentbuf->type, "text/plain")) {
-#ifdef USE_M17N
-	    wc_ces old_charset;
-	    wc_bool old_fix_width_conv;
-#endif
-	    FILE *f;
-	    Str tmpf = tmpfname(TMPF_SRC, NULL);
-	    f = fopen(tmpf->ptr, "w");
-	    if (f == NULL)
-		return;
-#ifdef USE_M17N
-	    old_charset = DisplayCharset;
-	    old_fix_width_conv = WcOption.fix_width_conv;
-	    DisplayCharset = (Currentbuf->document_charset != WC_CES_US_ASCII)
-		? Currentbuf->document_charset : 0;
-	    WcOption.fix_width_conv = WC_FALSE;
-#endif
-	    saveBufferBody(Currentbuf, f, TRUE);
-#ifdef USE_M17N
-	    DisplayCharset = old_charset;
-	    WcOption.fix_width_conv = old_fix_width_conv;
-#endif
-	    fclose(f);
-	    Currentbuf->sourcefile = tmpf->ptr;
-	}
-	else {
-	    return;
-	}
-    }
-
-    buf = newBuffer(INIT_BUFFER_WIDTH);
-
-    if (!strcasecmp(Currentbuf->type, "text/html")) {
-	buf->type = "text/plain";
-	if (Currentbuf->real_type &&
-	    !strcasecmp(Currentbuf->real_type, "text/html"))
-	    buf->real_type = "text/plain";
-	else
-	    buf->real_type = Currentbuf->real_type;
-	buf->buffername = Sprintf("source of %s", Currentbuf->buffername)->ptr;
-	buf->linkBuffer[LB_N_SOURCE] = Currentbuf;
-	Currentbuf->linkBuffer[LB_SOURCE] = buf;
-    }
-    else if (!strcasecmp(Currentbuf->type, "text/plain")) {
-	buf->type = "text/html";
-	if (Currentbuf->real_type &&
-	    !strcasecmp(Currentbuf->real_type, "text/plain"))
-	    buf->real_type = "text/html";
-	else
-	    buf->real_type = Currentbuf->real_type;
-	buf->buffername = Sprintf("HTML view of %s",
-				  Currentbuf->buffername)->ptr;
-	buf->linkBuffer[LB_SOURCE] = Currentbuf;
-	Currentbuf->linkBuffer[LB_N_SOURCE] = buf;
-    }
-    else {
-	return;
-    }
-    buf->currentURL = Currentbuf->currentURL;
-    buf->real_scheme = Currentbuf->real_scheme;
-    buf->filename = Currentbuf->filename;
-    buf->sourcefile = Currentbuf->sourcefile;
-    buf->header_source = Currentbuf->header_source;
-    buf->search_header = Currentbuf->search_header;
-#ifdef USE_M17N
-    buf->document_charset = Currentbuf->document_charset;
-#endif
-    buf->clone = Currentbuf->clone;
-    (*buf->clone)++;
-
-    buf->need_reshape = TRUE;
-    reshapeBuffer(buf);
-    pushBuffer(buf);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-/* reload */
-DEFUN(reload, RELOAD, "Reload buffer")
-{
-    Buffer *buf, *fbuf = NULL, sbuf;
-#ifdef USE_M17N
-    wc_ces old_charset;
-#endif
-    Str url;
-    FormList *request;
-    int multipart;
-
-    if (Currentbuf->bufferprop & BP_INTERNAL) {
-	if (!strcmp(Currentbuf->buffername, DOWNLOAD_LIST_TITLE)) {
-	    ldDL();
-	    return;
-	}
-	/* FIXME: gettextize? */
-	disp_err_message("Can't reload...", TRUE);
-	return;
-    }
-    if (Currentbuf->currentURL.scheme == SCM_LOCAL &&
-	!strcmp(Currentbuf->currentURL.file, "-")) {
-	/* file is std input */
-	/* FIXME: gettextize? */
-	disp_err_message("Can't reload stdin", TRUE);
-	return;
-    }
-    copyBuffer(&sbuf, Currentbuf);
-    if (Currentbuf->bufferprop & BP_FRAME &&
-	(fbuf = Currentbuf->linkBuffer[LB_N_FRAME])) {
-	if (fmInitialized) {
-	    message("Rendering frame", 0, 0);
-	    refresh();
-	}
-	if (!(buf = renderFrame(fbuf, 1))) {
-	    displayBuffer(Currentbuf, B_NORMAL);
-	    return;
-	}
-	if (fbuf->linkBuffer[LB_FRAME]) {
-	    if (buf->sourcefile &&
-		fbuf->linkBuffer[LB_FRAME]->sourcefile &&
-		!strcmp(buf->sourcefile,
-			fbuf->linkBuffer[LB_FRAME]->sourcefile))
-		fbuf->linkBuffer[LB_FRAME]->sourcefile = NULL;
-	    delBuffer(fbuf->linkBuffer[LB_FRAME]);
-	}
-	fbuf->linkBuffer[LB_FRAME] = buf;
-	buf->linkBuffer[LB_N_FRAME] = fbuf;
-	pushBuffer(buf);
-	Currentbuf = buf;
-	if (Currentbuf->firstLine)
-	    restorePosition(Currentbuf, &sbuf);
-	displayBuffer(Currentbuf, B_FORCE_REDRAW);
-	return;
-    }
-    else if (Currentbuf->frameset != NULL)
-	fbuf = Currentbuf->linkBuffer[LB_FRAME];
-    multipart = 0;
-    if (Currentbuf->form_submit) {
-	request = Currentbuf->form_submit->parent;
-	if (request->method == FORM_METHOD_POST
-	    && request->enctype == FORM_ENCTYPE_MULTIPART) {
-	    Str query;
-	    struct stat st;
-	    multipart = 1;
-	    query_from_followform(&query, Currentbuf->form_submit, multipart);
-	    stat(request->body, &st);
-	    request->length = st.st_size;
-	}
-    }
-    else {
-	request = NULL;
-    }
-    url = parsedURL2Str(&Currentbuf->currentURL);
-    /* FIXME: gettextize? */
-    message("Reloading...", 0, 0);
-    refresh();
-#ifdef USE_M17N
-    old_charset = DocumentCharset;
-    if (Currentbuf->document_charset != WC_CES_US_ASCII)
-	DocumentCharset = Currentbuf->document_charset;
-#endif
-    SearchHeader = Currentbuf->search_header;
-    DefaultType = Currentbuf->real_type;
-    buf = loadGeneralFile(url->ptr, NULL, NO_REFERER, RG_NOCACHE, request);
-#ifdef USE_M17N
-    DocumentCharset = old_charset;
-#endif
-    SearchHeader = FALSE;
-    DefaultType = NULL;
-
-    if (multipart)
-	unlink(request->body);
-    if (buf == NULL) {
-	/* FIXME: gettextize? */
-	disp_err_message("Can't reload...", TRUE);
-	return;
-    }
-    else if (buf == NO_BUFFER) {
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-    if (fbuf != NULL)
-	Firstbuf = deleteBuffer(Firstbuf, fbuf);
-    repBuffer(Currentbuf, buf);
-    if ((buf->type != NULL) && (sbuf.type != NULL) &&
-	((!strcasecmp(buf->type, "text/plain") &&
-	  !strcasecmp(sbuf.type, "text/html")) ||
-	 (!strcasecmp(buf->type, "text/html") &&
-	  !strcasecmp(sbuf.type, "text/plain")))) {
-	vwSrc();
-	if (Currentbuf != buf)
-	    Firstbuf = deleteBuffer(Firstbuf, buf);
-    }
-    Currentbuf->search_header = sbuf.search_header;
-    Currentbuf->form_submit = sbuf.form_submit;
-    if (Currentbuf->firstLine)
-	restorePosition(Currentbuf, &sbuf);
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-/* reshape */
-DEFUN(reshape, RESHAPE, "Re-render buffer")
-{
-    Currentbuf->need_reshape = TRUE;
-    reshapeBuffer(Currentbuf);
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-#ifdef USE_M17N
-static void
-_docCSet(wc_ces charset)
-{
-    if (Currentbuf->bufferprop & BP_INTERNAL)
-	return;
-    if (Currentbuf->sourcefile == NULL) {
-	disp_message("Can't reload...", FALSE);
-	return;
-    }
-    Currentbuf->document_charset = charset;
-    Currentbuf->need_reshape = TRUE;
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-void
-change_charset(struct parsed_tagarg *arg)
-{
-    Buffer *buf = Currentbuf->linkBuffer[LB_N_INFO];
-    wc_ces charset;
-
-    if (buf == NULL)
-	return;
-    delBuffer(Currentbuf);
-    Currentbuf = buf;
-    if (Currentbuf->bufferprop & BP_INTERNAL)
-	return;
-    charset = Currentbuf->document_charset;
-    for (; arg; arg = arg->next) {
-	if (!strcmp(arg->arg, "charset"))
-	    charset = atoi(arg->value);
-    }
-    _docCSet(charset);
-}
-
-DEFUN(docCSet, CHARSET, "Change the current document charset")
-{
-    char *cs;
-    wc_ces charset;
-
-    cs = searchKeyData();
-    if (cs == NULL || *cs == '\0')
-	/* FIXME: gettextize? */
-	cs = inputStr("Document charset: ",
-		      wc_ces_to_charset(Currentbuf->document_charset));
-    charset = wc_guess_charset_short(cs, 0);
-    if (charset == 0) {
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-    _docCSet(charset);
-}
-
-DEFUN(defCSet, DEFAULT_CHARSET, "Change the default document charset")
-{
-    char *cs;
-    wc_ces charset;
-
-    cs = searchKeyData();
-    if (cs == NULL || *cs == '\0')
-	/* FIXME: gettextize? */
-	cs = inputStr("Default document charset: ",
-		      wc_ces_to_charset(DocumentCharset));
-    charset = wc_guess_charset_short(cs, 0);
-    if (charset != 0)
-	DocumentCharset = charset;
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-#endif
-
-/* mark URL-like patterns as anchors */
-void
-chkURLBuffer(Buffer *buf)
-{
-    static char *url_like_pat[] = {
-	"https?://[a-zA-Z0-9][a-zA-Z0-9:%\\-\\./?=~_\\&+@#,\\$;]*[a-zA-Z0-9_/=\\-]",
-	"file:/[a-zA-Z0-9:%\\-\\./=_\\+@#,\\$;]*",
-#ifdef USE_GOPHER
-	"gopher://[a-zA-Z0-9][a-zA-Z0-9:%\\-\\./_]*",
-#endif				/* USE_GOPHER */
-	"ftp://[a-zA-Z0-9][a-zA-Z0-9:%\\-\\./=_+@#,\\$]*[a-zA-Z0-9_/]",
-#ifdef USE_NNTP
-	"news:[^<> 	][^<> 	]*",
-	"nntp://[a-zA-Z0-9][a-zA-Z0-9:%\\-\\./_]*",
-#endif				/* USE_NNTP */
-#ifndef USE_W3MMAILER		/* see also chkExternalURIBuffer() */
-	"mailto:[^<> 	][^<> 	]*@[a-zA-Z0-9][a-zA-Z0-9\\-\\._]*[a-zA-Z0-9]",
-#endif
-#ifdef INET6
-	"https?://[a-zA-Z0-9:%\\-\\./_@]*\\[[a-fA-F0-9:][a-fA-F0-9:\\.]*\\][a-zA-Z0-9:%\\-\\./?=~_\\&+@#,\\$;]*",
-	"ftp://[a-zA-Z0-9:%\\-\\./_@]*\\[[a-fA-F0-9:][a-fA-F0-9:\\.]*\\][a-zA-Z0-9:%\\-\\./=_+@#,\\$]*",
-#endif				/* INET6 */
-	NULL
-    };
-    int i;
-    for (i = 0; url_like_pat[i]; i++) {
-	reAnchor(buf, url_like_pat[i]);
-    }
-#ifdef USE_EXTERNAL_URI_LOADER
-    chkExternalURIBuffer(buf);
-#endif
-    buf->check_url |= CHK_URL;
-}
-
-DEFUN(chkURL, MARK_URL, "Mark URL-like strings as anchors")
-{
-    chkURLBuffer(Currentbuf);
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-DEFUN(chkWORD, MARK_WORD, "Mark current word as anchor")
-{
-    char *p;
-    int spos, epos;
-    p = getCurWord(Currentbuf, &spos, &epos, ":\"\'`<>()[]{}&|;*?$");
-    if (p == NULL)
-	return;
-    reAnchorWord(Currentbuf, Currentbuf->currentLine, spos, epos);
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-#ifdef USE_NNTP
-/* mark Message-ID-like patterns as NEWS anchors */
-void
-chkNMIDBuffer(Buffer *buf)
-{
-    static char *url_like_pat[] = {
-	"<[!-;=?-~]+@[a-zA-Z0-9\\.\\-_]+>",
-	NULL,
-    };
-    int i;
-    for (i = 0; url_like_pat[i]; i++) {
-	reAnchorNews(buf, url_like_pat[i]);
-    }
-    buf->check_url |= CHK_NMID;
-}
-
-DEFUN(chkNMID, MARK_MID, "Mark Message-ID-like strings as anchors")
-{
-    chkNMIDBuffer(Currentbuf);
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-#endif				/* USE_NNTP */
-
-/* render frame */
-DEFUN(rFrame, FRAME, "Render frame")
-{
-    Buffer *buf;
-
-    if ((buf = Currentbuf->linkBuffer[LB_FRAME]) != NULL) {
-	Currentbuf = buf;
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-    if (Currentbuf->frameset == NULL) {
-	if ((buf = Currentbuf->linkBuffer[LB_N_FRAME]) != NULL) {
-	    Currentbuf = buf;
-	    displayBuffer(Currentbuf, B_NORMAL);
-	}
-	return;
-    }
-    if (fmInitialized) {
-	message("Rendering frame", 0, 0);
-	refresh();
-    }
-    buf = renderFrame(Currentbuf, 0);
-    if (buf == NULL) {
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-    buf->linkBuffer[LB_N_FRAME] = Currentbuf;
-    Currentbuf->linkBuffer[LB_FRAME] = buf;
-    pushBuffer(buf);
-    if (fmInitialized && display_ok)
-	displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-/* spawn external browser */
-static void
-invoke_browser(char *url)
-{
-    Str cmd;
-    char *browser = NULL;
-    int bg = 0, len;
-
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    browser = searchKeyData();
-    if (browser == NULL || *browser == '\0') {
-	switch (prec_num) {
-	case 0:
-	case 1:
-	    browser = ExtBrowser;
-	    break;
-	case 2:
-	    browser = ExtBrowser2;
-	    break;
-	case 3:
-	    browser = ExtBrowser3;
-	    break;
-	}
-	if (browser == NULL || *browser == '\0') {
-	    browser = inputStr("Browse command: ", NULL);
-	    if (browser != NULL)
-		browser = conv_to_system(browser);
-	}
-    }
-    else {
-	browser = conv_to_system(browser);
-    }
-    if (browser == NULL || *browser == '\0') {
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-
-    if ((len = strlen(browser)) >= 2 && browser[len - 1] == '&' &&
-	browser[len - 2] != '\\') {
-	browser = allocStr(browser, len - 2);
-	bg = 1;
-    }
-    cmd = myExtCommand(browser, shell_quote(url), FALSE);
-    Strremovetrailingspaces(cmd);
-    fmTerm();
-    mySystem(cmd->ptr, bg);
-    fmInit();
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-DEFUN(extbrz, EXTERN, "Execute external browser")
-{
-    if (Currentbuf->bufferprop & BP_INTERNAL) {
-	/* FIXME: gettextize? */
-	disp_err_message("Can't browse...", TRUE);
-	return;
-    }
-    if (Currentbuf->currentURL.scheme == SCM_LOCAL &&
-	!strcmp(Currentbuf->currentURL.file, "-")) {
-	/* file is std input */
-	/* FIXME: gettextize? */
-	disp_err_message("Can't browse stdin", TRUE);
-	return;
-    }
-    invoke_browser(parsedURL2Str(&Currentbuf->currentURL)->ptr);
-}
-
-DEFUN(linkbrz, EXTERN_LINK, "View current link using external browser")
-{
-    Anchor *a;
-    ParsedURL pu;
-
-    if (Currentbuf->firstLine == NULL)
-	return;
-    a = retrieveCurrentAnchor(Currentbuf);
-    if (a == NULL)
-	return;
-    parseURL2(a->url, &pu, baseURL(Currentbuf));
-    invoke_browser(parsedURL2Str(&pu)->ptr);
-}
-
-/* show current line number and number of lines in the entire document */
-DEFUN(curlno, LINE_INFO, "Show current line number")
-{
-    Line *l = Currentbuf->currentLine;
-    Str tmp;
-    int cur = 0, all = 0, col = 0, len = 0;
-
-    if (l != NULL) {
-	cur = l->real_linenumber;
-	col = l->bwidth + Currentbuf->currentColumn + Currentbuf->cursorX + 1;
-	while (l->next && l->next->bpos)
-	    l = l->next;
-	if (l->width < 0)
-	    l->width = COLPOS(l, l->len);
-	len = l->bwidth + l->width;
-    }
-    if (Currentbuf->lastLine)
-	all = Currentbuf->lastLine->real_linenumber;
-    if (Currentbuf->pagerSource && !(Currentbuf->bufferprop & BP_CLOSE))
-	tmp = Sprintf("line %d col %d/%d", cur, col, len);
-    else
-	tmp = Sprintf("line %d/%d (%d%%) col %d/%d", cur, all,
-		      (int)((double)cur * 100.0 / (double)(all ? all : 1)
-			    + 0.5), col, len);
-#ifdef USE_M17N
-    Strcat_charp(tmp, "  ");
-    Strcat_charp(tmp, wc_ces_to_charset_desc(Currentbuf->document_charset));
-#endif
-
-    disp_message(tmp->ptr, FALSE);
-}
-
-#ifdef USE_IMAGE
-DEFUN(dispI, DISPLAY_IMAGE, "Restart loading and drawing of images")
-{
-    if (!displayImage)
-	initImage();
-    if (!activeImage)
-	return;
-    displayImage = TRUE;
-    /*
-     * if (!(Currentbuf->type && !strcmp(Currentbuf->type, "text/html")))
-     * return;
-     */
-    Currentbuf->image_flag = IMG_FLAG_AUTO;
-    Currentbuf->need_reshape = TRUE;
-    displayBuffer(Currentbuf, B_REDRAW_IMAGE);
-}
-
-DEFUN(stopI, STOP_IMAGE, "Stop loading and drawing of images")
-{
-    if (!activeImage)
-	return;
-    /*
-     * if (!(Currentbuf->type && !strcmp(Currentbuf->type, "text/html")))
-     * return;
-     */
-    Currentbuf->image_flag = IMG_FLAG_SKIP;
-    displayBuffer(Currentbuf, B_REDRAW_IMAGE);
-}
-#endif
-
-#ifdef USE_MOUSE
-
-static int
-mouse_scroll_line(void)
-{
-    if (relative_wheel_scroll)
-	return (relative_wheel_scroll_ratio * LASTLINE + 99) / 100;
-    else
-	return fixed_wheel_scroll_count;
-}
-
-static TabBuffer *
-posTab(int x, int y)
-{
-    TabBuffer *tab;
-
-    if (mouse_action.menu_str && x < mouse_action.menu_width && y == 0)
-	return NO_TABBUFFER;
-    if (y > LastTab->y)
-	return NULL;
-    for (tab = FirstTab; tab; tab = tab->nextTab) {
-	if (tab->x1 <= x && x <= tab->x2 && tab->y == y)
-	    return tab;
-    }
-    return NULL;
-}
-
-static void
-do_mouse_action(int btn, int x, int y)
-{
-    MouseActionMap *map = NULL;
-    int ny = -1;
-
-    if (nTab > 1 || mouse_action.menu_str)
-	ny = LastTab->y + 1;
-
-    switch (btn) {
-    case MOUSE_BTN1_DOWN:
-	btn = 0;
-	break;
-    case MOUSE_BTN2_DOWN:
-	btn = 1;
-	break;
-    case MOUSE_BTN3_DOWN:
-	btn = 2;
-	break;
-    default:
-	return;
-    }
-    if (y < ny) {
-	if (mouse_action.menu_str && x >= 0 && x < mouse_action.menu_width) {
-	    if (mouse_action.menu_map[btn])
-		map = &mouse_action.menu_map[btn][x];
-	}
-	else
-	    map = &mouse_action.tab_map[btn];
-    }
-    else if (y == LASTLINE) {
-	if (mouse_action.lastline_str && x >= 0 &&
-	    x < mouse_action.lastline_width) {
-	    if (mouse_action.lastline_map[btn])
-		map = &mouse_action.lastline_map[btn][x];
-	}
-    }
-    else if (y > ny) {
-	if (y == Currentbuf->cursorY + Currentbuf->rootY &&
-	    (x == Currentbuf->cursorX + Currentbuf->rootX
-#ifdef USE_M17N
-	     || (WcOption.use_wide && Currentbuf->currentLine != NULL &&
-		 (CharType(Currentbuf->currentLine->propBuf[Currentbuf->pos])
-		  == PC_KANJI1)
-		 && x == Currentbuf->cursorX + Currentbuf->rootX + 1)
-#endif
-	    )) {
-	    if (retrieveCurrentAnchor(Currentbuf) ||
-		retrieveCurrentForm(Currentbuf)) {
-		map = &mouse_action.active_map[btn];
-		if (!(map && map->func))
-		    map = &mouse_action.anchor_map[btn];
-	    }
-	}
-	else {
-	    int cx = Currentbuf->cursorX, cy = Currentbuf->cursorY;
-	    cursorXY(Currentbuf, x - Currentbuf->rootX, y - Currentbuf->rootY);
-	    if (y == Currentbuf->cursorY + Currentbuf->rootY &&
-		(x == Currentbuf->cursorX + Currentbuf->rootX
-#ifdef USE_M17N
-		 || (WcOption.use_wide && Currentbuf->currentLine != NULL &&
-		     (CharType(Currentbuf->currentLine->
-			       propBuf[Currentbuf->pos]) == PC_KANJI1)
-		     && x == Currentbuf->cursorX + Currentbuf->rootX + 1)
-#endif
-		) &&
-		(retrieveCurrentAnchor(Currentbuf) ||
-		 retrieveCurrentForm(Currentbuf)))
-		map = &mouse_action.anchor_map[btn];
-	    cursorXY(Currentbuf, cx, cy);
-	}
-    }
-    if (!(map && map->func))
-	map = &mouse_action.default_map[btn];
-    if (map && map->func) {
-	mouse_action.in_action = TRUE;
-	mouse_action.cursorX = x;
-	mouse_action.cursorY = y;
-	CurrentKey = -1;
-	CurrentKeyData = NULL;
-	CurrentCmdData = map->data;
-	(*map->func) ();
-	CurrentCmdData = NULL;
-    }
-}
-
-static void
-process_mouse(int btn, int x, int y)
-{
-    int delta_x, delta_y, i;
-    static int press_btn = MOUSE_BTN_RESET, press_x, press_y;
-    TabBuffer *t;
-    int ny = -1;
-
-    if (nTab > 1 || mouse_action.menu_str)
-	ny = LastTab->y + 1;
-    if (btn == MOUSE_BTN_UP) {
-	switch (press_btn) {
-	case MOUSE_BTN1_DOWN:
-	    if (press_y == y && press_x == x)
-		do_mouse_action(press_btn, x, y);
-	    else if (ny > 0 && y < ny) {
-		if (press_y < ny) {
-		    moveTab(posTab(press_x, press_y), posTab(x, y),
-			    (press_y == y) ? (press_x < x) : (press_y < y));
-		    return;
-		}
-		else if (press_x >= Currentbuf->rootX) {
-		    Buffer *buf = Currentbuf;
-		    int cx = Currentbuf->cursorX, cy = Currentbuf->cursorY;
-
-		    t = posTab(x, y);
-		    if (t == NULL)
-			return;
-		    if (t == NO_TABBUFFER)
-			t = NULL;	/* open new tab */
-		    cursorXY(Currentbuf, press_x - Currentbuf->rootX,
-			     press_y - Currentbuf->rootY);
-		    if (Currentbuf->cursorY == press_y - Currentbuf->rootY &&
-			(Currentbuf->cursorX == press_x - Currentbuf->rootX
-#ifdef USE_M17N
-			 || (WcOption.use_wide &&
-			     Currentbuf->currentLine != NULL &&
-			     (CharType(Currentbuf->currentLine->
-				       propBuf[Currentbuf->pos]) == PC_KANJI1)
-			     && Currentbuf->cursorX == press_x
-			     - Currentbuf->rootX - 1)
-#endif
-			)) {
-			displayBuffer(Currentbuf, B_NORMAL);
-			followTab(t);
-		    }
-		    if (buf == Currentbuf)
-			cursorXY(Currentbuf, cx, cy);
-		}
-		return;
-	    }
-	    else {
-		delta_x = x - press_x;
-		delta_y = y - press_y;
-
-		if (abs(delta_x) < abs(delta_y) / 3)
-		    delta_x = 0;
-		if (abs(delta_y) < abs(delta_x) / 3)
-		    delta_y = 0;
-		if (reverse_mouse) {
-		    delta_y = -delta_y;
-		    delta_x = -delta_x;
-		}
-		if (delta_y > 0) {
-		    prec_num = delta_y;
-		    ldown1();
-		}
-		else if (delta_y < 0) {
-		    prec_num = -delta_y;
-		    lup1();
-		}
-		if (delta_x > 0) {
-		    prec_num = delta_x;
-		    col1L();
-		}
-		else if (delta_x < 0) {
-		    prec_num = -delta_x;
-		    col1R();
-		}
-	    }
-	    break;
-	case MOUSE_BTN2_DOWN:
-	case MOUSE_BTN3_DOWN:
-	    if (press_y == y && press_x == x)
-		do_mouse_action(press_btn, x, y);
-	    break;
-	case MOUSE_BTN4_DOWN_RXVT:
-	    for (i = 0; i < mouse_scroll_line(); i++)
-		ldown1();
-	    break;
-	case MOUSE_BTN5_DOWN_RXVT:
-	    for (i = 0; i < mouse_scroll_line(); i++)
-		lup1();
-	    break;
-	}
-    }
-    else if (btn == MOUSE_BTN4_DOWN_XTERM) {
-	for (i = 0; i < mouse_scroll_line(); i++)
-	    ldown1();
-    }
-    else if (btn == MOUSE_BTN5_DOWN_XTERM) {
-	for (i = 0; i < mouse_scroll_line(); i++)
-	    lup1();
-    }
-
-    if (btn != MOUSE_BTN4_DOWN_RXVT || press_btn == MOUSE_BTN_RESET) {
-	press_btn = btn;
-	press_x = x;
-	press_y = y;
-    }
-    else {
-	press_btn = MOUSE_BTN_RESET;
-    }
-}
-
-DEFUN(msToggle, MOUSE_TOGGLE, "Toggle activity of mouse")
-{
-    if (use_mouse) {
-	use_mouse = FALSE;
-    }
-    else {
-	use_mouse = TRUE;
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-DEFUN(mouse, MOUSE, "mouse operation")
-{
-    int btn, x, y;
-
-    btn = (unsigned char)getch() - 32;
-#if defined(__CYGWIN__) && CYGWIN_VERSION_DLL_MAJOR < 1005
-    if (cygwin_mouse_btn_swapped) {
-	if (btn == MOUSE_BTN2_DOWN)
-	    btn = MOUSE_BTN3_DOWN;
-	else if (btn == MOUSE_BTN3_DOWN)
-	    btn = MOUSE_BTN2_DOWN;
-    }
-#endif
-    x = (unsigned char)getch() - 33;
-    if (x < 0)
-	x += 0x100;
-    y = (unsigned char)getch() - 33;
-    if (y < 0)
-	y += 0x100;
-
-    if (x < 0 || x >= COLS || y < 0 || y > LASTLINE)
-	return;
-    process_mouse(btn, x, y);
-}
-
-#ifdef USE_GPM
-int
-gpm_process_mouse(Gpm_Event * event, void *data)
-{
-    int btn = MOUSE_BTN_RESET, x, y;
-    if (event->type & GPM_UP)
-	btn = MOUSE_BTN_UP;
-    else if (event->type & GPM_DOWN) {
-	switch (event->buttons) {
-	case GPM_B_LEFT:
-	    btn = MOUSE_BTN1_DOWN;
-	    break;
-	case GPM_B_MIDDLE:
-	    btn = MOUSE_BTN2_DOWN;
-	    break;
-	case GPM_B_RIGHT:
-	    btn = MOUSE_BTN3_DOWN;
-	    break;
-	}
-    }
-    else {
-	GPM_DRAWPOINTER(event);
-	return 0;
-    }
-    x = event->x;
-    y = event->y;
-    process_mouse(btn, x - 1, y - 1);
-    return 0;
-}
-#endif				/* USE_GPM */
-
-#ifdef USE_SYSMOUSE
-int
-sysm_process_mouse(int x, int y, int nbs, int obs)
-{
-    int btn;
-    int bits;
-
-    if (obs & ~nbs)
-	btn = MOUSE_BTN_UP;
-    else if (nbs & ~obs) {
-	bits = nbs & ~obs;
-	btn = bits & 0x1 ? MOUSE_BTN1_DOWN :
-	    (bits & 0x2 ? MOUSE_BTN2_DOWN :
-	     (bits & 0x4 ? MOUSE_BTN3_DOWN : 0));
-    }
-    else			/* nbs == obs */
-	return 0;
-    process_mouse(btn, x, y);
-    return 0;
-}
-#endif				/* USE_SYSMOUSE */
-
-DEFUN(movMs, MOVE_MOUSE, "Move cursor to mouse cursor (for mouse action)")
-{
-    if (!mouse_action.in_action)
-	return;
-    if ((nTab > 1 || mouse_action.menu_str) &&
-	mouse_action.cursorY < LastTab->y + 1)
-	return;
-    else if (mouse_action.cursorX >= Currentbuf->rootX &&
-	     mouse_action.cursorY < LASTLINE) {
-	cursorXY(Currentbuf, mouse_action.cursorX - Currentbuf->rootX,
-		 mouse_action.cursorY - Currentbuf->rootY);
-    }
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-#ifdef USE_MENU
-#ifdef KANJI_SYMBOLS
-#define FRAME_WIDTH 2
-#else
-#define FRAME_WIDTH 1
-#endif
-
-DEFUN(menuMs, MENU_MOUSE, "Popup menu at mouse cursor (for mouse action)")
-{
-    if (!mouse_action.in_action)
-	return;
-    if ((nTab > 1 || mouse_action.menu_str) &&
-	mouse_action.cursorY < LastTab->y + 1)
-	mouse_action.cursorX -= FRAME_WIDTH + 1;
-    else if (mouse_action.cursorX >= Currentbuf->rootX &&
-	     mouse_action.cursorY < LASTLINE) {
-	cursorXY(Currentbuf, mouse_action.cursorX - Currentbuf->rootX,
-		 mouse_action.cursorY - Currentbuf->rootY);
-	displayBuffer(Currentbuf, B_NORMAL);
-    }
-    mainMn();
-}
-#endif
-
-DEFUN(tabMs, TAB_MOUSE, "Move to tab on mouse cursor (for mouse action)")
-{
-    TabBuffer *tab;
-
-    if (!mouse_action.in_action)
-	return;
-    tab = posTab(mouse_action.cursorX, mouse_action.cursorY);
-    if (!tab || tab == NO_TABBUFFER)
-	return;
-    CurrentTab = tab;
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-DEFUN(closeTMs, CLOSE_TAB_MOUSE,
-      "Close tab on mouse cursor (for mouse action)")
-{
-    TabBuffer *tab;
-
-    if (!mouse_action.in_action)
-	return;
-    tab = posTab(mouse_action.cursorX, mouse_action.cursorY);
-    if (!tab || tab == NO_TABBUFFER)
-	return;
-    deleteTab(tab);
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-#endif				/* USE_MOUSE */
-
-DEFUN(dispVer, VERSION, "Display version of w3m")
-{
-    disp_message(Sprintf("w3m version %s", w3m_version)->ptr, TRUE);
-}
-
-DEFUN(wrapToggle, WRAP_TOGGLE, "Toggle wrap search mode")
-{
-    if (WrapSearch) {
-	WrapSearch = FALSE;
-	/* FIXME: gettextize? */
-	disp_message("Wrap search off", TRUE);
-    }
-    else {
-	WrapSearch = TRUE;
-	/* FIXME: gettextize? */
-	disp_message("Wrap search on", TRUE);
-    }
-}
-
-static int
-is_wordchar(int c, const char *badchars)
-{
-    if (badchars)
-	return !(IS_SPACE(c) || strchr(badchars, c));
-    else
-	return IS_ALPHA(c);
-}
-
-static char *
-getCurWord(Buffer *buf, int *spos, int *epos, const char *badchars)
-{
-    char *p;
-    Line *l = buf->currentLine;
-    int b, e;
-
-    *spos = 0;
-    *epos = 0;
-    if (l == NULL)
-	return NULL;
-    p = l->lineBuf;
-    e = buf->pos;
-    while (e > 0 && !is_wordchar(p[e], badchars))
-	e--;
-    if (!is_wordchar(p[e], badchars))
-	return NULL;
-    b = e;
-    while (b > 0 && is_wordchar(p[b - 1], badchars))
-	b--;
-    while (e < l->len && is_wordchar(p[e], badchars))
-	e++;
-    *spos = b;
-    *epos = e;
-    return &p[b];
-}
-
-static char *
-GetWord(Buffer *buf)
-{
-    int b, e;
-    char *p;
-
-    if ((p = getCurWord(buf, &b, &e, 0)) != NULL) {
-	return Strnew_charp_n(p, e - b)->ptr;
-    }
-    return NULL;
-}
-
-#ifdef USE_DICT
-static void
-execdict(char *word)
-{
-    char *w, *dictcmd;
-    Buffer *buf;
-
-    if (!UseDictCommand || word == NULL || *word == '\0') {
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-    w = conv_to_system(word);
-    if (*w == '\0') {
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-    dictcmd = Sprintf("%s?%s", DictCommand,
-		      Str_form_quote(Strnew_charp(w))->ptr)->ptr;
-    buf = loadGeneralFile(dictcmd, NULL, NO_REFERER, 0, NULL);
-    if (buf == NULL) {
-	disp_message("Execution failed", TRUE);
-	return;
-    }
-    else {
-	buf->filename = w;
-	buf->buffername = Sprintf("%s %s", DICTBUFFERNAME, word)->ptr;
-	if (buf->type == NULL)
-	    buf->type = "text/plain";
-	pushBuffer(buf);
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-DEFUN(dictword, DICT_WORD, "Execute dictionary command (see README.dict)")
-{
-    execdict(inputStr("(dictionary)!", ""));
-}
-
-DEFUN(dictwordat, DICT_WORD_AT,
-      "Execute dictionary command for word at cursor")
-{
-    execdict(GetWord(Currentbuf));
-}
-#endif				/* USE_DICT */
-
-void
-set_buffer_environ(Buffer *buf)
-{
-    static Buffer *prev_buf = NULL;
-    static Line *prev_line = NULL;
-    static int prev_pos = -1;
-    Line *l;
-
-    if (buf == NULL)
-	return;
-    if (buf != prev_buf) {
-	set_environ("W3M_SOURCEFILE", buf->sourcefile);
-	set_environ("W3M_FILENAME", buf->filename);
-	set_environ("W3M_TITLE", buf->buffername);
-	set_environ("W3M_URL", parsedURL2Str(&buf->currentURL)->ptr);
-	set_environ("W3M_TYPE", buf->real_type ? buf->real_type : "unknown");
-#ifdef USE_M17N
-	set_environ("W3M_CHARSET", wc_ces_to_charset(buf->document_charset));
-#endif
-    }
-    l = buf->currentLine;
-    if (l && (buf != prev_buf || l != prev_line || buf->pos != prev_pos)) {
-	Anchor *a;
-	ParsedURL pu;
-	char *s = GetWord(buf);
-	set_environ("W3M_CURRENT_WORD", s ? s : "");
-	a = retrieveCurrentAnchor(buf);
-	if (a) {
-	    parseURL2(a->url, &pu, baseURL(buf));
-	    set_environ("W3M_CURRENT_LINK", parsedURL2Str(&pu)->ptr);
-	}
-	else
-	    set_environ("W3M_CURRENT_LINK", "");
-	a = retrieveCurrentImg(buf);
-	if (a) {
-	    parseURL2(a->url, &pu, baseURL(buf));
-	    set_environ("W3M_CURRENT_IMG", parsedURL2Str(&pu)->ptr);
-	}
-	else
-	    set_environ("W3M_CURRENT_IMG", "");
-	a = retrieveCurrentForm(buf);
-	if (a)
-	    set_environ("W3M_CURRENT_FORM", form2str((FormItemList *)a->url));
-	else
-	    set_environ("W3M_CURRENT_FORM", "");
-	set_environ("W3M_CURRENT_LINE", Sprintf("%d",
-						l->real_linenumber)->ptr);
-	set_environ("W3M_CURRENT_COLUMN", Sprintf("%d",
-						  buf->currentColumn +
-						  buf->cursorX + 1)->ptr);
-    }
-    else if (!l) {
-	set_environ("W3M_CURRENT_WORD", "");
-	set_environ("W3M_CURRENT_LINK", "");
-	set_environ("W3M_CURRENT_IMG", "");
-	set_environ("W3M_CURRENT_FORM", "");
-	set_environ("W3M_CURRENT_LINE", "0");
-	set_environ("W3M_CURRENT_COLUMN", "0");
-    }
-    prev_buf = buf;
-    prev_line = l;
-    prev_pos = buf->pos;
-}
-
-char *
-searchKeyData(void)
-{
-    char *data = NULL;
-
-    if (CurrentKeyData != NULL && *CurrentKeyData != '\0')
-	data = CurrentKeyData;
-    else if (CurrentCmdData != NULL && *CurrentCmdData != '\0')
-	data = CurrentCmdData;
-    else if (CurrentKey >= 0)
-	data = getKeyData(CurrentKey);
-    CurrentKeyData = NULL;
-    CurrentCmdData = NULL;
-    if (data == NULL || *data == '\0')
-	return NULL;
-    return allocStr(data, -1);
-}
-
-static int
-searchKeyNum(void)
-{
-    char *d;
-    int n = 1;
-
-    d = searchKeyData();
-    if (d != NULL)
-	n = atoi(d);
-    return n * PREC_NUM;
-}
-
-#ifdef __EMX__
-#ifdef USE_M17N
-static char *
-getCodePage(void)
-{
-    unsigned long CpList[8], CpSize;
-
-    if (!getenv("WINDOWID") && !DosQueryCp(sizeof(CpList), CpList, &CpSize))
-	return Sprintf("CP%d", *CpList)->ptr;
-    return NULL;
-}
-#endif
-#endif
-
-void
-deleteFiles()
-{
-    Buffer *buf;
-    char *f;
-
-    for (CurrentTab = FirstTab; CurrentTab; CurrentTab = CurrentTab->nextTab) {
-	while (Firstbuf && Firstbuf != NO_BUFFER) {
-	    buf = Firstbuf->nextBuffer;
-	    discardBuffer(Firstbuf);
-	    Firstbuf = buf;
-	}
-    }
-    while ((f = popText(fileToDelete)) != NULL)
-	unlink(f);
-}
-
-void
-w3m_exit(int i)
-{
-#ifdef USE_MIGEMO
-    init_migemo();		/* close pipe to migemo */
-#endif
-    stopDownload();
-    deleteFiles();
-#ifdef USE_SSL
-    free_ssl_ctx();
-#endif
-    disconnectFTP();
-#ifdef USE_NNTP
-    disconnectNews();
-#endif
-    exit(i);
-}
-
-DEFUN(execCmd, COMMAND, "Execute w3m command(s)")
-{
-    char *data, *p;
-    int cmd;
-
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    data = searchKeyData();
-    if (data == NULL || *data == '\0') {
-	data = inputStrHist("command [; ...]: ", "", TextHist);
-	if (data == NULL) {
-	    displayBuffer(Currentbuf, B_NORMAL);
-	    return;
-	}
-    }
-    /* data: FUNC [DATA] [; FUNC [DATA] ...] */
-    while (*data) {
-	SKIP_BLANKS(data);
-	if (*data == ';') {
-	    data++;
-	    continue;
-	}
-	p = getWord(&data);
-	cmd = getFuncList(p);
-	if (cmd < 0)
-	    break;
-	p = getQWord(&data);
-	CurrentKey = -1;
-	CurrentKeyData = NULL;
-	CurrentCmdData = *p ? p : NULL;
-#ifdef USE_MOUSE
-	if (use_mouse)
-	    mouse_inactive();
-#endif
-	w3mFuncList[cmd].func();
-#ifdef USE_MOUSE
-	if (use_mouse)
-	    mouse_active();
-#endif
-	CurrentCmdData = NULL;
-    }
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-#ifdef USE_ALARM
-static MySignalHandler
-SigAlarm(SIGNAL_ARG)
-{
-    char *data;
-
-    if (CurrentAlarm->sec > 0) {
-	CurrentKey = -1;
-	CurrentKeyData = NULL;
-	CurrentCmdData = data = (char *)CurrentAlarm->data;
-#ifdef USE_MOUSE
-	if (use_mouse)
-	    mouse_inactive();
-#endif
-	w3mFuncList[CurrentAlarm->cmd].func();
-#ifdef USE_MOUSE
-	if (use_mouse)
-	    mouse_active();
-#endif
-	CurrentCmdData = NULL;
-	if (CurrentAlarm->status == AL_IMPLICIT_ONCE) {
-	    CurrentAlarm->sec = 0;
-	    CurrentAlarm->status = AL_UNSET;
-	}
-	if (Currentbuf->event) {
-	    if (Currentbuf->event->status != AL_UNSET)
-		CurrentAlarm = Currentbuf->event;
-	    else
-		Currentbuf->event = NULL;
-	}
-	if (!Currentbuf->event)
-	    CurrentAlarm = &DefaultAlarm;
-	if (CurrentAlarm->sec > 0) {
-	    mySignal(SIGALRM, SigAlarm);
-	    alarm(CurrentAlarm->sec);
-	}
-    }
-    SIGNAL_RETURN;
-}
-
-
-DEFUN(setAlarm, ALARM, "Set alarm")
-{
-    char *data;
-    int sec = 0, cmd = -1;
-
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    data = searchKeyData();
-    if (data == NULL || *data == '\0') {
-	data = inputStrHist("(Alarm)sec command: ", "", TextHist);
-	if (data == NULL) {
-	    displayBuffer(Currentbuf, B_NORMAL);
-	    return;
-	}
-    }
-    if (*data != '\0') {
-	sec = atoi(getWord(&data));
-	if (sec > 0)
-	    cmd = getFuncList(getWord(&data));
-    }
-    if (cmd >= 0) {
-	data = getQWord(&data);
-	setAlarmEvent(&DefaultAlarm, sec, AL_EXPLICIT, cmd, data);
-	disp_message_nsec(Sprintf("%dsec %s %s", sec, w3mFuncList[cmd].id,
-				  data)->ptr, FALSE, 1, FALSE, TRUE);
-    }
-    else {
-	setAlarmEvent(&DefaultAlarm, 0, AL_UNSET, FUNCNAME_nulcmd, NULL);
-    }
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-AlarmEvent *
-setAlarmEvent(AlarmEvent * event, int sec, short status, int cmd, void *data)
-{
-    if (event == NULL)
-	event = New(AlarmEvent);
-    event->sec = sec;
-    event->status = status;
-    event->cmd = cmd;
-    event->data = data;
-    return event;
-}
-#endif
-
-DEFUN(reinit, REINIT, "Reload configuration files")
-{
-    char *resource = searchKeyData();
-
-    if (resource == NULL) {
-	init_rc();
-	sync_with_option();
-#ifdef USE_COOKIE
-	initCookie();
-#endif
-	displayBuffer(Currentbuf, B_REDRAW_IMAGE);
-	return;
-    }
-
-    if (!strcasecmp(resource, "CONFIG") || !strcasecmp(resource, "RC")) {
-	init_rc();
-	sync_with_option();
-	displayBuffer(Currentbuf, B_REDRAW_IMAGE);
-	return;
-    }
-
-#ifdef USE_COOKIE
-    if (!strcasecmp(resource, "COOKIE")) {
-	initCookie();
-	return;
-    }
-#endif
-
-    if (!strcasecmp(resource, "KEYMAP")) {
-	initKeymap(TRUE);
-	return;
-    }
-
-    if (!strcasecmp(resource, "MAILCAP")) {
-	initMailcap();
-	return;
-    }
-
-#ifdef USE_MOUSE
-    if (!strcasecmp(resource, "MOUSE")) {
-	initMouseAction();
-	displayBuffer(Currentbuf, B_REDRAW_IMAGE);
-	return;
-    }
-#endif
-
-#ifdef USE_MENU
-    if (!strcasecmp(resource, "MENU")) {
-	initMenu();
-	return;
-    }
-#endif
-
-    if (!strcasecmp(resource, "MIMETYPES")) {
-	initMimeTypes();
-	return;
-    }
-
-#ifdef USE_EXTERNAL_URI_LOADER
-    if (!strcasecmp(resource, "URIMETHODS")) {
-	initURIMethods();
-	return;
-    }
-#endif
-
-    disp_err_message(Sprintf("Don't know how to reinitialize '%s'", resource)->
-		     ptr, FALSE);
-}
-
-DEFUN(defKey, DEFINE_KEY,
-      "Define a binding between a key stroke and a user command")
-{
-    char *data;
-
-    CurrentKeyData = NULL;	/* not allowed in w3m-control: */
-    data = searchKeyData();
-    if (data == NULL || *data == '\0') {
-	data = inputStrHist("Key definition: ", "", TextHist);
-	if (data == NULL || *data == '\0') {
-	    displayBuffer(Currentbuf, B_NORMAL);
-	    return;
-	}
-    }
-    setKeymap(allocStr(data, -1), -1, TRUE);
-    displayBuffer(Currentbuf, B_NORMAL);
-}
-
-TabBuffer *
-newTab(void)
-{
-    TabBuffer *n;
-
-    n = New(TabBuffer);
-    if (n == NULL)
-	return NULL;
-    n->nextTab = NULL;
-    n->currentBuffer = NULL;
-    n->firstBuffer = NULL;
-    return n;
-}
-
-static void
-_newT(void)
-{
-    TabBuffer *tag;
-    Buffer *buf;
-    int i;
-
-    tag = newTab();
-    if (!tag)
-	return;
-
-    buf = newBuffer(Currentbuf->width);
-    copyBuffer(buf, Currentbuf);
-    buf->nextBuffer = NULL;
-    for (i = 0; i < MAX_LB; i++)
-	buf->linkBuffer[i] = NULL;
-    (*buf->clone)++;
-    tag->firstBuffer = tag->currentBuffer = buf;
-
-    tag->nextTab = CurrentTab->nextTab;
-    tag->prevTab = CurrentTab;
-    if (CurrentTab->nextTab)
-	CurrentTab->nextTab->prevTab = tag;
-    else
-	LastTab = tag;
-    CurrentTab->nextTab = tag;
-    CurrentTab = tag;
-    nTab++;
-}
-
-DEFUN(newT, NEW_TAB, "Open new tab")
-{
-    _newT();
-    displayBuffer(Currentbuf, B_REDRAW_IMAGE);
-}
-
-static TabBuffer *
-numTab(int n)
-{
-    TabBuffer *tab;
-    int i;
-
-    if (n == 0)
-	return CurrentTab;
-    if (n == 1)
-	return FirstTab;
-    if (nTab <= 1)
-	return NULL;
-    for (tab = FirstTab, i = 1; tab && i < n; tab = tab->nextTab, i++) ;
-    return tab;
-}
-
-void
-calcTabPos(void)
-{
-    TabBuffer *tab;
-#if 0
-    int lcol = 0, rcol = 2, col;
-#else
-    int lcol = 0, rcol = 0, col;
-#endif
-    int n1, n2, na, nx, ny, ix, iy;
-
-#ifdef USE_MOUSE
-    lcol = mouse_action.menu_str ? mouse_action.menu_width : 0;
-#endif
-
-    if (nTab <= 0)
-	return;
-    n1 = (COLS - rcol - lcol) / TabCols;
-    if (n1 >= nTab) {
-	n2 = 1;
-	ny = 1;
-    }
-    else {
-	if (n1 < 0)
-	    n1 = 0;
-	n2 = COLS / TabCols;
-	if (n2 == 0)
-	    n2 = 1;
-	ny = (nTab - n1 - 1) / n2 + 2;
-    }
-    na = n1 + n2 * (ny - 1);
-    n1 -= (na - nTab) / ny;
-    if (n1 < 0)
-	n1 = 0;
-    na = n1 + n2 * (ny - 1);
-    tab = FirstTab;
-    for (iy = 0; iy < ny && tab; iy++) {
-	if (iy == 0) {
-	    nx = n1;
-	    col = COLS - rcol - lcol;
-	}
-	else {
-	    nx = n2 - (na - nTab + (iy - 1)) / (ny - 1);
-	    col = COLS;
-	}
-	for (ix = 0; ix < nx && tab; ix++, tab = tab->nextTab) {
-	    tab->x1 = col * ix / nx;
-	    tab->x2 = col * (ix + 1) / nx - 1;
-	    tab->y = iy;
-	    if (iy == 0) {
-		tab->x1 += lcol;
-		tab->x2 += lcol;
-	    }
-	}
-    }
-}
-
-TabBuffer *
-deleteTab(TabBuffer * tab)
-{
-    Buffer *buf, *next;
-
-    if (nTab <= 1)
-	return FirstTab;
-    if (tab->prevTab) {
-	if (tab->nextTab)
-	    tab->nextTab->prevTab = tab->prevTab;
-	else
-	    LastTab = tab->prevTab;
-	tab->prevTab->nextTab = tab->nextTab;
-	if (tab == CurrentTab)
-	    CurrentTab = tab->prevTab;
-    }
-    else {			/* tab == FirstTab */
-	tab->nextTab->prevTab = NULL;
-	FirstTab = tab->nextTab;
-	if (tab == CurrentTab)
-	    CurrentTab = tab->nextTab;
-    }
-    nTab--;
-    buf = tab->firstBuffer;
-    while (buf && buf != NO_BUFFER) {
-	next = buf->nextBuffer;
-	discardBuffer(buf);
-	buf = next;
-    }
-    return FirstTab;
-}
-
-DEFUN(closeT, CLOSE_TAB, "Close current tab")
-{
-    TabBuffer *tab;
-
-    if (nTab <= 1)
-	return;
-    if (prec_num)
-	tab = numTab(PREC_NUM);
-    else
-	tab = CurrentTab;
-    if (tab)
-	deleteTab(tab);
-    displayBuffer(Currentbuf, B_REDRAW_IMAGE);
-}
-
-DEFUN(nextT, NEXT_TAB, "Move to next tab")
-{
-    int i;
-
-    if (nTab <= 1)
-	return;
-    for (i = 0; i < PREC_NUM; i++) {
-	if (CurrentTab->nextTab)
-	    CurrentTab = CurrentTab->nextTab;
-	else
-	    CurrentTab = FirstTab;
-    }
-    displayBuffer(Currentbuf, B_REDRAW_IMAGE);
-}
-
-DEFUN(prevT, PREV_TAB, "Move to previous tab")
-{
-    int i;
-
-    if (nTab <= 1)
-	return;
-    for (i = 0; i < PREC_NUM; i++) {
-	if (CurrentTab->prevTab)
-	    CurrentTab = CurrentTab->prevTab;
-	else
-	    CurrentTab = LastTab;
-    }
-    displayBuffer(Currentbuf, B_REDRAW_IMAGE);
-}
-
-void
-followTab(TabBuffer * tab)
-{
-    Buffer *buf;
-    Anchor *a;
-
-#ifdef USE_IMAGE
-    a = retrieveCurrentImg(Currentbuf);
-    if (!(a && a->image && a->image->map))
-#endif
-	a = retrieveCurrentAnchor(Currentbuf);
-    if (a == NULL)
-	return;
-
-    if (tab == CurrentTab) {
-	check_target = FALSE;
-	followA();
-	check_target = TRUE;
-	return;
-    }
-    _newT();
-    buf = Currentbuf;
-    check_target = FALSE;
-    followA();
-    check_target = TRUE;
-    if (tab == NULL) {
-	if (buf != Currentbuf)
-	    delBuffer(buf);
-	else
-	    deleteTab(CurrentTab);
-    }
-    else if (buf != Currentbuf) {
-	/* buf <- p <- ... <- Currentbuf = c */
-	Buffer *c, *p;
-
-	c = Currentbuf;
-	p = prevBuffer(c, buf);
-	p->nextBuffer = NULL;
-	Firstbuf = buf;
-	deleteTab(CurrentTab);
-	CurrentTab = tab;
-	for (buf = p; buf; buf = p) {
-	    p = prevBuffer(c, buf);
-	    pushBuffer(buf);
-	}
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-DEFUN(tabA, TAB_LINK, "Open current link on new tab")
-{
-    followTab(prec_num ? numTab(PREC_NUM) : NULL);
-}
-
-static void
-tabURL0(TabBuffer * tab, char *prompt, int relative)
-{
-    Buffer *buf;
-
-    if (tab == CurrentTab) {
-	goURL0(prompt, relative);
-	return;
-    }
-    _newT();
-    buf = Currentbuf;
-    goURL0(prompt, relative);
-    if (tab == NULL) {
-	if (buf != Currentbuf)
-	    delBuffer(buf);
-	else
-	    deleteTab(CurrentTab);
-    }
-    else if (buf != Currentbuf) {
-	/* buf <- p <- ... <- Currentbuf = c */
-	Buffer *c, *p;
-
-	c = Currentbuf;
-	p = prevBuffer(c, buf);
-	p->nextBuffer = NULL;
-	Firstbuf = buf;
-	deleteTab(CurrentTab);
-	CurrentTab = tab;
-	for (buf = p; buf; buf = p) {
-	    p = prevBuffer(c, buf);
-	    pushBuffer(buf);
-	}
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-DEFUN(tabURL, TAB_GOTO, "Open URL on new tab")
-{
-    tabURL0(prec_num ? numTab(PREC_NUM) : NULL,
-	    "Goto URL on new tab: ", FALSE);
-}
-
-DEFUN(tabrURL, TAB_GOTO_RELATIVE, "Open relative URL on new tab")
-{
-    tabURL0(prec_num ? numTab(PREC_NUM) : NULL,
-	    "Goto relative URL on new tab: ", TRUE);
-}
-
-void
-moveTab(TabBuffer * t, TabBuffer * t2, int right)
-{
-    if (t2 == NO_TABBUFFER)
-	t2 = FirstTab;
-    if (!t || !t2 || t == t2 || t == NO_TABBUFFER)
-	return;
-    if (t->prevTab) {
-	if (t->nextTab)
-	    t->nextTab->prevTab = t->prevTab;
-	else
-	    LastTab = t->prevTab;
-	t->prevTab->nextTab = t->nextTab;
-    }
-    else {
-	t->nextTab->prevTab = NULL;
-	FirstTab = t->nextTab;
-    }
-    if (right) {
-	t->nextTab = t2->nextTab;
-	t->prevTab = t2;
-	if (t2->nextTab)
-	    t2->nextTab->prevTab = t;
-	else
-	    LastTab = t;
-	t2->nextTab = t;
-    }
-    else {
-	t->prevTab = t2->prevTab;
-	t->nextTab = t2;
-	if (t2->prevTab)
-	    t2->prevTab->nextTab = t;
-	else
-	    FirstTab = t;
-	t2->prevTab = t;
-    }
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-DEFUN(tabR, TAB_RIGHT, "Move current tab right")
-{
-    TabBuffer *tab;
-    int i;
-
-    for (tab = CurrentTab, i = 0; tab && i < PREC_NUM;
-	 tab = tab->nextTab, i++) ;
-    moveTab(CurrentTab, tab ? tab : LastTab, TRUE);
-}
-
-DEFUN(tabL, TAB_LEFT, "Move current tab left")
-{
-    TabBuffer *tab;
-    int i;
-
-    for (tab = CurrentTab, i = 0; tab && i < PREC_NUM;
-	 tab = tab->prevTab, i++) ;
-    moveTab(CurrentTab, tab ? tab : FirstTab, FALSE);
-}
-
-void
-addDownloadList(pid_t pid, char *url, char *save, char *lock, clen_t size)
-{
-    DownloadList *d;
-
-    d = New(DownloadList);
-    d->pid = pid;
-    d->url = url;
-    if (save[0] != '/' && save[0] != '~')
-	save = Strnew_m_charp(CurrentDir, "/", save, NULL)->ptr;
-    d->save = expandPath(save);
-    d->lock = lock;
-    d->size = size;
-    d->time = time(0);
-    d->ok = FALSE;
-    d->next = NULL;
-    d->prev = LastDL;
-    if (LastDL)
-	LastDL->next = d;
-    else
-	FirstDL = d;
-    LastDL = d;
-    add_download_list = TRUE;
-}
-
-int
-checkDownloadList(void)
-{
-    DownloadList *d;
-    struct stat st;
-
-    if (!FirstDL)
-	return FALSE;
-    for (d = FirstDL; d != NULL; d = d->next) {
-	if (!d->ok && !lstat(d->lock, &st))
-	    return TRUE;
-    }
-    return FALSE;
-}
-
-static char *
-convert_size3(clen_t size)
-{
-    Str tmp = Strnew();
-    int n;
-
-    do {
-	n = size % 1000;
-	size /= 1000;
-	tmp = Sprintf(size ? ",%.3d%s" : "%d%s", n, tmp->ptr);
-    } while (size);
-    return tmp->ptr;
-}
-
-static Buffer *
-DownloadListBuffer(void)
-{
-    DownloadList *d;
-    Str src = NULL;
-    struct stat st;
-    time_t cur_time;
-    int duration, rate, eta;
-    size_t size;
-
-    if (!FirstDL)
-	return NULL;
-    cur_time = time(0);
-    /* FIXME: gettextize? */
-    src = Strnew_charp("<html><head><title>" DOWNLOAD_LIST_TITLE
-		       "</title></head>\n<body><h1 align=center>"
-		       DOWNLOAD_LIST_TITLE "</h1>\n"
-		       "<form method=internal action=download><hr>\n");
-    for (d = LastDL; d != NULL; d = d->prev) {
-	if (lstat(d->lock, &st))
-	    d->ok = TRUE;
-	Strcat_charp(src, "<pre>\n");
-	Strcat(src, Sprintf("%s\n  --&gt; %s\n  ", html_quote(d->url),
-			    html_quote(conv_from_system(d->save))));
-	duration = cur_time - d->time;
-	if (!stat(d->save, &st)) {
-	    size = st.st_size;
-	    if (d->ok) {
-		d->size = size;
-		duration = st.st_mtime - d->time;
-	    }
-	}
-	else
-	    size = 0;
-	if (d->size) {
-	    int i, l = COLS - 6;
-	    if (size < d->size)
-		i = 1.0 * l * size / d->size;
-	    else
-		i = l;
-	    l -= i;
-	    while (i-- > 0)
-		Strcat_char(src, '#');
-	    while (l-- > 0)
-		Strcat_char(src, '_');
-	    Strcat_char(src, '\n');
-	}
-	if (!d->ok && size < d->size)
-	    Strcat(src, Sprintf("  %s / %s bytes (%d%%)",
-				convert_size3(size), convert_size3(d->size),
-				(int)(100.0 * size / d->size)));
-	else
-	    Strcat(src, Sprintf("  %s bytes loaded", convert_size3(size)));
-	if (duration > 0) {
-	    rate = size / duration;
-	    Strcat(src, Sprintf("  %02d:%02d:%02d  rate %s/sec",
-				duration / (60 * 60), (duration / 60) % 60,
-				duration % 60, convert_size(rate, 1)));
-	    if (!d->ok && size < d->size && rate) {
-		eta = (d->size - size) / rate;
-		Strcat(src, Sprintf("  eta %02d:%02d:%02d", eta / (60 * 60),
-				    (eta / 60) % 60, eta % 60));
-	    }
-	}
-	Strcat_char(src, '\n');
-	if (d->ok) {
-	    Strcat(src, Sprintf("<input type=submit name=ok%d value=OK>",
-				d->pid));
-	    if (size < d->size)
-		Strcat_charp(src, " Download incompleted");
-	    else
-		Strcat_charp(src, " Download completed");
-	}
-	else
-	    Strcat(src, Sprintf("<input type=submit name=stop%d value=STOP>",
-				d->pid));
-	Strcat_charp(src, "\n</pre><hr>\n");
-    }
-    Strcat_charp(src, "</form></body></html>");
-    return loadHTMLString(src);
-}
-
-void
-download_action(struct parsed_tagarg *arg)
-{
-    DownloadList *d;
-    pid_t pid;
-
-    for (; arg; arg = arg->next) {
-	if (!strncmp(arg->arg, "stop", 4)) {
-	    pid = (pid_t) atoi(&arg->arg[4]);
-	    kill(pid, SIGKILL);
-	}
-	else if (!strncmp(arg->arg, "ok", 2))
-	    pid = (pid_t) atoi(&arg->arg[2]);
-	else
-	    continue;
-	for (d = FirstDL; d; d = d->next) {
-	    if (d->pid == pid) {
-		unlink(d->lock);
-		if (d->prev)
-		    d->prev->next = d->next;
-		else
-		    FirstDL = d->next;
-		if (d->next)
-		    d->next->prev = d->prev;
-		else
-		    LastDL = d->prev;
-		break;
-	    }
-	}
-    }
-    ldDL();
-}
-
-void
-stopDownload(void)
-{
-    DownloadList *d;
-
-    if (!FirstDL)
-	return;
-    for (d = FirstDL; d != NULL; d = d->next) {
-	if (d->ok)
-	    continue;
-	kill(d->pid, SIGKILL);
-	unlink(d->lock);
-    }
-}
-
-/* download panel */
-DEFUN(ldDL, DOWNLOAD_LIST, "Display download list panel")
-{
-    Buffer *buf;
-    int replace = FALSE, new_tab = FALSE;
-#ifdef USE_ALARM
-    int reload;
-#endif
-
-    if (Currentbuf->bufferprop & BP_INTERNAL &&
-	!strcmp(Currentbuf->buffername, DOWNLOAD_LIST_TITLE))
-	replace = TRUE;
-    if (!FirstDL) {
-	if (replace) {
-	    if (Currentbuf == Firstbuf && Currentbuf->nextBuffer == NULL) {
-		if (nTab > 1)
-		    deleteTab(CurrentTab);
-	    }
-	    else
-		delBuffer(Currentbuf);
-	    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-	}
-	return;
-    }
-#ifdef USE_ALARM
-    reload = checkDownloadList();
-#endif
-    buf = DownloadListBuffer();
-    if (!buf) {
-	displayBuffer(Currentbuf, B_NORMAL);
-	return;
-    }
-    buf->bufferprop |= (BP_INTERNAL | BP_NO_URL);
-    if (replace)
-	restorePosition(buf, Currentbuf);
-    if (!replace && open_tab_dl_list) {
-	_newT();
-	new_tab = TRUE;
-    }
-    pushBuffer(buf);
-    if (replace || new_tab)
-	deletePrevBuf();
-#ifdef USE_ALARM
-    if (reload)
-	Currentbuf->event = setAlarmEvent(Currentbuf->event, 1, AL_IMPLICIT,
-					  FUNCNAME_reload, NULL);
-#endif
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-static void
-save_buffer_position(Buffer *buf)
-{
-    BufferPos *b = buf->undo;
-
-    if (!buf->firstLine)
-	return;
-    if (b && b->top_linenumber == TOP_LINENUMBER(buf) &&
-	b->cur_linenumber == CUR_LINENUMBER(buf) &&
-	b->currentColumn == buf->currentColumn && b->pos == buf->pos)
-	return;
-    b = New(BufferPos);
-    b->top_linenumber = TOP_LINENUMBER(buf);
-    b->cur_linenumber = CUR_LINENUMBER(buf);
-    b->currentColumn = buf->currentColumn;
-    b->pos = buf->pos;
-    b->bpos = buf->currentLine ? buf->currentLine->bpos : 0;
-    b->next = NULL;
-    b->prev = buf->undo;
-    if (buf->undo)
-	buf->undo->next = b;
-    buf->undo = b;
-}
-
-static void
-resetPos(BufferPos * b)
-{
-    Buffer buf;
-    Line top, cur;
-
-    top.linenumber = b->top_linenumber;
-    cur.linenumber = b->cur_linenumber;
-    cur.bpos = b->bpos;
-    buf.topLine = &top;
-    buf.currentLine = &cur;
-    buf.pos = b->pos;
-    buf.currentColumn = b->currentColumn;
-    restorePosition(Currentbuf, &buf);
-    Currentbuf->undo = b;
-    displayBuffer(Currentbuf, B_FORCE_REDRAW);
-}
-
-DEFUN(undoPos, UNDO, "Cancel the last cursor movement")
-{
-    BufferPos *b = Currentbuf->undo;
-    int i;
-
-    if (!Currentbuf->firstLine)
-	return;
-    if (!b || !b->prev)
-	return;
-    for (i = 0; i < PREC_NUM && b->prev; i++, b = b->prev) ;
-    resetPos(b);
-}
-
-DEFUN(redoPos, REDO, "Cancel the last undo")
-{
-    BufferPos *b = Currentbuf->undo;
-    int i;
-
-    if (!Currentbuf->firstLine)
-	return;
-    if (!b || !b->next)
-	return;
-    for (i = 0; i < PREC_NUM && b->next; i++, b = b->next) ;
-    resetPos(b);
-}