X-Git-Url: https://git.cworth.org/git?a=blobdiff_plain;f=test%2Ftest-lib.el;h=044c2da46639226a5f5acb1fcaf81ec21566117f;hb=96baa2231882e9a9025797b1f9945ba6b2751dd4;hp=e9e7c3798770e53c33fe7020133199b80e3d9982;hpb=73b8f0b8d71af395667022395b6d6bb692c3aaf2;p=notmuch diff --git a/test/test-lib.el b/test/test-lib.el index e9e7c379..044c2da4 100644 --- a/test/test-lib.el +++ b/test/test-lib.el @@ -34,23 +34,6 @@ ;; `read' call. (setq read-file-name-function (lambda (&rest _) (read))) -;; Work around a bug in emacs 23.1 and emacs 23.2 which prevents -;; noninteractive (kill-emacs) from emacsclient. -(when (and (= emacs-major-version 23) (< emacs-minor-version 3)) - (defadvice kill-emacs (before disable-yes-or-no-p activate) - "Disable yes-or-no-p before executing kill-emacs" - (defun yes-or-no-p (prompt) t))) - -;; Emacs bug #2930: -;; 23.0.92; `accept-process-output' and `sleep-for' do not run sentinels -;; seems to be present in Emacs 23.1. -;; Running `list-processes' after `accept-process-output' seems to work -;; around this problem. -(when (and (= emacs-major-version 23) (= emacs-minor-version 1)) - (defadvice accept-process-output (after run-list-processes activate) - "run list-processes after executing accept-process-output" - (list-processes))) - (defun notmuch-test-wait () "Wait for process completion." (while (get-buffer-process (current-buffer)) @@ -153,7 +136,7 @@ running, quit if it terminated." "Output:\t" (prin1-to-string output) "\n")) (defun notmuch-test-expect-equal (output expected) - "Compare OUTPUT with EXPECTED. Report any discrepencies." + "Compare OUTPUT with EXPECTED. Report any discrepancies." (cond ((equal output expected) t)