diff options
| author | Juri Linkov <juri@linkov.net> | 2018-04-28 23:20:33 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2018-04-28 23:20:33 +0300 |
| commit | f4eeb0f5ae448db0f064f6305ab0bc0c3bae071a (patch) | |
| tree | 375951dfe30538df200f6650b9bf178aadd3c803 /test/lisp/filenotify-tests.el | |
| parent | 0b3bc05d15c32ffa134347896c9b9fcff89225ab (diff) | |
| download | emacs-f4eeb0f5ae448db0f064f6305ab0bc0c3bae071a.tar.gz | |
* lisp/subr.el (dotimes): Deprecate RESULT field. (Bug#16206)
* doc/lispref/control.texi (Iteration):
* doc/misc/cl.texi (Iteration): Document deprecation of its use.
* doc/lispintro/emacs-lisp-intro.texi (dotimes):
* test/src/emacs-module-tests.el (multiply-string):
* test/lisp/filenotify-tests.el (file-notify-test07-many-events):
Place RESULT field after the form.
Diffstat (limited to 'test/lisp/filenotify-tests.el')
| -rw-r--r-- | test/lisp/filenotify-tests.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/test/lisp/filenotify-tests.el b/test/lisp/filenotify-tests.el index 219fa746119..56403f43092 100644 --- a/test/lisp/filenotify-tests.el +++ b/test/lisp/filenotify-tests.el @@ -1129,14 +1129,16 @@ delivered." ;; w32notify fires both `deleted' and `renamed' events. ((string-equal (file-notify--test-library) "w32notify") (let (r) - (dotimes (_i n r) - (setq r (append '(deleted renamed) r))))) + (dotimes (_i n) + (setq r (append '(deleted renamed) r))) + r)) ;; cygwin fires `changed' and `deleted' events, sometimes ;; in random order. ((eq system-type 'cygwin) (let (r) - (dotimes (_i n (cons :random r)) - (setq r (append '(changed deleted) r))))) + (dotimes (_i n) + (setq r (append '(changed deleted) r))) + (cons :random r))) (t (make-list n 'renamed))) (let ((source-file-list source-file-list) (target-file-list target-file-list)) |