Mercurial > hg > xemacs-beta

comparison lisp/dialog.el @ 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 42375619fa45
children bcb5d65d0d94
comparison
equal deleted inserted replaced
1065:332649c64dbc 1066:5de13d96e131
660 (mapc 'enable-frame ',frames) 660 (mapc 'enable-frame ',frames)
661 (enqueue-eval-event 661 (enqueue-eval-event
662 'internal-make-dialog-box-exit did) 662 'internal-make-dialog-box-exit did)
663 (remove-hook 'delete-dialog-box-hook 663 (remove-hook 'delete-dialog-box-hook
664 ',sym)))) 664 ',sym))))
665 (add-hook 'delete-dialog-box-hook sym) 665 (if (framep id)
666 (add-hook 'delete-frame-hook sym)
667 (add-hook 'delete-dialog-box-hook sym))
666 (mapc 'disable-frame frames) 668 (mapc 'disable-frame frames)
667 (block nil 669 (block nil
668 (while t 670 (while t
669 (let ((event (next-event))) 671 (let ((event (next-event)))
670 (if (and (eval-event-p event) 672 (if (and (eval-event-p event)