]> git.eshelyaron.com Git - emacs.git/commitdiff
Add debug property to macros in files-tests.el
authorMichael Albinus <michael.albinus@gmx.de>
Thu, 25 Jan 2018 16:21:05 +0000 (17:21 +0100)
committerMichael Albinus <michael.albinus@gmx.de>
Thu, 25 Jan 2018 16:21:05 +0000 (17:21 +0100)
* test/lisp/files-tests.el (files-tests--with-temp-file)
(files-tests--with-temp-dir): Give them the `debug' property.

test/lisp/files-tests.el

index 4738a50b4348a77f3ee7431eee7f32c618116661..c4c82077016516040b537d9ace365c07bf9634e8 100644 (file)
@@ -282,7 +282,7 @@ be $HOME."
          (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
@@ -290,7 +290,7 @@ be $HOME."
        (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