branch: elpa/systemd
commit 59ce8ad415635c88889425ab2f02ba38e6a92a54
Author: Mark Oteiza <[email protected]>
Commit: Mark Oteiza <[email protected]>
simpler while test
---
systemd.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/systemd.el b/systemd.el
index b0e8039..af3e459 100644
--- a/systemd.el
+++ b/systemd.el
@@ -150,14 +150,12 @@
"Return the value of the key whose value begins at position START.
Lines ending in a backslash are concatenated with the next
according to systemd.unit(5)."
- (let ((break "\\\\\n")
- end)
+ (let (end)
(save-excursion
- (while (progn (goto-char (1- (line-end-position)))
- (looking-at break))
+ (while (= (char-before (line-end-position)) ?\\)
(forward-line))
(setq end (line-end-position))
- (replace-regexp-in-string break " " (buffer-substring start end)))))
+ (replace-regexp-in-string "\\\\\n" " " (buffer-substring start end)))))
(defun systemd-doc-find ()
"Find the value of the unit's “Documentation” keys.
