branch: elpa/annotate
commit 9a9227f154f0529f4bd65269e4b9c748a280b476
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>
- changed function names:
'annotate-move-previous-annotation' ->
'annotate-goto-previous-annotation';
'annotate-move-next-annotation' -> 'annotate-goto-next-annotation'
---
README.org | 4 ++--
annotate.el | 16 ++++++++--------
2 files changed, 10 insertions(+), 10 deletions(-)
diff --git a/README.org b/README.org
index 1345d344d8..64d6a997aa 100644
--- a/README.org
+++ b/README.org
@@ -58,10 +58,10 @@ can take advantage of its packages generated files
management.
- ~annotate-annotation-max-size-not-place-new-line~;
- ~annotate-annotation-position-policy~.
-*** ~C-c ]~ (function annotate-next-annotation)
+*** ~C-c ]~ (function annotate-goto-next-annotation)
Jump to the next annotation.
-*** ~C-c [~ (function annotate-previous-annotation)
+*** ~C-c [~ (function annotate-goto-previous-annotation)
Jump to the previous annotation.
*** ~C-c C-s~ (function annotate-show-annotation-summary)
diff --git a/annotate.el b/annotate.el
index 4fa6bb9041..1b3a7b3350 100644
--- a/annotate.el
+++ b/annotate.el
@@ -72,9 +72,9 @@ See https://github.com/bastibe/annotate.el/ for
documentation."
(define-key annotate-mode-map (kbd "C-c C-s")
'annotate-show-annotation-summary)
-(define-key annotate-mode-map (kbd "C-c ]") 'annotate-move-next-annotation)
+(define-key annotate-mode-map (kbd "C-c ]") 'annotate-goto-next-annotation)
-(define-key annotate-mode-map (kbd "C-c [") 'annotate-move-previous-annotation)
+(define-key annotate-mode-map (kbd "C-c [") 'annotate-goto-previous-annotation)
(defcustom annotate-file (locate-user-emacs-file "annotations" ".annotations")
"File where annotations are stored."
@@ -379,7 +379,7 @@ modified (for example a newline is inserted)."
(create-new-annotation)))
(set-buffer-modified-p t))))
-(cl-defun annotate-move-next-annotation (&key (startingp t))
+(cl-defun annotate-goto-next-annotation (&key (startingp t))
"Move point to the next annotation."
(interactive)
(let ((annotation (annotate-annotation-at (point))))
@@ -391,7 +391,7 @@ modified (for example a newline is inserted)."
(if look-ahead
(progn
(goto-char annotation-last-end)
- (annotate-move-next-annotation :startingp nil))
+ (annotate-goto-next-annotation :startingp nil))
(message "This is the last annotation.")))
(let ((next-annotation (annotate-next-annotation-starts (point))))
(when next-annotation
@@ -399,9 +399,9 @@ modified (for example a newline is inserted)."
(if annotation
(let ((chain-first (annotate-chain-first annotation)))
(goto-char (overlay-start chain-first)))
- (annotate-move-next-annotation :startingp t)))))
+ (annotate-goto-next-annotation :startingp t)))))
-(cl-defun annotate-move-previous-annotation (&key (startingp t))
+(cl-defun annotate-goto-previous-annotation (&key (startingp t))
"Move point to the previous annotation."
(interactive)
(let ((annotation (annotate-annotation-at (point))))
@@ -413,7 +413,7 @@ modified (for example a newline is inserted)."
(if look-behind
(progn
(goto-char (1- annotation-first-start))
- (annotate-move-previous-annotation :startingp nil))
+ (annotate-goto-previous-annotation :startingp nil))
(message "This is the first annotation.")))
(let ((previous-annotation (annotate-previous-annotation-ends
(point))))
(when previous-annotation
@@ -421,7 +421,7 @@ modified (for example a newline is inserted)."
(if annotation
(let ((chain-last (annotate-chain-last annotation)))
(goto-char (overlay-end chain-last)))
- (annotate-move-previous-annotation :startingp t)))))
+ (annotate-goto-previous-annotation :startingp t)))))
(defun annotate-actual-comment-start ()
"String for comment start related to current buffer's major
