X-Git-Url: https://git.cworth.org/git?a=blobdiff_plain;f=test%2Ftest-lib.el;h=4de5b292c6071cb54e3dcf89e4c06fb64288fa27;hb=2ca941163da06aed564dab1990fb333fd7457ec2;hp=044c2da46639226a5f5acb1fcaf81ec21566117f;hpb=96baa2231882e9a9025797b1f9945ba6b2751dd4;p=notmuch diff --git a/test/test-lib.el b/test/test-lib.el index 044c2da4..4de5b292 100644 --- a/test/test-lib.el +++ b/test/test-lib.el @@ -1,4 +1,4 @@ -;; test-lib.el --- auxiliary stuff for Notmuch Emacs tests. +;;; test-lib.el --- auxiliary stuff for Notmuch Emacs tests ;; ;; Copyright © Carl Worth ;; Copyright © David Edmondson @@ -20,6 +20,8 @@ ;; ;; Authors: Dmitry Kurochkin +;;; Code: + (require 'cl-lib) ;; Ensure that the dynamic variables that are defined by this library @@ -97,14 +99,6 @@ running, quit if it terminated." (add-hook 'notmuch-hello-refresh-hook (lambda () (cl-incf notmuch-hello-refresh-hook-counter))) -(defadvice notmuch-search-process-filter (around pessimal activate disable) - "Feed notmuch-search-process-filter one character at a time." - (let ((string (ad-get-arg 1))) - (cl-loop for char across string - do (progn - (ad-set-arg 1 (char-to-string char)) - ad-do-it)))) - (defun notmuch-test-mark-links () "Enclose links in the current buffer with << and >>." ;; Links are often created by jit-lock functions