[elpa] externals/gnugo 6c99d78 251/357: [gnugo int] Add abstraction: gnugo--no-worries

[Stefan Monnier]

branch: externals/gnugo
commit 6c99d78cd86f058e936c26bdc9e5ee8d65158a87
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>

    [gnugo int] Add abstraction: gnugo--no-worries
    
    * packages/gnugo/gnugo.el (gnugo--no-worries): New defsubst.
    (gnugo--q/ue): Use ‘gnugo--no-worries’.
---
 gnugo.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gnugo.el b/gnugo.el
index 7fdfaaf..24adb49 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -421,9 +421,12 @@ status of the command.  See also `gnugo-query'."
     (prog1 (substring (process-get proc :srs) 0 -2)
       (process-put proc :srs ""))))
 
+(defsubst gnugo--no-worries (string)
+  (= ?= (aref string 0)))
+
 (defun gnugo--q/ue (fmt &rest args)
   (let ((ans (apply 'gnugo--q fmt args)))
-    (unless (= ?= (aref ans 0))
+    (unless (gnugo--no-worries ans)
       (user-error "%s" ans))
     (substring ans 2)))