Fix gdb history

This commit is contained in:
Alexander Rosenberg 2024-01-30 12:37:19 -08:00
parent 882f2a12e3
commit 6eb4964b98
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730

View File

@ -509,11 +509,7 @@ visual states."
(defun my/project-gdb (project command-line) (defun my/project-gdb (project command-line)
"Run gdb in the project root" "Run gdb in the project root"
(interactive (let* ((project (project-current t)) (interactive (let* ((project (project-current t))
(default-directory (project-root project)) (default-directory (project-root project)))
(gud-gdb-history
(if my/project-gdb-command
(cons my/project-gdb-command gud-gdb-history)
gud-gdb-history)))
(list project (gud-query-cmdline 'gdb)))) (list project (gud-query-cmdline 'gdb))))
(let ((default-directory (project-root project))) (let ((default-directory (project-root project)))
(gdb command-line))) (gdb command-line)))