set_buffer_text (bp, es);
/* Reset undo history. */
set_buffer_next_undop (bp, NULL);
set_buffer_last_undop (bp, NULL);
set_buffer_modified (bp, false);
}
}
switch_to_buffer (bp);
thisflag |= FLAG_NEED_RESYNC;
return true;
}
DEFUN_ARGS ("find-file", find_file,
STR_ARG (filename))
/*+
Edit file @i{filename}.
Switch to a buffer visiting file @i{filename},
creating one if none already exists.
+*/
{
STR_INIT (filename)
else
{
filename = minibuf_read_filename ("Find file: ",
astr_cstr (get_buffer_dir (cur_bp)), NULL);
if (filename == NULL)
ok = FUNCALL (keyboard_quit);
}
{
free (last_search);
last_search = xstrdup (pattern);
if (!search (get_buffer_pt (cur_bp), pattern, forward, regexp))
minibuf_error ("Search failed: \"%s\"", pattern);
else
ok = leT;
}
free ((char *) ms);
return ok;
}
DEFUN_ARGS ("search-forward", search_forward,
STR_ARG (pattern))
/*+
Search forward from point for the user specified text.
+*/
{
STR_INIT (pattern);
ok = do_search (true, false, pattern);
STR_FREE (pattern);
}
END_DEFUN
DEFUN_ARGS ("search-backward", search_backward,
STR_ARG (pattern))
/*+
Search backward from point for the user specified text.
+*/
