branch: elpa/annotate
commit 9fc6d7a8397a1f88fbcaf70ef7c783460e15ed66
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>
- allowed deleting of annotations for info files.
---
annotate.el | 22 +++++++++++++++-------
1 file changed, 15 insertions(+), 7 deletions(-)
diff --git a/annotate.el b/annotate.el
index 7774f5f019..396921c80e 100644
--- a/annotate.el
+++ b/annotate.el
@@ -1888,13 +1888,21 @@ See the variable: `annotate-use-echo-area'."
This function is not part of the public API."
(annotate-ensure-annotation (annotation)
(save-excursion
- (let ((chain (annotate-find-chain annotation)))
- (dolist (single-element chain)
- (goto-char (overlay-end single-element))
- (move-end-of-line nil)
- (annotate--remove-annotation-property (overlay-start single-element)
- (overlay-end single-element))
- (delete-overlay single-element))))))
+ (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)))
+ (dolist (single-element chain)
+ (goto-char (overlay-end single-element))
+ (move-end-of-line nil)
+ (when info-format-p
+ (read-only-mode -1))
+ (annotate--remove-annotation-property (overlay-start
single-element)
+ (overlay-end
single-element))
+ (delete-overlay single-element)
+ (when info-format-p
+ (read-only-mode 1))))))))
(defun annotate--delete-annotation-chain-ring (annotation-ring)
"Delete overlay of `annotation-ring' from a buffer.
