mg(1) dired warpdot

[Mark Lumsden]

The mg dired commands:

dired-flag-file-deleted
dired-backup-unflag
dired-unflag

behave more like emacs when the cursor stays on the first character of
the file name. ok? 

mark

Index: dired.c
===================================================================
RCS file: /cvs/src/usr.bin/mg/dired.c,v
retrieving revision 1.54
diff -u -p -r1.54 dired.c
--- dired.c     28 May 2013 18:35:10 -0000      1.54
+++ dired.c     28 May 2013 19:09:15 -0000
@@ -275,8 +275,7 @@ d_del(int f, int n)
                        curwp->w_dotp = lforw(curwp->w_dotp);
        }
        curwp->w_rflag |= WFEDIT | WFMOVE;
-       curwp->w_doto = 0;
-       return (TRUE);
+       return (d_warpdot(curwp->w_dotp, &curwp->w_doto));
 }
 
 /* ARGSUSED */
@@ -292,8 +291,7 @@ d_undel(int f, int n)
                        curwp->w_dotp = lforw(curwp->w_dotp);
        }
        curwp->w_rflag |= WFEDIT | WFMOVE;
-       curwp->w_doto = 0;
-       return (TRUE);
+       return (d_warpdot(curwp->w_dotp, &curwp->w_doto));
 }
 
 /* ARGSUSED */
@@ -308,9 +306,8 @@ d_undelbak(int f, int n)
                if (lback(curwp->w_dotp) != curbp->b_headp)
                        curwp->w_dotp = lback(curwp->w_dotp);
        }
-       curwp->w_doto = 0;
        curwp->w_rflag |= WFEDIT | WFMOVE;
-       return (TRUE);
+       return (d_warpdot(curwp->w_dotp, &curwp->w_doto));
 }
 
 /* ARGSUSED */