debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2025-04-06 23:59:10 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs/tree: call notmuch-hl-line-mode from tree-sentinel

Browse source 
There is a a perceptible gap between when the tree shows up and when
the hl-line is visible, but this is better than the previous state
where the line did not show up at all until the user moved the cursor.
This commit is contained in:
David Bremner 2024-08-10 14:36:24 -03:00
parent 43e90e7caa
commit 41d5e5956e
2 changed files with 2 additions and 6 deletions

2
emacs/notmuch-tree.el
View file

@ -1122,6 +1122,8 @@ object, and with the tree results buffer as the current buffer.")
(unless (= exit-status 0)
(insert (format " (process returned %d)" exit-status)))
(insert "\n"))))
(when (and notmuch-hl-line (= exit-status 0))
(notmuch-hl-line-mode))
(run-hook-with-args 'notmuch-tree-process-exit-functions proc))))))
(defun notmuch-tree-process-filter (proc string)

6
test/T312-emacs-hl-line.sh
View file

@ -20,7 +20,6 @@ test_emacs_expect_t '(let ((notmuch-hl-line t))
(list 1 t)))'
test_begin_subtest "line 1, tree"
test_subtest_known_broken
test_emacs_expect_t '(let ((notmuch-hl-line t))
(notmuch-tree "tag:inbox")
(notmuch-test-wait)
@ -31,7 +30,6 @@ test_emacs_expect_t '(let ((notmuch-hl-line t))
(list 1 t)))'
test_begin_subtest "line 1, unthreaded"
test_subtest_known_broken
test_emacs_expect_t '(let ((notmuch-hl-line t))
(notmuch-tree "tag:inbox")
(notmuch-test-wait)
@ -50,7 +48,6 @@ test_emacs_expect_t '(let ((notmuch-hl-line t))
(notmuch-test-expect-equal (overlay-start hl-line-overlay) 1))'
test_begin_subtest "line 1, tree, refresh"
test_subtest_known_broken
test_emacs_expect_t '(let ((notmuch-hl-line t))
(notmuch-tree "tag:inbox")
(notmuch-test-wait)
@ -63,7 +60,6 @@ test_emacs_expect_t '(let ((notmuch-hl-line t))
(list 1 t)))'
test_begin_subtest "line 1, unthreaded, refresh"
test_subtest_known_broken
test_emacs_expect_t '(let ((notmuch-hl-line t))
(notmuch-tree "tag:inbox")
(notmuch-test-wait)
@ -115,7 +111,6 @@ test_emacs_expect_t '(let ((notmuch-hl-line t))
(line-number-at-pos (overlay-start hl-line-overlay)) 12))'
test_begin_subtest "line 12, tree, refresh"
test_subtest_known_broken
test_emacs_expect_t '(let ((notmuch-hl-line t))
(notmuch-tree "tag:inbox")
(notmuch-test-wait)
@ -127,7 +122,6 @@ test_emacs_expect_t '(let ((notmuch-hl-line t))
(line-number-at-pos (overlay-start hl-line-overlay)) 12))'
test_begin_subtest "line 12, unthreaded, refresh"
test_subtest_known_broken
test_emacs_expect_t '(let ((notmuch-hl-line t))
(notmuch-tree "tag:inbox")
(notmuch-test-wait)