app-emacs/systemd-mode/files/systemd-mode-1.6-directive-txt-files.patch


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

--- a/systemd.el
+++ b/systemd.el
@@ -89,7 +89,7 @@
       (insert-file-contents
        (let ((f "unit-directives.txt"))
          (if (null load-file-name) f
-           (expand-file-name f (file-name-directory load-file-name)))))
+           (expand-file-name f (file-name-directory "@SITEETC@")))))
       (split-string (buffer-string))))
   "Configuration directives for systemd.")
 
@@ -105,7 +105,7 @@
       (insert-file-contents
        (let ((f "network-directives.txt"))
          (if (null load-file-name) f
-           (expand-file-name f (file-name-directory load-file-name)))))
+           (expand-file-name f (file-name-directory "@SITEETC@")))))
       (split-string (buffer-string))))
   "Network configuration directives for systemd.")
 
@@ -119,7 +119,7 @@
       (insert-file-contents
        (let ((f "nspawn-directives.txt"))
          (if (null load-file-name) f
-           (expand-file-name f (file-name-directory load-file-name)))))
+           (expand-file-name f (file-name-directory "@SITEETC@")))))
       (split-string (buffer-string))))
   "Namespace container configuration directives for systemd.")