From 7c786db4fba0c19d46d23f978af3d0131f985f15 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Wed, 30 Sep 2015 20:55:00 +0300 Subject: 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(-) (limited to 'emacs') diff --git a/emacs/guix-build-log.el b/emacs/guix-build-log.el index 9ce30bd1dd..c0855b284c 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))))) -- cgit v1.2.3