Mercurial > emacs

changeset 1080:8f64d3122435

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Richard M. Stallman <rms@gnu.org>
date Fri, 04 Sep 1992 21:51:42 +0000
parents 0c960257c363
children 4e7d09b779eb
files lisp/textmodes/page.el src/commands.h
diffstat 2 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)))
--- 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;