emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/rt-liberation 6defec3 34/68: * rt-liberation-viewer.el:


From: Yoni Rabkin
Subject: [elpa] externals/rt-liberation 6defec3 34/68: * rt-liberation-viewer.el:
Date: Wed, 16 Dec 2020 12:11:10 -0500 (EST)

branch: externals/rt-liberation
commit 6defec33517e546664635ca5176d8620fb0a23d0
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

    * rt-liberation-viewer.el:
---
 rt-liberation-viewer.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/rt-liberation-viewer.el b/rt-liberation-viewer.el
index 32ea3ce..e1d499b 100644
--- a/rt-liberation-viewer.el
+++ b/rt-liberation-viewer.el
@@ -70,11 +70,12 @@
     (save-excursion
       (setq section-field-end
            (re-search-forward "\n\n" end nil)))
-    (while (looking-at rt-liber-viewer-section-field-regexp)
-      (setq section-field-alist
-           (append section-field-alist
-                   `((,(match-string-no-properties 1) .
-                      ,(match-string-no-properties 2)))))
+    (while (not (looking-at "^\n"))
+      (when (looking-at rt-liber-viewer-section-field-regexp)
+       (setq section-field-alist
+             (append section-field-alist
+                     `((,(match-string-no-properties 1) .
+                        ,(match-string-no-properties 2))))))
       (forward-line))
     section-field-alist))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]