From 7c786db4fba0c19d46d23f978af3d0131f985f15 Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Wed, 30 Sep 2015 20:55:00 +0300
Subject: [PATCH] emacs: Fix 'guix-build-log-phase-toggle-all'.
* emacs/guix-build-log.el (guix-build-log-phase-toggle-all): Handle the
case when there are no characters before the first phase:
'guix-build-log-next-phase' moves to the second phase in such a case,
and the toggling is not done properly, so use 're-search-forward'
instead.
---
emacs/guix-build-log.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/emacs/guix-build-log.el b/emacs/guix-build-log.el
index 9ce30bd1dda..c0855b284c7 100644
--- a/emacs/guix-build-log.el
+++ b/emacs/guix-build-log.el
@@ -256,8 +256,9 @@ Return nil, if there is no phase start before the current point."
;; Some phases may be hidden, and some shown. Whether to hide or to
;; show them, it is determined by the state of the first phase here.
(goto-char (point-min))
- (guix-build-log-next-phase)
- (let ((fun (guix-build-log-phase-toggle-function)))
+ (let ((fun (save-excursion
+ (re-search-forward guix-build-log-phase-start-regexp nil t)
+ (guix-build-log-phase-toggle-function))))
(while (re-search-forward guix-build-log-phase-start-regexp nil t)
(funcall fun)))))
--
GitLab