Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2101105e
Commit
2101105e
authored
Jun 26, 2004
by
Nick Roberts
Browse files
(gdb-toggle-breakpoint)
(gdb-goto-breakpoint): Fix breakage.
parent
817819c2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
10 deletions
+11
-10
lisp/progmodes/gdb-ui.el
lisp/progmodes/gdb-ui.el
+11
-10
No files found.
lisp/progmodes/gdb-ui.el
View file @
2101105e
...
...
@@ -29,10 +29,9 @@
;; GDB through the GUD buffer in the usual way, but there are also further
;; buffers which control the execution and describe the state of your program.
;; It separates the input/output of your program from that of GDB, if
;; required, and displays expressions and their current values in their own
;; buffers. It also uses features of Emacs 21 such as the display margin for
;; breakpoints, and the toolbar (see the GDB Graphical Interface section in
;; the Emacs info manual).
;; required, and watches expressions in the speedbar. It also uses features of
;; Emacs 21 such as the fringe/display margin for breakpoints, and the toolbar
;; (see the GDB Graphical Interface section in the Emacs info manual).
;; Start the debugger with M-x gdba.
...
...
@@ -1207,8 +1206,8 @@ static char *magick[] = {
(
list
(
concat
(
if
(
eq
?y
(
char-after
(
match-beginning
2
)))
gdb-server-prefix
"disable "
gdb-server-prefix
"enable "
)
(
concat
gdb-server-prefix
"disable "
)
(
concat
gdb-server-prefix
"enable "
)
)
(
match-string
1
)
"\n"
)
'ignore
)))))
...
...
@@ -1226,10 +1225,12 @@ static char *magick[] = {
(
interactive
)
(
save-excursion
(
beginning-of-line
1
)
(
if
(
with-current-buffer
gud-comint-buffer
(
eq
gud-minor-mode
'gdbmi
))
(
looking-at
"[0-9]*\\s-*\\S-*\\s-*\\S-*\\s-*.\\s-*\\S-*\\s-*\\(\\S-*\\):\\([0-9]+\\)"
)
(
re-search-forward
"in\\s-+\\S-+\\s-+at\\s-+"
nil
t
)
(
looking-at
"\\(\\S-*\\):\\([0-9]+\\)"
)))
(
if
(
with-current-buffer
gud-comint-buffer
(
eq
gud-minor-mode
'gdba
))
(
progn
(
re-search-forward
"in\\s-+\\S-+\\s-+at\\s-+"
nil
t
)
(
looking-at
"\\(\\S-*\\):\\([0-9]+\\)"
))
(
looking-at
"[0-9]*\\s-*\\S-*\\s-*\\S-*\\s-*.\\s-*\\S-*\\s-*\\(\\S-*\\):\\([0-9]+\\)"
)))
(
if
(
match-string
2
)
(
let
((
line
(
match-string
2
))
(
file
(
match-string
1
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment