org: Show planning type in prompt when editing

* lisp/org.el (org-add-planning-info): Call `org-read-date' with either
  DEADLINE or SCHEDULED as value for the prompt.

lisp/org.el

@@ -13051,7 +13051,11 @@ WHAT entry will also be removed."
 			 (org-read-date-analyze
 			  time default-time (decode-time default-time)))
 		;; If necessary, get the time from the user
-		(or time (org-read-date nil 'to-time nil nil
+		(or time (org-read-date nil 'to-time nil
+					(cl-case what
+					  (deadline "DEADLINE")
+					  (scheduled "SCHEDULED")
+					  (otherwise nil))
 					default-time default-input)))))
 
       (org-with-wide-buffer