handle cancellation correctly during confirmation question

emacs-php · Aug 5, 2018 · 3660fc7 · 3660fc7
1 parent 30172c9
commit 3660fc7
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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