* test/lisp/files-tests.el (files-tests--with-temp-file)
(files-tests--with-temp-dir): Give them the `debug' property.
(advice-remove #',symbol ,function)))))
(defmacro files-tests--with-temp-file (name &rest body)
- (declare (indent 1))
+ (declare (indent 1) (debug (symbolp body)))
(cl-check-type name symbol)
`(let ((,name (make-temp-file "emacs")))
(unwind-protect
(delete-file ,name))))
(defmacro files-tests--with-temp-dir (name &rest body)
- (declare (indent 1))
+ (declare (indent 1) (debug (symbolp body)))
(cl-check-type name symbol)
`(let ((,name (make-temp-file "emacs" t)))
(unwind-protect