[nongnu] elpa/annotate 3b0bc40a4f 347/372: - improved docstrings;

[ELPA Syncer]

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))