diff options
| author | Dmitry Dzhus | 2009-07-29 09:14:13 +0000 |
|---|---|---|
| committer | Dmitry Dzhus | 2009-07-29 09:14:13 +0000 |
| commit | 592ccae03620b69be8f3d09951ce6837968032c6 (patch) | |
| tree | f194d9711b5b5d7d516f25f7b224aeb8fcfaf8ca | |
| parent | 5a9e3ab796d960502a156e1cbc3d33f9b5bdc8e0 (diff) | |
| download | emacs-592ccae03620b69be8f3d09951ce6837968032c6.tar.gz emacs-592ccae03620b69be8f3d09951ce6837968032c6.zip | |
(gdb-goto-breakpoint): Use full path when setting breakpoints.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/gdb-mi.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 65ec9048b3f..a8e120333f7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2009-07-29 Dmitry Dzhus <dima@sphinx.net.ru> | ||
| 2 | |||
| 3 | * progmodes/gdb-mi.el (gdb-goto-breakpoint): Use full path when | ||
| 4 | setting breakpoints. | ||
| 5 | |||
| 1 | 2009-07-29 Jay Belanger <jay.p.belanger@gmail.com> | 6 | 2009-07-29 Jay Belanger <jay.p.belanger@gmail.com> |
| 2 | 7 | ||
| 3 | * calc/calc.el (calc-mode-map): Add keybinding for | 8 | * calc/calc.el (calc-mode-map): Add keybinding for |
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 4ffcb07ce93..c4a6134257f 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el | |||
| @@ -2494,7 +2494,7 @@ breakpoints buffer." | |||
| 2494 | (let ((breakpoint (get-text-property (point) 'gdb-breakpoint))) | 2494 | (let ((breakpoint (get-text-property (point) 'gdb-breakpoint))) |
| 2495 | (if breakpoint | 2495 | (if breakpoint |
| 2496 | (let ((bptno (gdb-get-field breakpoint 'number)) | 2496 | (let ((bptno (gdb-get-field breakpoint 'number)) |
| 2497 | (file (gdb-get-field breakpoint 'file)) | 2497 | (file (gdb-get-field breakpoint 'fullname)) |
| 2498 | (line (gdb-get-field breakpoint 'line))) | 2498 | (line (gdb-get-field breakpoint 'line))) |
| 2499 | (save-selected-window | 2499 | (save-selected-window |
| 2500 | (let* ((buffer (find-file-noselect | 2500 | (let* ((buffer (find-file-noselect |