emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/annotate 7cf7f46be0 191/372: - removed duplicated function


From: ELPA Syncer
Subject: [nongnu] elpa/annotate 7cf7f46be0 191/372: - removed duplicated function.
Date: Fri, 4 Feb 2022 16:58:58 -0500 (EST)

branch: elpa/annotate
commit 7cf7f46be00aab968f819807ded61b9d84e5b499
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>

    - removed duplicated function.
---
 annotate.el | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

diff --git a/annotate.el b/annotate.el
index 3ecd88ed5e..8bea4f8941 100644
--- a/annotate.el
+++ b/annotate.el
@@ -1446,19 +1446,7 @@ NOTE this assumes that annotations never overlaps"
   (let ((all-annotations (annotate-annotations-at pos)))
     (if all-annotations
         (annotate-previous-annotation-starts (overlay-ends (cl-first 
all-annotations)))
-      (previous-annotation-ends pos)))))
-
-(defun annotate-next-annotation-starts (point)
-  "Return the previous annotation that starts after point or nil if no 
annotation
-was found"
-  ;; NOTE this assumes that annotations never overlaps
-  (let ((all-annotations (annotate-annotations-at point)))
-    (if all-annotations
-        (annotate-next-annotation-starts (overlay-end (cl-first 
all-annotations)))
-      (let* ((overlay-pos             (next-overlay-change point))
-             (all-annotations-at-pos  (annotate-annotations-at overlay-pos))
-             (annotation              (cl-first all-annotations-at-pos)))
-        annotation))))
+      (next-annotation-starts pos)))))
 
 (defun annotate-symbol-strictly-at-point ()
  "Return non nil if a symbol is at char immediately following



reply via email to

[Prev in Thread] Current Thread [Next in Thread]