~ruther/guix-local: emacs: Fix 'guix-build-log-phase-toggle-all'.

7c786db4fba0c19d46d23f978af3d0131f985f15 — Alex Kost 10 years ago 88908d5

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.

patch browse .tar.gz

1 files changed, 3 insertions(+), 2 deletions(-)

M emacs/guix-build-log.el

M emacs/guix-build-log.el => emacs/guix-build-log.el +3 -2

@@ 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)))))