Mercurial > hg > xemacs-beta

diff tests/automated/test-harness.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 3ecd8885ac67
children 6728e641994e
line wrap: on
line diff
--- a/tests/automated/test-harness.el	Mon Aug 13 11:36:20 2007 +0200
+++ b/tests/automated/test-harness.el	Mon Aug 13 11:37:21 2007 +0200
@@ -236,8 +236,11 @@
       (princ "\nTesting Compiled Lisp\n\n")
       (let (code)
 	(condition-case error-info
-	    (setq code (let ((byte-compile-warnings nil))
-			 (byte-compile (test-harness-read-from-buffer inbuffer))))
+	    (setq code
+		  ;; our lisp code is often intentionally dubious,
+		  ;; so throw away _all_ the byte compiler warnings.
+		  (letf (((symbol-function 'byte-compile-warn) 'ignore))
+		    (byte-compile (test-harness-read-from-buffer inbuffer))))
 	  (error
 	   (princ (format "Unexpected error %S while byte-compiling code\n"
 			  error-info))))