[elpa] externals/greader faa0d5d94b 21/23: Command `greader-compile-goto-source added.

[ELPA Syncer]

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

    Command `greader-compile-goto-source added.
---
 greader.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/greader.el b/greader.el
index 7bee9f431b..831c740b25 100644
--- a/greader.el
+++ b/greader.el
@@ -1019,7 +1019,15 @@ If `nil', you can not use `greader-compile-at-point'."
     (save-buffer)
     (unless greader-compile-mode
       (greader-compile))))))
+(defun greader-compile-goto-source ()
+  "Visit default dictsource currently used by
+`greader-compile-at-point.'"
 
+  (interactive)
+  (if (string-match "/" greader-compile-default-source)
+      (find-file greader-compile-default-source)
+    (find-file (concat (car greader-compile-dictsource)
+                      greader-espeak-language "_" 
greader-compile-default-source))))
 
 (provide 'greader)
 ;;; greader.el ends here