Add back-to-indentation. (M-m)

Move the dot to the first non-whitespace character on the current line.
from Henri Kemppainen . ok theo

1 files changed, 14 insertions, 1 deletions

diff --git a/usr.bin/mg/random.c b/usr.bin/mg/random.c
index 8a34e495e75..a3c3893e4b5 100644
--- a/usr.bin/mg/random.c
+++ b/usr.bin/mg/random.c
@@ -1,4 +1,4 @@
-/*	$OpenBSD: random.c,v 1.26 2008/09/15 16:13:35 kjell Exp $	*/
+/*	$OpenBSD: random.c,v 1.27 2011/01/17 03:12:06 kjell Exp $	*/
 
 /* This file is in the public domain. */
 
@@ -440,3 +440,16 @@ space_to_tabstop(int f, int n)
 	return (linsert((n << 3) - (curwp->w_doto & 7), ' '));
 }
 #endif /* NOTAB */
+
+/*
+ * Move the dot to the first non-whitespace character of the current line.
+ */
+int
+backtoindent(int f, int n)
+{
+	gotobol(FFRAND, 1);
+	while (curwp->w_doto < llength(curwp->w_dotp) &&
+	    (isspace(lgetc(curwp->w_dotp, curwp->w_doto))))
+		++curwp->w_doto;
+	return (TRUE);
+}