From a795774d3219c9a681356149ce8e46a6854a503e Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 7 May 2011 22:03:56 +0000 Subject: Set `show-trailing-whitespace' to nil when running tests. Ignore-this: 29d39397a5e43d31b9855e75e38430ab darcs-hash:20110507220356-00fcc-3d492593405908a1fec3be631241abb4268e6dcf --- test.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'test.el') diff --git a/test.el b/test.el index f76f6cc..5a5d9ec 100644 --- a/test.el +++ b/test.el @@ -37,9 +37,7 @@ Four arguments: the paredit command, the text of the buffer (let ((before (car example))) (dolist (expected (cdr example)) (with-temp-buffer - (scheme-mode) - (set (make-local-variable 'indent-tabs-mode) nil) - (set (make-local-variable 'comment-column) 40) + (paredit-test-buffer-setup) (insert before) (goto-char (point-min)) (if (search-forward "_" nil t) @@ -60,6 +58,12 @@ Four arguments: the paredit command, the text of the buffer (paredit-test-failed command before (buffer-string) expected))) (setq before expected))))) +(defun paredit-test-buffer-setup () + (scheme-mode) + (set (make-local-variable 'indent-tabs-mode) nil) + (set (make-local-variable 'comment-column) 40) + (set (make-local-variable 'show-trailing-whitespace) nil)) + (paredit-do-commands (spec keys command examples) nil ;string case ;; `paredit-backslash' has a funny example. -- cgit v1.2.1