From d02b684303c31cee99500e41a3865e2018a3f56b Mon Sep 17 00:00:00 2001 From: Pablo Stafforini Date: Sun, 31 Mar 2024 08:52:11 -0300 Subject: [PATCH 1/2] Replace lax-plist-get with plist-get --- read-aloud.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/read-aloud.el b/read-aloud.el index 4a800a9..b0a7f12 100644 --- a/read-aloud.el +++ b/read-aloud.el @@ -92,11 +92,11 @@ But he's just as dead as if he were wrong.")) ))) (defun read-aloud--cmd () - (or (plist-get (lax-plist-get read-aloud-engines read-aloud-engine) 'cmd) + (or (plist-get (plist-get read-aloud-engines read-aloud-engine) 'cmd) (user-error "Failed to get the default TTS engine")) ) (defun read-aloud--args () - (plist-get (lax-plist-get read-aloud-engines read-aloud-engine) 'args)) + (plist-get (plist-get read-aloud-engines read-aloud-engine) 'args)) (defun read-aloud--valid-str-p (str) (and str (not (equal "" (string-trim str))))) @@ -173,7 +173,7 @@ arbitual string like 'buffer', 'word' or 'selection'." (kill-process read-aloud--c-pr) ;; if a tts engine has a separate step to switch itself off, use it - (let ((c (plist-get (lax-plist-get read-aloud-engines read-aloud-engine) 'kill))) + (let ((c (plist-get (plist-get read-aloud-engines read-aloud-engine) 'kill))) (when c (start-process-shell-command "read-aloud-kill" read-aloud--logbufname c))) From 64c948c75e65398576e414e58262852745977527 Mon Sep 17 00:00:00 2001 From: Pablo Stafforini Date: Sun, 31 Mar 2024 10:32:54 -0300 Subject: [PATCH 2/2] Supply missing predicate --- read-aloud.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/read-aloud.el b/read-aloud.el index b0a7f12..a45004f 100644 --- a/read-aloud.el +++ b/read-aloud.el @@ -92,11 +92,11 @@ But he's just as dead as if he were wrong.")) ))) (defun read-aloud--cmd () - (or (plist-get (plist-get read-aloud-engines read-aloud-engine) 'cmd) + (or (plist-get (plist-get read-aloud-engines read-aloud-engine 'equal) 'cmd) (user-error "Failed to get the default TTS engine")) ) (defun read-aloud--args () - (plist-get (plist-get read-aloud-engines read-aloud-engine) 'args)) + (plist-get (plist-get read-aloud-engines read-aloud-engine 'equal) 'args)) (defun read-aloud--valid-str-p (str) (and str (not (equal "" (string-trim str))))) @@ -173,7 +173,7 @@ arbitual string like 'buffer', 'word' or 'selection'." (kill-process read-aloud--c-pr) ;; if a tts engine has a separate step to switch itself off, use it - (let ((c (plist-get (plist-get read-aloud-engines read-aloud-engine) 'kill))) + (let ((c (plist-get (plist-get read-aloud-engines read-aloud-engine 'equal) 'kill))) (when c (start-process-shell-command "read-aloud-kill" read-aloud--logbufname c)))