Commit 07f4ea75 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

entered into RCS

parent 16c15321
......@@ -29,6 +29,9 @@ A page boundary is any line whose beginning matches the regexp
(interactive "p")
(or count (setq count 1))
(while (and (> count 0) (not (eobp)))
;; In case the page-delimiter matches the null string,
;; don't find a match without moving.
(if (bolp) (forward-char 1))
(if (re-search-forward page-delimiter nil t)
nil
(goto-char (point-max)))
......
......@@ -45,6 +45,10 @@ extern Lisp_Object Vminibuffer_local_must_match_map;
/* Last character of last key sequence. */
extern Lisp_Object last_command_char;
/* Last input character read as a command, not counting menus
reached by the mouse. */
extern Lisp_Object last_nonmenu_event;
/* Command character to be re-read, or -1 */
extern int unread_command_char;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment