From xemacs-m  Fri Sep 26 04:18:41 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id EAA19037
	for <xemacs-beta@xemacs.org>; Fri, 26 Sep 1997 04:18:30 -0500 (CDT)
Received: (from hniksic@localhost)
	by jagor.srce.hr (8.8.7/8.8.6) id LAA24366;
	Fri, 26 Sep 1997 11:18:16 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Re: [PATCH] `directory-files'
References: <kigsousv44w.fsf@jagor.srce.hr>
X-Attribution: Hrvoje
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 26 Sep 1997 11:18:16 +0200
In-Reply-To: Hrvoje Niksic's message of "26 Sep 1997 11:03:11 +0200"
Message-ID: <kiglo0k302v.fsf@jagor.srce.hr>
Lines: 32
X-Mailer: Quassia Gnus v0.10/XEmacs 20.3(beta23) - "Sarajevo"

Hrvoje Niksic <hniksic@srce.hr> writes:
[...]

A tiny addition: the opaque_ptr should be freed, I think:

1997-09-26  Hrvoje Niksic  <hniksic@srce.hr>

	(close_directory_fd): Free the opaque pointer.

--- src/dired.c.orig	Fri Sep 26 11:10:56 1997
+++ src/dired.c	Fri Sep 26 11:11:03 1997
@@ -40,10 +40,11 @@
 Lisp_Object Qfile_attributes;
 
 static Lisp_Object
-close_directory_fd (Lisp_Object ptr)
+close_directory_fd (Lisp_Object unwind_obj)
 {
-  DIR *d = (DIR *)get_opaque_ptr (ptr);
+  DIR *d = (DIR *)get_opaque_ptr (unwind_obj);
   closedir (d);
+  free_opaque_ptr (unwind_obj);
   return Qnil;
 }
 


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
"Silence!" cries Freydag. "I did not call thee in for a consultation!" 
"They are my innards! I will not have them misread by a poseur!"

