# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 715643502 0
# Node ID 8f64d312243591dc62275f65f94bab4b1b78d043
# Parent  0c960257c363c7b1e86ae406052a4180fe54abf1
entered into RCS

diff -r 0c960257c363 -r 8f64d3122435 lisp/textmodes/page.el
--- a/lisp/textmodes/page.el	Fri Sep 04 21:49:15 1992 +0000
+++ b/lisp/textmodes/page.el	Fri Sep 04 21:51:42 1992 +0000
@@ -29,6 +29,9 @@
   (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)))
diff -r 0c960257c363 -r 8f64d3122435 src/commands.h
--- a/src/commands.h	Fri Sep 04 21:49:15 1992 +0000
+++ b/src/commands.h	Fri Sep 04 21:51:42 1992 +0000
@@ -45,6 +45,10 @@
 /* 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;