[nongnu] elpa/annotate 7962e9fafd 1/3: - fixed integration of annotation when the buffer was modified to

[ELPA Syncer]

branch: elpa/annotate
commit 7962e9fafded163ea2957cff038e739481a0f18d
Author: cage <cage@invalid>
Commit: cage <cage@invalid>

    - fixed  integration of  annotation when  the buffer  was modified  to
      accommodate the annotations text;
    - fixed typo.
---
 annotate.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/annotate.el b/annotate.el
index 49a40b6168..4384686ada 100644
--- a/annotate.el
+++ b/annotate.el
@@ -138,7 +138,7 @@ that Emacs passes to the diff program."
   "Marker that is written before every integrated annotation."
   :type 'string)
 
-(defcustom annotate-integrate-higlight ?~
+(defcustom annotate-integrate-highlight ?~
   "Character used to underline an annotated text."
   :type 'character)
 
@@ -942,8 +942,8 @@ annotate-actual-comment-end."
                                        export-buffer
                                      (current-buffer))))
       (with-current-buffer output-buffer
+        (erase-buffer)
         (when as-new-buffer
-          (erase-buffer)
           (funcall parent-buffer-mode))
         (cl-loop
          for buffer-line in buffer-lines
@@ -966,8 +966,8 @@ annotate-actual-comment-end."
                              (annotated-lines (annotate--split-lines 
(overlay-get overlay
                                                                                
   'annotation)))
                              (ov-length       (- relative-end relative-start))
-                             (underline       (make-string (1- ov-length)
-                                                           
annotate-integrate-higlight)))
+                             (underline       (make-string ov-length
+                                                           
annotate-integrate-highlight)))
                         (insert (annotate-wrap-in-comment padding underline) 
"\n")
                         (when (annotate-chain-last-p overlay)
                           (when use-annotation-marker