fix name of debug port argument

Author: Jeff Parsons

dap-codelldb.el

@@ -58,7 +58,7 @@ With prefix, FORCED to redownload the extension."
  (lambda (conf)
    (let ((debug-port (dap--find-available-port)))
      (plist-put conf :program-to-start (format "%s --port %s" dap-codelldb-debug-program debug-port))
-     (plist-put conf :debugServer debug-port))
+     (plist-put conf :debugPort debug-port))
    (plist-put conf :host "localhost")
    (plist-put conf :type "lldb")
    (plist-put conf :cargo "")

dap-mode.el

@@ -1182,7 +1182,7 @@ ADAPTER-ID the id of the adapter."
 
 (defun dap--create-session (launch-args)
   "Create debug session from LAUNCH-ARGS."
-  (-let* (((&plist :host :dap-server-path :name session-name :debugServer port) launch-args)
+  (-let* (((&plist :host :dap-server-path :name session-name :debugPort port) launch-args)
           (proc (if dap-server-path
                     (make-process
                      :name session-name

dap-python.el

@@ -204,7 +204,7 @@ strings, for the sake of launch.json feature parity."
                             (if module (concat " -m " (shell-quote-argument module)) "")
                             (if program (shell-quote-argument program) "")
                             (if (not (string-empty-p python-args)) (concat " " python-args) "")))
-         (plist-put conf :debugServer debug-port)
+         (plist-put conf :debugPort debug-port)
          (plist-put conf :port debug-port)
          (plist-put conf :hostName host)
          (plist-put conf :host host)))
@@ -244,7 +244,7 @@ strings, for the sake of launch.json feature parity."
                  (host (or (plist-get connect :host) "localhost"))
                  (port (or (plist-get connect :port) 5678)))
             (plist-put conf :host host)
-            (plist-put conf :debugServer port)
+            (plist-put conf :debugPort port)
             (cl-remf conf :connect)))))
 
       (_ (error "`dap-python': unknown :debugger type %S" debugger)))