1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| | From 52b9a0f91094888b9dd55d3d5a50cb44887ff3d3 Mon Sep 17 00:00:00 2001
From: Andrew Tropin <andrew@trop.in>
Date: Mon, 6 May 2024 10:41:53 +0200
Subject: [PATCH] Add path placeholder for telega-server-command and etc-file.
---
telega-core.el | 3 +--
telega-customize.el | 2 +-
2 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/telega-core.el b/telega-core.el
index f798b40..2db0d64 100644
--- a/telega-core.el
+++ b/telega-core.el
@@ -45,8 +45,7 @@
(defun telega-etc-file (filename)
"Return absolute path to FILENAME from etc/ directory in telega.
Use FILENAME as is if resulting file does not exist."
- (let ((abspath (expand-file-name (concat "etc/" filename)
- telega--lib-directory)))
+ (let ((abspath (concat "@TELEGA_SHARE@" "/" filename)))
(if (file-exists-p abspath)
abspath
filename)))
diff --git a/telega-customize.el b/telega-customize.el
index 8393f0f..cb21465 100644
--- a/telega-customize.el
+++ b/telega-customize.el
@@ -678,7 +678,7 @@ In range [1..3]. Use 1."
:prefix "telega-server-"
:group 'telega)
-(defcustom telega-server-command "telega-server"
+(defcustom telega-server-command "@TELEGA_SERVER_BIN@"
"Command to run as telega server.
It should be absolute path or binary file searchable in `exec-path'."
:type 'string
--
2.41.0
|