branch: elpa/annotate
commit 3882a87839e2b9c09d6cc5c67d8491a00c59bb3d
Author: cage <cage@invalid>
Commit: cage <cage@invalid>
- made delay before printing annotations on minibuffer customizable;
- updated README.org.
---
README.org | 4 +++-
annotate.el | 11 ++++++++++-
2 files changed, 13 insertions(+), 2 deletions(-)
diff --git a/README.org b/README.org
index 250960f06e..c461471be0 100644
--- a/README.org
+++ b/README.org
@@ -229,7 +229,8 @@ for a couple of examples.
Moreover if ~annotate-use-echo-area~ and
~annotate-print-annotation-under-cursor~
value *both* non null, placing the cursor over an annotated text region will
print
the annotation's text in the minibuffer prefixed by the value of customizable
variable
-~annotate-print-annotation-under-cursor-prefix~.
+~annotate-print-annotation-under-cursor-prefix~, after a delay (in seconds)
+defined by the variable ~annotate-print-annotation-under-cursor-delay~.
Another alternative way to show annotations is provided by the command:
~annotate-summary-of-file-from-current-pos~.
@@ -242,6 +243,7 @@ buffer) beyond the current cursor position.
- ~annotate-use-echo-area~
- ~annotate-print-annotation-under-cursor~
- ~annotate-print-annotation-under-cursor-prefix~
+ - ~annotate-print-annotation-under-cursor-delay~
- ~annotate-summary-of-file-from-current-pos~.
* Other commands
diff --git a/annotate.el b/annotate.el
index 70ce49413a..49a40b6168 100644
--- a/annotate.el
+++ b/annotate.el
@@ -216,6 +216,13 @@ annotate-use-echo-area must be non nil"
annotate-print-annotation-under-cursor is non nil"
:type 'string)
+(defcustom annotate-print-annotation-under-cursor-delay 0.5
+ "The delay (in seconds) after an annotation id printed in the
+minibuffer, when the pursor is placed over an annotated text.
+
+This variable works only if `annotate-print-annotation-under-cursor' is non
nil"
+ :type 'float)
+
(defcustom annotate-warn-if-hash-mismatch t
"Whether a warning message should be printed if a mismatch
occurs, for an annotated file, between the hash stored in the
@@ -525,7 +532,9 @@ local version (i.e. a different database for each annotated
file"
(defun annotate--maybe-make-timer-print-annotation ()
(when (annotate-print-annotation-under-cursor-p)
(setf annotate-echo-annotation-timer
- (run-with-idle-timer 0.1 t
#'annotate-timer-print-annotation-function))))
+ (run-with-idle-timer annotate-print-annotation-under-cursor-delay
+ t
+ #'annotate-timer-print-annotation-function))))
(defun annotate--maybe-cancel-timer-print-annotation ()
(when (and (annotate-print-annotation-under-cursor-p)
