emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/greader eb3f98d7f5 07/17: New variable `greader-process


From: ELPA Syncer
Subject: [elpa] externals/greader eb3f98d7f5 07/17: New variable `greader-process-directory'.
Date: Wed, 18 Dec 2024 18:59:10 -0500 (EST)

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

    New variable `greader-process-directory'.
    
    This variable determines where (directory) the back-end should run.
---
 greader.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/greader.el b/greader.el
index 362115fc3c..7b1aebbb74 100644
--- a/greader.el
+++ b/greader.el
@@ -62,6 +62,10 @@
 (defvar greader-backend-action #'greader--default-action)
 (defvar greader-status 'paused)
 (defvar greader-synth-process nil)
+(defvar-local greader-process-directory (package-desc-dir
+                                        (package-get-descriptor
+                                         'greader))
+  "The directory where execution should start.")
 
 
 (define-obsolete-variable-alias 'greader-before-get-sentence-functions
@@ -445,7 +449,7 @@ available backends."
       (setq txt (greader-dehyphenate txt)))
   (let* ((txt (concat " " txt))
          (backend (append greader-backend `(,txt)))
-        (default-directory (package-desc-dir (package-get-descriptor 
'greader))))
+        (default-directory greader-process-directory))
     (and (stringp txt)
         (setq-local greader-synth-process (make-process
                                            :name "greader-backend"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]