From ce13884c12c2417eb3b9e64f2969788738683ad6 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 25 Aug 1992 19:27:22 +0000 Subject: [PATCH] HP-UX 8.07 uses "Reformatting entry" message instead of "Reformatting page". --- v7/src/edwin/manual.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/edwin/manual.scm b/v7/src/edwin/manual.scm index 55b161a48..2cfa5c8a2 100644 --- a/v7/src/edwin/manual.scm +++ b/v7/src/edwin/manual.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/manual.scm,v 1.9 1992/04/04 13:06:35 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/manual.scm,v 1.10 1992/08/25 19:27:22 cph Exp $ ;;; ;;; Copyright (c) 1991-92 Massachusetts Institute of Technology ;;; @@ -120,7 +120,7 @@ where SECTION is the desired section of the manual, as in `tty(4)'." false) (delete-match)) ;; Nuke "Reformatting page" message, plus trailing blank lines. - (if (re-match-forward "Reformatting page.*\n\\([ \t]*\n\\)*" + (if (re-match-forward "Reformatting \\(page\\|entry\\).*\n\\([ \t]*\n\\)*" (buffer-start buffer) (buffer-end buffer) false) -- 2.25.1