# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1294682106 0
# Node ID aa2705c83c24fe75d272acb541949dfba4d0666b
# Parent  1dbc93b7ba1901154b335c5d993940e7975622f5
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 !

diff -r 1dbc93b7ba19 -r aa2705c83c24 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jan 02 18:05:05 2011 +0000
+++ b/lisp/ChangeLog	Mon Jan 10 17:55:06 2011 +0000
@@ -1,3 +1,8 @@
+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 !
+
 2011-01-02  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* dialog.el (make-dialog-box):
diff -r 1dbc93b7ba19 -r aa2705c83c24 lisp/dialog.el
--- a/lisp/dialog.el	Sun Jan 02 18:05:05 2011 +0000
+++ b/lisp/dialog.el	Mon Jan 10 17:55:06 2011 +0000
@@ -663,9 +663,9 @@
        (remf rest :modal)
        (if modal
            (dialog-box-modal-loop `(make-dialog-box-internal ',type ',rest))
-         (make-dialog-box-internal type rest))))
-    (t
-     (make-dialog-box-internal type rest))))
+         (make-dialog-box-internal type rest)))
+      (t
+       (make-dialog-box-internal type rest)))))
 
 (defun dialog-box-finish (result)
   "Exit a modal dialog box, returning RESULT.