Mercurial > hg > xemacs-beta
diff lisp/dialog.el @ 1066:5de13d96e131
[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 | 42375619fa45 |
| children | bcb5d65d0d94 |
line wrap: on
line diff
--- 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