diff --git a/phpactor.el b/phpactor.el index 9a12bf9..dfaa52b 100644 --- a/phpactor.el +++ b/phpactor.el @@ -177,7 +177,8 @@ (let ((use-dialog-box nil) (type (if type (intern type) value-type))) (cl-case type - (confirm (y-or-n-p label)) + (confirm (if (y-or-n-p label) t + (error "Action cancelled"))) (file (read-file-name label nil default)) (text (read-string label default)) (choice (completing-read label