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

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

[nongnu] elpa/annotate 55e318b172 124/372: - fixed reference to a non-ex


From: ELPA Syncer
Subject: [nongnu] elpa/annotate 55e318b172 124/372: - fixed reference to a non-existent variable in the procedure that
Date: Fri, 4 Feb 2022 16:58:29 -0500 (EST)

branch: elpa/annotate
commit 55e318b1726631e4b8b9e3dcea9e7e07be2685a3
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>

    - fixed reference  to a  non-existent variable  in the  procedure that
      load the metadata (old format only).
    - given more  meaningful name to  two variables in the  procedure that
      load the metadata.
---
 annotate.el | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/annotate.el b/annotate.el
index 170d966018..77912aba9e 100644
--- a/annotate.el
+++ b/annotate.el
@@ -917,7 +917,7 @@ essentially what you get from:
           (let ((start              (annotate-beginning-of-annotation 
annotation))
                 (end                (annotate-ending-of-annotation    
annotation))
                 (annotation-string  (annotate-annotation-string       
annotation)))
-            (annotate-create-annotation start end text)))))
+            (annotate-create-annotation start end annotation-string)))))
     (set-buffer-modified-p modified-p)
     (font-lock-fontify-buffer)
     (if annotate-use-messages
@@ -952,11 +952,14 @@ essentially what you get from:
         (annotations
          (save-excursion
            (dolist (annotation annotations)
-             (let ((start  (annotate-beginning-of-annotation annotation))
-                   (end    (annotate-ending-of-annotation    annotation))
-                   (text   (annotate-annotation-string       annotation))
-                   (note   (annotate-annotated-text          annotation)))
-               (annotate-create-annotation start end text note))))))
+             (let ((start             (annotate-beginning-of-annotation 
annotation))
+                   (end               (annotate-ending-of-annotation    
annotation))
+                   (annotation-string (annotate-annotation-string       
annotation))
+                   (annotated-text    (annotate-annotated-text          
annotation)))
+               (annotate-create-annotation start
+                                           end
+                                           annotion-string
+                                           annotated-text))))))
         (set-buffer-modified-p modified-p)
         (font-lock-fontify-buffer)
         (when annotate-use-messages



reply via email to

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