branch: externals/dape
commit 353e9e105580635b73ff8bf48d2d38d043ba160f
Author: Daniel Pettersson <dan...@dpettersson.net>
Commit: Daniel Pettersson <dan...@dpettersson.net>
Add missing docstring
---
dape.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/dape.el b/dape.el
index eecff1f746..34e5b0e68e 100644
--- a/dape.el
+++ b/dape.el
@@ -2916,8 +2916,8 @@ of memory read."
"edit break hit condition"
#'dape-mouse-breakpoint-hits))
(_
(overlay-put ov 'before-string
- (dape--icon dape-breakpoint-margin-string 'breakpoint
- (or disabled-face
'dape-breakpoint-face)))))
+ (dape--indicator dape-breakpoint-margin-string
'breakpoint
+ (or disabled-face
'dape-breakpoint-face)))))
(setf overlay ov)))))
(dape--mouse-command dape-mouse-breakpoint-toggle
@@ -2980,7 +2980,9 @@ Used as an hook on `find-file-hook'."
(defvar dape--original-margin nil
"Bookkeeping for buffer margin width.")
-(defun dape--icon (string bitmap face)
+(defun dape--indicator (string bitmap face)
+ "Return indicator string in margin (STRING) or fringe (BITMAP).
+The indicator is `propertize'd with with FACE."
(if (and (window-system)
(not (eql (frame-parameter (selected-frame) 'left-fringe) 0)))
(propertize " " 'display `(left-fringe ,bitmap ,face))
