[elpa] externals/greader dbfa7c2b05 04/10: greader.el:

[ELPA Syncer]

branch: externals/greader
commit dbfa7c2b057d549bc39489b1617260463c343200
Author: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
Commit: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>

    greader.el:
    Added functions `greader-set-register' and `greader-jump-to-register'.
---
 greader.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/greader.el b/greader.el
index 91a8825416..6a0dbd0569 100644
--- a/greader.el
+++ b/greader.el
@@ -198,6 +198,16 @@ For example, if you specify a function that gets a 
sentence, you should specify
          (greader-toggle-timer))))
   (greader-load-backends))
 ;;;code
+(defun greader-set-register ()
+  "sets the `?G' to the point in current buffer."
+  (when greader-use-prefix
+    (point-to-register ?G)))
+
+(defun greader-jump-to-register ()
+  "jumps to register `?G' if `greader-use-prefix' is enabled."
+  (when greader-use-prefix
+    (jump-to-register ?G)))
+
 (defun greader--get-backends ()
   "returns actual available back-ends, as a list of strings."
   (let (b)
@@ -347,9 +357,9 @@ For example, if you specify a function that gets a 
sentence, you should specify
   if `greader-use-marker' is t and if you pass a prefix to this function, 
point jumps at the last position you called greader-read."
   (interactive "P")
   (when goto-marker
-    (jump-to-register ?G))
+    (greader-jump-to-register))
   (when (called-interactively-p 'any)
-    (point-to-register ?G))
+    (greader-set-register))
   (if (and greader-tired-flag (= greader-elapsed-time 0))
       (progn
        (if greader-tired-timer