diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index e420a4ccca..0c131d7929 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1348,13 +1348,14 @@ project-switch-commands
   :version "28.1"
   :group 'project
   :package-version '(project . "0.6.0")
-  :type '(repeat
-          (list
-           (symbol :tag "Command")
-           (string :tag "Label")
-           (choice :tag "Key to press"
-            (const :tag "Infer from the keymap" nil)
-            (character :tag "Explicit key")))))
+  :type '(choice (symbol :tag "Command")
+                 (repeat
+                 (list
+                  (symbol :tag "Command")
+                  (string :tag "Label")
+                  (choice :tag "Key to press"
+                    (const :tag "Infer from the keymap" nil)
+                    (character :tag "Explicit key"))))))
 
 (defcustom project-switch-use-entire-map nil
   "Make `project-switch-project' use entire `project-prefix-map'.
@@ -1393,39 +1394,45 @@ project-switch-project
 When called in a program, it will use the project corresponding
 to directory DIR."
   (interactive (list (project-prompt-project-dir)))
-  (let* ((commands-menu
-          (mapcar
-           (lambda (row)
-             (if (characterp (car row))
-                 ;; Deprecated format.
-                 ;; XXX: Add a warning about it?
-                 (reverse row)
-               row))
-           project-switch-commands))
-         (commands-map
-          (let ((temp-map (make-sparse-keymap)))
-            (set-keymap-parent temp-map project-prefix-map)
-            (dolist (row commands-menu temp-map)
-              (when-let ((cmd (nth 0 row))
-                         (keychar (nth 2 row)))
-                (define-key temp-map (vector keychar) cmd)))))
-         command)
-    (while (not command)
-      (let* ((overriding-local-map commands-map)
-             (choice (read-key-sequence (project--keymap-prompt))))
-        (when (setq command (lookup-key commands-map choice))
-          (unless (or project-switch-use-entire-map
-                      (assq command commands-menu))
-            ;; TODO: Add some hint to the prompt, like "key not
-            ;; recognized" or something.
-            (setq command nil)))
-        (let ((global-command (lookup-key (current-global-map) choice)))
-          (when (memq global-command
-                      '(keyboard-quit keyboard-escape-quit))
-            (call-interactively global-command)))))
-    (let ((default-directory dir)
-          (project-current-inhibit-prompt t))
-      (call-interactively command))))
+  (let ((command (if (symbolp project-switch-commands)
+                     project-switch-commands
+                   (let* ((commands-menu
+                           (mapcar
+                            (lambda (row)
+                              (if (characterp (car row))
+                                  ;; Deprecated format.
+                                  ;; XXX: Add a warning about it?
+                                  (reverse row)
+                                row))
+                            project-switch-commands))
+                          (commands-map
+                           (let ((temp-map (make-sparse-keymap)))
+                             (set-keymap-parent temp-map project-prefix-map)
+                             (dolist (row commands-menu temp-map)
+                               (when-let ((cmd (nth 0 row))
+                                          (keychar (nth 2 row)))
+                                 (define-key temp-map (vector keychar) cmd)))))
+                          (command (when (= 1 (length commands-menu))
+                                     ;; pick first command when only have one choice
+                                     ;; otherwise prompt commands
+                                     (caar commands-menu))))
+                     (while (not command)
+                       (let* ((overriding-local-map commands-map)
+                              (choice (read-key-sequence (project--keymap-prompt))))
+                         (when (setq command (lookup-key commands-map choice))
+                           (unless (or project-switch-use-entire-map
+                                       (assq command commands-menu))
+                             ;; TODO: Add some hint to the prompt, like "key not
+                             ;; recognized" or something.
+                             (setq command nil)))
+                         (let ((global-command (lookup-key (current-global-map) choice)))
+                           (when (memq global-command
+                                       '(keyboard-quit keyboard-escape-quit))
+                             (call-interactively global-command)))))
+                     command)))
+        (default-directory dir)
+        (project-current-inhibit-prompt t))
+    (call-interactively command)))
 
 (provide 'project)
 ;;; project.el ends here