branch: externals/realgud
commit f4c4ccd95d85051807634d1649ef37f22b3dda69
Author: rocky <ro...@gnu.org>
Commit: rocky <ro...@gnu.org>
Fix improper breakpoint file-callback function parameters
---
realgud/common/track.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/realgud/common/track.el b/realgud/common/track.el
index 0250700..f158d84 100644
--- a/realgud/common/track.el
+++ b/realgud/common/track.el
@@ -535,11 +535,14 @@ Otherwise return nil. CMD-MARK is set in the realgud-loc
object created.
(line-str (match-string line-group text))
(source-str (and text-group (match-string
text-group text)))
(lineno (string-to-number (or line-str "1")))
+ (directory
+ (cond ((boundp 'starting-directory)
starting-directory)
+ (t nil)))
)
(cond (callback-loc-fn
(setq found-func (funcall callback-loc-fn text
filename lineno
source-str
- ignore-re-file-list
cmd-mark))
+ cmd-mark directory))
(setq loc-pat-list nil))
('t
