branch: elpa/annotate
commit d19834f627717b39d93ff47a2def70a331a2ec88
Author: Bastian <ba...@bastibe.de>
Commit: Bastian <ba...@bastibe.de>
fix compile warnings
---
annotate.el | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/annotate.el b/annotate.el
index 21cd0a5f6e..a370cecddf 100644
--- a/annotate.el
+++ b/annotate.el
@@ -5,7 +5,7 @@
;; Maintainer: Bastian Bechtold
;; URL: https://github.com/bastibe/annotate.el
;; Created: 2015-06-10
-;; Version: 0.2.0
+;; Version: 0.2.1
;; This file is NOT part of GNU Emacs.
@@ -41,12 +41,11 @@
;; the right margin. Annotations are saved whenever the file is saved.
;;; Code:
-(require 'cl)
;;;###autoload
(defgroup annotate nil
"Annotate files without changing them."
- :version "0.2.0"
+ :version "0.2.1"
:group 'text)
;;;###autoload
@@ -108,10 +107,10 @@
(interactive)
(let ((overlay (car (overlays-at (point)))))
(cond ((and (overlayp overlay) (overlay-get overlay 'annotation))
- (annotate-change-annotation (point)))
- (t
- (destructuring-bind (start end) (annotate-bounds)
- (annotate-create-annotation start end))))))
+ (annotate-change-annotation (point)))
+ (t
+ (let ((bounds (annotate-bounds)))
+ (annotate-create-annotation (car bounds) (cadr bounds)))))))
;;;###autoload
(defun annotate-save-annotations ()
@@ -392,9 +391,9 @@ annotation, and can be conveniently viewed in diff-mode."
(with-temp-buffer
(when (file-exists-p annotate-file)
(insert-file-contents annotate-file))
- (end-of-buffer)
+ (goto-char (point-max))
(cond ((= (point) 1) nil)
- (t (beginning-of-buffer)
+ (t (goto-char (point-min))
(read (current-buffer))))))
(defun annotate-dump-annotation-data (data)
