* src/lisp.h (XSAVE_POINTER, XSAVE_INTEGER): Change to allow extraction

[bpt/emacs.git] / src / dired.c

diff --git a/src/dired.c b/src/dired.c
index 8483721..3dca9d2 100644 (file)
--- a/src/dired.c
+++ b/src/dired.c
@@ -78,7 +78,7 @@ directory_files_internal_w32_unwind (Lisp_Object arg)
 static Lisp_Object
 directory_files_internal_unwind (Lisp_Object dh)
 {
-  DIR *d = XSAVE_POINTER (dh);
+  DIR *d = XSAVE_POINTER (dh, 0);
   block_input ();
   closedir (d);
   unblock_input ();