mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

entered into RCS

Browse Source
This commit is contained in:
Richard M. Stallman 1992-09-04 21:51:42 +00:00
parent 16c15321db
commit 07f4ea75c3
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/textmodes/page.el
View File

@ -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)))

4
src/commands.h
View File

@ -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;