mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-28 01:00:52 -07:00
Code Issues Projects Releases Wiki Activity

Allow gud-mi to edit two executables with the same name

Browse source 
* lisp/progmodes/gud.el (gud-common-init): Allow editing two
executables with the same name (bug#22772).
This commit is contained in:
Lars Ingebrigtsen 2021-09-03 12:44:18 +02:00
parent 0cabf8bc36
commit 6dad558a9d
1 changed files with 19 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/progmodes/gud.el
View file

@ -2780,14 +2780,24 @@ Commands:
(expand-file-name file-subst)
file-subst)))
(filepart (and file-word (concat "-" (file-name-nondirectory file))))
(existing-buffer (get-buffer (concat "*gud" filepart "*"))))
(buffer-name (concat "*gud" filepart "*"))
(existing-buffer (get-buffer buffer-name))
error)
(when (and existing-buffer
(get-buffer-process existing-buffer))
(if (equal (buffer-local-value 'default-directory existing-buffer)
default-directory)
;; We're already debugging this executable.
(setq error t)
;; Open a new window to debug an executable with the same name.
(setq buffer-name (generate-new-buffer-name buffer-name))))
(select-window
(display-buffer
(get-buffer-create (concat "*gud" filepart "*"))
(get-buffer-create buffer-name)
'((display-buffer-reuse-window
display-buffer-in-previous-window
display-buffer-same-window display-buffer-pop-up-window))))
(when (and existing-buffer (get-buffer-process existing-buffer))
(when error
(error "This program is already being debugged"))
;; Set the dir, in case the buffer already existed with a different dir.
(setq default-directory dir)
@ -2809,8 +2819,12 @@ Commands:
(setq w (cdr w)))
;; Tramp has already been loaded if we are here.
(if w (setcar w (setq file (file-local-name file)))))
(apply #'make-comint (concat "gud" filepart) program nil
(if massage-args (funcall massage-args file args) args))
(apply #'make-comint-in-buffer
(concat "gud" filepart) (current-buffer)
program nil
(if massage-args
(funcall massage-args file args)
args))
;; Since comint clobbered the mode, we don't set it until now.
(gud-mode)
(setq-local gud-target-name