gnu/packages/patches/emacs-telega-patch-server-functions.patch

   1 Remove interactive build for telega-server, as it fails on Guix.
   2 Modify the `telega-server--find-bin' function to only use the version
   3 of telega-server installed by Guix.
   4
   5 Created by Brett Gilio <brettg@gnu.org>
   6
   7 --- a/telega-server.el
   8 +++ b/telega-server.el
   9 @@ -113,7 +113,6 @@ If already deferring, then just executes the BODY."
  10  If BUILD-FLAGS is specified, then rebuild server without any
  11  queries using this flags for building, could be empty string.
  12  Otherwise query user about building flags."
  13 -  (interactive)
  14    (telega-test-env 'quiet)
  15    (when (or build-flags
  16              (y-or-n-p "Build `telega-server'? "))
  17 @@ -137,11 +136,8 @@ Otherwise query user about building flags."
  18  (defun telega-server--find-bin ()
  19    "Find telega-server executable.
  20  Raise error if not found."
  21 -  (let ((exec-path (cons telega-directory exec-path)))
  22 -    (or (executable-find "telega-server")
  23 -        (progn (telega-server-build)
  24 -               (executable-find "telega-server"))
  25 -        (error "`telega-server' not found in exec-path"))))
  26 +  (or (executable-find "telega-server")
  27 +      (error "`telega-server' not found in exec-path")))
  28
  29  (defun telega-server-version ()
  30    "Return telega-server version."
  31