diff options
Diffstat (limited to 'test/lisp/emacs-lisp/bytecomp-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index 6fe7f5b571d..86cf2edec8b 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -698,7 +698,7 @@ literals (Bug#20852)." (unless match (error "%s" (buffer-string))) (goto-char (point-min)) - (should (re-search-forward match nil t))) + (should (string-match match (buffer-string)))) ;; And that it's gone now. (with-current-buffer byte-compile-log-buffer (let ((inhibit-read-only t)) @@ -708,7 +708,7 @@ literals (Bug#20852)." ,form)) (with-current-buffer byte-compile-log-buffer (goto-char (point-min)) - (should-not (re-search-forward match nil t))) + (should-not (string-match match (buffer-string)))) ;; Also check that byte compiled forms are identical. (should (equal (byte-compile form) (byte-compile |