branch: externals/dape
commit cc2188da0dff8582fd78b45630d4b475a583c4f2
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Improve relative file name in `dape-info' buffer
---
dape.el | 10 ++--------
1 file changed, 2 insertions(+), 8 deletions(-)
diff --git a/dape.el b/dape.el
index f5de1cd30b..b706e74590 100644
--- a/dape.el
+++ b/dape.el
@@ -657,15 +657,9 @@ If EXTENDED end of line is after newline."
(defun dape--format-file-line (file line)
"Formats FILE and LINE to string."
- (concat (string-trim-left
- file
- (regexp-quote
- (expand-file-name
- (or (plist-get dape--config :cwd)
- ""))))
+ (concat (file-relative-name file (plist-get dape--config :cwd))
(when line
- (format ":%d"
- line))))
+ (format ":%d" line))))
(defun dape--kill-processes ()
"Kill all Dape related process."
