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
