x-popup-dialog with Mac event -> wrong-type-argument

[David Reitter <david.reitter@gmail.com>]

The Carbon port calls x-popup-dialog with a core-event it cannot  
process. This occurs when a buffer is in modified state and the user  
chooses "Quit Emacs" from the application menu (rather than doing C-x  
C-c which would not cause a GUI dialog to be shown).

Wrong type argument: listp, [core-event quit-application]

Stack trace:

Lisp error: (wrong-type-argument listp [core-event quit-application])
   x-popup-dialog((mac-apple-event [core-event quit-application]  
("aevt")) ("Save buffer untitled? " ("Yes" . act) ("No" . skip)  
("View This File" . [...]) ("View Changes In File" . [diff-buffer- 
with-file]) ("Save This But No More" . act-and-exit) ("Save All  
Buffers" . automatic) ("No For All" . exit)))
   ad-Orig-map-y-or-n-p(#[(buffer) "..." [buffer pred buffer-offer- 
save arg queried buffer-modified-p buffer-base-buffer buffer-file- 
name buffer-size 0 functionp t format "Save file %s? " "Save buffer % 
s? " buffer-name] 4] #[(buffer) "\bq� ‡" [buffer save-buffer] 1]  
(#<buffer untitled> #<buffer *scratch*> #<buffer  *Minibuf-0*>  
#<buffer *Messages*> #<buffer  *code-conversion-work*> #<buffer   
*Echo Area 0*> #<buffer  *Echo Area 1*> #<buffer *vc*> #<buffer   
*code-converting-work*>) ("buffer" "buffers" "save") ((18  
(lambda ... ... ... nil) "view this file") (100 diff-buffer-with-file  
"view changes in file")))
   byte-code("..." [buffer pred buffer-offer-save arg queried buffer- 
modified-p buffer-base-buffer buffer-file-name buffer-size 0  
functionp t format "Save file %s? " "Save buffer %s? " buffer-name]  
4] #[(buffer) "\bq� ‡" [buffer save-buffer] 1] ("buffer" "buffers"  
"save") silently y-or-n-p format "Save abbrevs in %s? " write-abbrev- 
file 0 message "(Some special files were saved without asking)" "(No  
files need saving)" buffer-save-without-query save-some-buffers- 
action-alist save-abbrevs abbrevs-changed arg abbrev-file-name] 7)
   save-some-buffers(nil t)
   save-buffers-kill-emacs(nil)
   call-interactively(save-buffers-kill-emacs)
   mac-dispatch-apple-event((mac-apple-event [core-event quit- 
application] ("aevt")))
   call-interactively(mac-dispatch-apple-event)