(defun save-and-delete-frame() "save buffer and delete frame" (interactive) (save-some-buffers) (delete-frame) ) (bind-key* [f12] 'save-and-delete-frame) (global-unset-key (kbd "C-x C-c"))