Mercurial > hg > xemacs-beta

comparison lisp/dialog.el @ 5333:aa2705c83c24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Correct a misplaced parenthesis in #'make-dialog-box, thank you Mats! 2011-01-10 Aidan Kehoe <kehoea@parhasard.net> * dialog.el (make-dialog-box): Correct a misplaced parenthesis here, thank you Mats Lidell in 87zkr9gqrh.fsf@mail.contactor.se !
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 10 Jan 2011 17:55:06 +0000
parents fbafdc1bb4d2
children 7ebbe334061e
comparison
equal deleted inserted replaced
5332:1dbc93b7ba19 5333:aa2705c83c24
661 (create-dialog-box-frame)))) 661 (create-dialog-box-frame))))
662 (question 662 (question
663 (remf rest :modal) 663 (remf rest :modal)
664 (if modal 664 (if modal
665 (dialog-box-modal-loop `(make-dialog-box-internal ',type ',rest)) 665 (dialog-box-modal-loop `(make-dialog-box-internal ',type ',rest))
666 (make-dialog-box-internal type rest)))) 666 (make-dialog-box-internal type rest)))
667 (t 667 (t
668 (make-dialog-box-internal type rest)))) 668 (make-dialog-box-internal type rest)))))
669 669
670 (defun dialog-box-finish (result) 670 (defun dialog-box-finish (result)
671 "Exit a modal dialog box, returning RESULT. 671 "Exit a modal dialog box, returning RESULT.
672 This is meant to be executed from a dialog box callback function." 672 This is meant to be executed from a dialog box callback function."
673 (throw 'internal-dialog-box-finish (list result))) 673 (throw 'internal-dialog-box-finish (list result)))