Fix table insertion to agree with tests

Additional minor changes:

- Indicate the default case in the alignment prompt.
- Advance point to a location suitable to begin text entry in table.
- Check location of point in tests.

Author: jrblevin

markdown-mode.el

@@ -9358,7 +9358,7 @@ rows and columns and the column alignment."
   (interactive)
   (let* ((rows (or rows (string-to-number (read-string "Row size: "))))
          (columns (or columns (string-to-number (read-string "Column size: "))))
-         (align (or align (read-string "Alignment ([l]eft, [r]ight, [c]enter): ")))
+         (align (or align (read-string "Alignment ([l]eft, [r]ight, [c]enter, or RET for default): ")))
          (align (cond ((equal align "l") ":--")
                       ((equal align "r") "--:")
                       ((equal align "c") ":-:")
@@ -9367,7 +9367,7 @@ rows and columns and the column alignment."
          (indent (make-string (current-column) ?\ ))
          (line (concat
                 (apply 'concat indent "|"
-                       (make-list columns "  |")) "\n"))
+                       (make-list columns "   |")) "\n"))
          (hline (apply 'concat indent "|"
                        (make-list columns (concat align "|")))))
     (if (string-match
@@ -9380,7 +9380,7 @@ rows and columns and the column alignment."
     (if (> rows 1)
         (progn
           (end-of-line 1) (insert (concat "\n" hline)) (goto-char pos)))
-    (markdown-table-align)))
+    (markdown-table-forward-cell)))
 
 
 ;;; ElDoc Support

tests/markdown-test.el

@@ -5475,7 +5475,8 @@ See GH-288."
 |:--|:--|
 |   |   |
 |   |   |
-"))))
+"))
+   (should (= (point) 3))))
 
 (ert-deftest test-markdown-insertion/create-table-with-right-align ()
   "Insert table with right column alignment."
@@ -5486,7 +5487,8 @@ See GH-288."
 |--:|--:|
 |   |   |
 |   |   |
-"))))
+"))
+   (should (= (point) 3))))
 
 (ert-deftest test-markdown-insertion/create-table-with-center-align ()
   "Insert table with center column alignment."
@@ -5497,7 +5499,8 @@ See GH-288."
 |:-:|:-:|
 |   |   |
 |   |   |
-"))))
+"))
+   (should (= (point) 3))))
 
 (ert-deftest test-markdown-insertion/create-table-with-default-align ()
   "Insert table with default column alignment."
@@ -5508,20 +5511,8 @@ See GH-288."
 |---|---|
 |   |   |
 |   |   |
-"))))
-
-;;; Create table with center column alignment
-
-(ert-deftest test-markdown-insertion/create-table-with-center-align ()
-  "Insert table with center align."
-  (markdown-test-string ""
-                        (execute-kbd-macro (read-kbd-macro "M-x markdown-insert-table RET 2 RET 3 RET c RET"))
-                        (should (string-equal (buffer-string) "|   |   |
-|---|---|
-|   |   |
-|   |   |
-"))))
-
+"))
+   (should (= (point) 3))))
 
 ;;; gfm-mode tests: