org-table: Fix checks for impossible row moves

* lisp/org-table.el (org-table-move-row): Fix checks.

lisp/org-table.el

@@ -1533,8 +1533,10 @@ non-nil, the one above is used."
 	 (dline2 (+ dline1 (if up -1 1)))
 	 (tonew (if up 0 2))
 	 txt hline2p)
+    (when (and up (= (point-min) (line-beginning-position)))
+      (user-error "Cannot move row further"))
     (beginning-of-line tonew)
-    (unless (org-at-table-p)
+    (when (or (and (not up) (eobp)) (not (org-at-table-p)))
       (goto-char pos)
       (user-error "Cannot move row further"))
     (setq hline2p (looking-at org-table-hline-regexp))