branch: externals/dape
commit 5aa2a3bd7585893498b95a726ebca9b83a2bd74f
Author: Daniel Pettersson <dan...@dpettersson.net>
Commit: Daniel Pettersson <dan...@dpettersson.net>
Fix support for Emacs built without fringe.c symbols
---
dape.el | 24 ++++++++++++++----------
1 file changed, 14 insertions(+), 10 deletions(-)
diff --git a/dape.el b/dape.el
index d92288d493..b27cb1fb00 100644
--- a/dape.el
+++ b/dape.el
@@ -3213,16 +3213,20 @@ If SKIP-DISPLAY is non nil refrain from going to
selected stack."
ov))
(add-to-list 'fringe-indicator-alist
'(overlay-arrow . dape-right-triangle))
- ;; Set face of overlay-arrow before updating marker
- (set-fringe-bitmap-face
- 'dape-right-triangle
- (cond
- ((cl-find-if (lambda (ov) (overlay-get ov :breakpoint))
- (dape--breakpoints-at-point))
- 'dape-breakpoint-face)
- (deepest-p 'default)
- ('shadow)))
- (move-marker dape--overlay-arrow-position
(line-beginning-position)))))))))
+ ;; If Emacs is compiled without without windows
+ ;; `set-fringe-bitmap-face' is not defined
+ (when (window-system)
+ ;; Set face of overlay-arrow before updating marker
+ (set-fringe-bitmap-face
+ 'dape-right-triangle
+ (cond
+ ((cl-find-if (lambda (ov) (overlay-get ov :breakpoint))
+ (dape--breakpoints-at-point))
+ 'dape-breakpoint-face)
+ (deepest-p 'default)
+ ('shadow))))
+ (move-marker dape--overlay-arrow-position
+ (line-beginning-position)))))))))
;;; Info Buffers
