Mercurial > hg > xemacs-beta

changeset 1066:5de13d96e131

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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.
author youngs
date Thu, 24 Oct 2002 13:49:13 +0000
parents 332649c64dbc
children a0a7ace216fe
files lisp/ChangeLog lisp/dialog.el
diffstat 2 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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