[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/greader 2551f19540 4/4: greader.el: more work on last c
From: |
ELPA Syncer |
Subject: |
[elpa] externals/greader 2551f19540 4/4: greader.el: more work on last commit. |
Date: |
Fri, 5 Jul 2024 03:58:32 -0400 (EDT) |
branch: externals/greader
commit 2551f195401a5014389b96a83e2122b93822127a
Author: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
Commit: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
greader.el: more work on last commit.
---
greader.el | 15 +++++++++------
1 file changed, 9 insertions(+), 6 deletions(-)
diff --git a/greader.el b/greader.el
index 2513e30162..018ee6c34b 100644
--- a/greader.el
+++ b/greader.el
@@ -384,9 +384,14 @@ This only happens if the variables `greader-start-region'
and
(if arg
(funcall greader-current-backend command arg)
(funcall greader-current-backend command)))
-(defvar
- greader-backend-filename
+(defun greader-load-backends ()
+ "Load backends taken from `greader-backends'."
+ (mapcar #'require greader-backends))
+(greader-load-backends)
+
+(defvar greader-backend-filename
(greader-call-backend 'executable))
+
(defvar greader-backend `(,greader-backend-filename))
(defvar greader-orig-buffer nil)
(defvar greader-dissoc-buffer "*Dissociation*")
@@ -426,10 +431,8 @@ available backends."
(message "Current back-end is %s"
(get greader-current-backend 'greader-backend-name)))
-(defun greader-load-backends ()
- "Load backends taken from `greader-backends'."
- (mapcar #'require greader-backends))
-(greader-load-backends)
+
+
(defun greader-read-asynchronous (txt)
"Read the text given in TXT."
(if greader-debug