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 ...@@ -29,6 +29,9 @@ A page boundary is any line whose beginning matches the regexp
(interactive "p") (interactive "p")
(or count (setq count 1)) (or count (setq count 1))
(while (and (> count 0) (not (eobp))) (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) (if (re-search-forward page-delimiter nil t)
nil nil
(goto-char (point-max))) (goto-char (point-max)))
......
...@@ -45,6 +45,10 @@ extern Lisp_Object Vminibuffer_local_must_match_map; ...@@ -45,6 +45,10 @@ extern Lisp_Object Vminibuffer_local_must_match_map;
/* Last character of last key sequence. */ /* Last character of last key sequence. */
extern Lisp_Object last_command_char; 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 */ /* Command character to be re-read, or -1 */
extern int unread_command_char; 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