branch: elpa/annotate
commit 3b0bc40a4f403f19ca9ac20e20acb23aea5cff2e
Author: cage <cage@localhost>
Commit: cage <cage@invalid>
- improved docstrings;
- removed useless variable.
---
annotate.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/annotate.el b/annotate.el
index 3df082c70f..c47cda10ab 100644
--- a/annotate.el
+++ b/annotate.el
@@ -1995,9 +1995,7 @@ This function is not part of the public API."
(save-excursion
(with-current-buffer (current-buffer)
(let* ((chain (annotate-find-chain annotation))
- (filename (annotate-actual-file-name))
- (info-format-p (eq (annotate-guess-file-format filename)
- :info)))
+ (filename (annotate-actual-file-name)))
(dolist (single-element chain)
(goto-char (overlay-end single-element))
(move-end-of-line nil)
@@ -2008,6 +2006,8 @@ This function is not part of the public API."
(defun annotate--delete-annotation-chain-ring (annotation-ring)
"Delete overlay of `annotation-ring' from a buffer.
+A ring is a single element of an annotation chain.
+
This function is not part of the public API."
(annotate-ensure-annotation (annotation-ring)
(save-excursion
@@ -2018,7 +2018,8 @@ This function is not part of the public API."
(delete-overlay annotation-ring))))
(defun annotate-delete-chain-element (annotation)
- "Delete a ring from a chain where `annotation' belong."
+ "Delete a ring (a ring is a single element of an annotation chain.)
+from a chain where `annotation' belong."
(annotate-ensure-annotation (annotation)
(let* ((chain (annotate-find-chain annotation))
(first-of-chain-p (annotate-chain-first-p annotation))
