diff options
author | Zhu Zihao <[email protected]> | 2021-06-25 13:25:05 +0800 |
---|---|---|
committer | Leo Prikler <[email protected]> | 2021-07-09 15:08:04 +0200 |
commit | d0ccdd707d42e978eeeb55612398c92889e3ebb1 (patch) | |
tree | 153dbf5a1b87968e9b5201707d01bd6027cbf6f0 /gnu/packages/patches/emacs-telega-patch-server-functions.patch | |
parent | 37861f6c293d7ed1033050b2b0597885ba65186f (diff) |
gnu: Add emacs-telega-server.
* gnu/packages/emacs-xyz.scm (emacs-telega-server): New variable.
* gnu/packages/patches/emacs-telega-path-placeholder.patch: New file.
* gnu/package/patches/emacs-telega-patch-server-functions.patch: Remove stale patch.
* gnu/local.mk (dist_patch_DATA): Update accordingly.
Signed-off-by: Leo Prikler <[email protected]>
Diffstat (limited to 'gnu/packages/patches/emacs-telega-patch-server-functions.patch')
-rw-r--r-- | gnu/packages/patches/emacs-telega-patch-server-functions.patch | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/gnu/packages/patches/emacs-telega-patch-server-functions.patch b/gnu/packages/patches/emacs-telega-patch-server-functions.patch deleted file mode 100644 index e3d49278d0..0000000000 --- a/gnu/packages/patches/emacs-telega-patch-server-functions.patch +++ /dev/null @@ -1,31 +0,0 @@ -Remove interactive build for telega-server, as it fails on Guix. -Modify the `telega-server--find-bin' function to only use the version -of telega-server installed by Guix. - -Created by Brett Gilio <[email protected]> - ---- a/telega-server.el -+++ b/telega-server.el -@@ -113,7 +113,6 @@ If already deferring, then just executes the BODY." - If BUILD-FLAGS is specified, then rebuild server without any - queries using this flags for building, could be empty string. - Otherwise query user about building flags." -- (interactive) - (telega-test-env 'quiet) - (when (or build-flags - (y-or-n-p "Build `telega-server'? ")) -@@ -137,11 +136,8 @@ Otherwise query user about building flags." - (defun telega-server--find-bin () - "Find telega-server executable. - Raise error if not found." -- (let ((exec-path (cons telega-directory exec-path))) -- (or (executable-find "telega-server") -- (progn (telega-server-build) -- (executable-find "telega-server")) -- (error "`telega-server' not found in exec-path")))) -+ (or (executable-find "telega-server") -+ (error "`telega-server' not found in exec-path"))) - - (defun telega-server-version () - "Return telega-server version." - |