219 |
(if file |
(if file |
220 |
(progn |
(progn |
221 |
(gdb-enqueue-input |
(gdb-enqueue-input |
222 |
(list (concat "list " (file-name-nondirectory file) ":1\n") |
(list (concat gdb-server-prefix "list " |
223 |
|
(file-name-nondirectory file) ":1\n") |
224 |
`(lambda () (gdb-set-gud-minor-mode ,buffer))))))))) |
`(lambda () (gdb-set-gud-minor-mode ,buffer))))))))) |
225 |
|
|
226 |
(defun gdb-ann3 () |
(defun gdb-ann3 () |
2126 |
(eq gud-minor-mode 'gdba))) |
(eq gud-minor-mode 'gdba))) |
2127 |
(condition-case nil |
(condition-case nil |
2128 |
(gdb-enqueue-input |
(gdb-enqueue-input |
2129 |
(list (concat "list " (file-name-nondirectory buffer-file-name) |
(list (concat gdb-server-prefix "list " |
2130 |
|
(file-name-nondirectory buffer-file-name) |
2131 |
":1\n") |
":1\n") |
2132 |
`(lambda () (gdb-set-gud-minor-mode ,(current-buffer))))) |
`(lambda () (gdb-set-gud-minor-mode ,(current-buffer))))) |
2133 |
(error (setq gdb-find-file-unhook t))))) |
(error (setq gdb-find-file-unhook t))))) |