Mercurial > hg > xemacs-beta

comparison tests/automated/test-harness.el @ 1720:58c2d4f889be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-09-27 15:18:59 by adrian] xemacs-21.5: test-harness.el emergency fix -------------------- ChangeLog entries follow: -------------------- tests/ChangeLog addition: 2003-09-27 Adrian Aichner <adrian@xemacs.org> * automated/test-harness.el: Syntax emergency fix.
author adrian
date Sat, 27 Sep 2003 15:19:02 +0000
parents d9c4b6e360d8
children c04bc2b126ef
comparison
equal deleted inserted replaced
1719:d9c4b6e360d8 1720:58c2d4f889be
365 (fmakunbound 'Ignore-Ebola) 365 (fmakunbound 'Ignore-Ebola)
366 (fmakunbound 'Int-to-Marker) 366 (fmakunbound 'Int-to-Marker)
367 (and noninteractive 367 (and noninteractive
368 (message "%s" (buffer-substring-no-properties 368 (message "%s" (buffer-substring-no-properties
369 nil nil "*Test-Log*")))))) 369 nil nil "*Test-Log*"))))))
370 )))
371 370
372 (defvar test-harness-results-point-max nil) 371 (defvar test-harness-results-point-max nil)
373 (defmacro displaying-emacs-test-results (&rest body) 372 (defmacro displaying-emacs-test-results (&rest body)
374 `(let ((test-harness-results-point-max test-harness-results-point-max)) 373 `(let ((test-harness-results-point-max test-harness-results-point-max))
375 ;; Log the file name. 374 ;; Log the file name.