Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
fbc232f4
Commit
fbc232f4
authored
Feb 22, 2007
by
J.D. Smith
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(idlwave-shell-set-bp): Fix setting condition/count on disabled BPs.
parent
ecd3d557
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
14 deletions
+13
-14
lisp/progmodes/idlw-shell.el
lisp/progmodes/idlw-shell.el
+13
-14
No files found.
lisp/progmodes/idlw-shell.el
View file @
fbc232f4
...
...
@@ -3545,22 +3545,21 @@ specified. If NO-SHOW is non-nil, don't do any updating."
(
idlwave-shell-module-source-query
(
idlwave-shell-bp-get
bp
'module
)
(
idlwave-shell-bp-get
bp
'type
))
(
let*
((
arg
(
idlwave-shell-bp-get
bp
'count
))
(
key
(
cond
((
not
(
and
arg
(
numberp
arg
)))
""
)
((
=
arg
1
)
",/once"
)
((
>
arg
1
)
(
format
",after=%d"
arg
))))
((
count
(
idlwave-shell-bp-get
bp
'count
))
(
condition
(
idlwave-shell-bp-get
bp
'condition
))
(
disabled
(
idlwave-shell-bp-get
bp
'disabled
))
(
key
(
concat
key
(
if
condition
(
concat
",CONDITION=\""
condition
"\""
))))
;; IDL can't simultaneously set a condition and disable a
;; breakpoint, but it does keep both of these when resetting
;; the same BP. We assume DISABLE and CONDITION are not set
;; together for a newly created breakpoint.
(
key
(
concat
key
(
if
(
and
disabled
(
not
condition
))
",/DISABLE"
)))
(
key
(
concat
(
if
(
and
count
(
numberp
count
))
(
cond
((
=
count
1
)
",/once"
)
((
>
count
1
)
(
format
",after=%d"
count
))))
(
if
condition
(
concat
",CONDITION=\""
condition
"\""
))
;; IDL can't simultaneously set a condition/count
;; and disable a breakpoint, but it does keep both
;; of these when resetting the same BP. We assume
;; DISABLE and CONDITION/COUNT are not set
;; together for a newly created breakpoint.
(
if
(
and
disabled
(
not
condition
)
(
not
count
))
",/DISABLE"
)))
(
line
(
idlwave-shell-bp-get
bp
'line
)))
(
idlwave-shell-send-command
(
concat
"breakpoint,'"
...
...
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