mg - more emacs scroll compatibility

[Mark Lumsden]

Show a message and beep when you reach either end of a buffer. 

ok?

-lum

Index: basic.c
===================================================================
RCS file: /cvs/src/usr.bin/mg/basic.c,v
retrieving revision 1.33
diff -u -p -r1.33 basic.c
--- basic.c     31 May 2012 10:55:53 -0000      1.33
+++ basic.c     31 May 2012 14:54:24 -0000
@@ -269,8 +269,11 @@ forwpage(int f, int n)
 
        lp = curwp->w_linep;
        while (n--)
-               if ((lp = lforw(lp)) == curbp->b_headp)
+               if ((lp = lforw(lp)) == curbp->b_headp) {
+                       ttbeep();
+                       ewprintf("End of buffer");
                        return(TRUE);
+               }
 
        curwp->w_linep = lp;
        curwp->w_rflag |= WFFULL;
@@ -314,6 +317,10 @@ backpage(int f, int n)
 
        while (n-- && lback(lp) != curbp->b_headp) {
                lp = lback(lp);
+       }
+       if (lp == curwp->w_linep) {
+               ttbeep();
+               ewprintf("Beginning of buffer");
        }
        curwp->w_linep = lp;
        curwp->w_rflag |= WFFULL;