branch: externals/realgud
commit 917a46f3985fb9105665599b8e85120c76d1413e
Author: rocky <[email protected]>
Commit: rocky <[email protected]>
Add realgud:file-remove-ignore to remove a previously ignored entry.
---
realgud/common/file.el | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/realgud/common/file.el b/realgud/common/file.el
index 45fbce2..20fc21c 100644
--- a/realgud/common/file.el
+++ b/realgud/common/file.el
@@ -192,4 +192,19 @@ problem as best as we can determine."
(format "File named `%s' not readable" filename))))
)
+;; FIXME: should allow column number to be passed in.
+(defun realgud:file-remove-ignore(path-to-stop-ignoring)
+ "Remove `path-to-stop-ignoring' from the list of paths which
+are ignored in debugger location tracking. You might do this if you
accidentllay
+added a a path for ignoring by mistake."
+ (interactive
+ (list (completing-read "File name to stop ignoring: "
+ (realgud-cmdbuf-ignore-re-path-list (current-buffer))
+ nil t)))
+ (when (member path-to-stop-ignoring (realgud-cmdbuf-ignore-re-file-list
(current-buffer)))
+ (realgud-cmdbuf-info-ignore-re-path-list=
+ (delete path-to-stop-ignoring (realgud-cmdbuf-ignore-re-file-list
(current-buffer)))))
+ )
+
+
(provide-me "realgud-")
