branch: externals/dape
commit 4883c5ae6b32e78523435cb69ff66d4a1d07d65a
Author: Daniel Pettersson <dan...@dpettersson.net>
Commit: Daniel Pettersson <dan...@dpettersson.net>
Fix prefix-* path substation for prefix that does not match
---
dape.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/dape.el b/dape.el
index 72edd69956..3edb16e5e1 100644
--- a/dape.el
+++ b/dape.el
@@ -882,10 +882,11 @@ See `dape-configs' symbols prefix-local prefix-remote."
(mapping (pcase format
('local (cons prefix-remote prefix-local))
('remote (cons prefix-local prefix-remote))
- (_ (error "Unknown format")))))
- (concat
- (cdr mapping)
- (string-remove-prefix (car mapping) path))
+ (_ (error "Unknown format"))))
+ ;; Substitute prefix if there is an match or nil
+ ((string-prefix-p (car mapping) path)))
+ (concat (cdr mapping)
+ (string-remove-prefix (car mapping) path))
path))
(defun dape--capable-p (conn of)
