[Top][All Lists]

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

03/07: emacs: Fix 'guix-build-log-phase-toggle-all'.

From: Alex Kost
Subject: 03/07: emacs: Fix 'guix-build-log-phase-toggle-all'.
Date: Fri, 09 Oct 2015 13:53:24 +0000

alezost pushed a commit to branch master
in repository guix.

commit 7c786db4fba0c19d46d23f978af3d0131f985f15
Author: Alex Kost <address@hidden>
Date:   Wed Sep 30 20:55:00 2015 +0300

    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'
 emacs/guix-build-log.el |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/emacs/guix-build-log.el b/emacs/guix-build-log.el
index 9ce30bd..c0855b2 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 
     ;; 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)))))

reply via email to

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