# HG changeset patch
# User youngs
# Date 1035467353 0
# Node ID 5de13d96e131ba4e951222cc21d3484e02c5e888
# Parent  332649c64dbc3c4e00c753853a5ba85f7c47f9b0
[xemacs-hg @ 2002-10-24 13:49:07 by youngs]
2002-10-24  Andy Piper  <andy@xemacs.org>

	* dialog.el (make-dialog-box): for general dialogs only
	delete-frame-hook will be run.

diff -r 332649c64dbc -r 5de13d96e131 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Oct 24 13:45:04 2002 +0000
+++ b/lisp/ChangeLog	Thu Oct 24 13:49:13 2002 +0000
@@ -1,3 +1,8 @@
+2002-10-24  Andy Piper  <andy@xemacs.org>
+
+	* dialog.el (make-dialog-box): for general dialogs only
+	delete-frame-hook will be run.
+
 2002-10-10  Jerry James  <james@xemacs.org>
 
 	* autoload.el (generate-file-autoloads-1): Use new print-autoload
diff -r 332649c64dbc -r 5de13d96e131 lisp/dialog.el
--- a/lisp/dialog.el	Thu Oct 24 13:45:04 2002 +0000
+++ b/lisp/dialog.el	Thu Oct 24 13:49:13 2002 +0000
@@ -662,7 +662,9 @@
 				   'internal-make-dialog-box-exit did)
 				  (remove-hook 'delete-dialog-box-hook
 					       ',sym))))
-		       (add-hook 'delete-dialog-box-hook sym)
+		       (if (framep id)
+			   (add-hook 'delete-frame-hook sym)
+			 (add-hook 'delete-dialog-box-hook sym))
 		       (mapc 'disable-frame frames)
 		       (block nil
 			 (while t