[elpa] externals/dape c780c6f1e2 013/123: Fix crash when % is present in log and expression breakpoints

[ELPA Syncer]

branch: externals/dape
commit c780c6f1e2572df350f0229b76cd065d9cf0942c
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>

    Fix crash when % is present in log and expression breakpoints
---
 dape.el | 29 ++++++++++++++++++++---------
 1 file changed, 20 insertions(+), 9 deletions(-)

diff --git a/dape.el b/dape.el
index edcb6d5bf5..cb4c00e8ce 100644
--- a/dape.el
+++ b/dape.el
@@ -414,10 +414,11 @@ The hook is run with one argument, the compilation 
buffer."
                (zerop seq))
            (setq dape--seq-event seq)
            (dape-handle-event process
-                               (intern (plist-get object :event))
-                               (plist-get object :body)))
+                              (intern (plist-get object :event))
+                              (plist-get object :body)))
           (t (dape--debug 'error
-              "Event ignored due to request seq %d < last handled seq %d" seq 
dape--seq-event)))))
+                          "Event ignored due to request seq %d < last handled 
seq %d"
+                          seq dape--seq-event)))))
       (_ (dape--debug 'info "No handler for type %s" type)))))
 
 (defun dape--process-filter (process string)
@@ -1629,14 +1630,24 @@ Watched symbols are displayed in *dape-info* buffer.
                 (list
                  (widget-convert
                   'file-link
-                  :format (concat "%t%[%v%]"
-                                  (overlay-get overlay 'after-string)
-                                  "\n")
+                  :format (concat
+                           "%t%[%v%]"
+                           ;; % needs to be escaped for widget-format but
+                           ;; this is not without issue as widget-format
+                           ;; inserts the escaped % without 'face.
+                           (when-let ((after-string
+                                       (overlay-get overlay
+                                                    'after-string)))
+                             (save-match-data
+                               (replace-regexp-in-string "%"
+                                                         "%%"
+                                                         after-string)))
+                           "\n")
                   :action (lambda (&rest _)
                             (dape--goto-source `(:source (:path ,file)
-                                                  :line ,line)
-                                                nil
-                                                t))
+                                                         :line ,line)
+                                               nil
+                                               t))
                   :tag (if (member (cons file line)
                                    current-stopped-files-lines)
                            (propertize "→ " 'face 'bold)