Quit and Error in org-export--dispatch-action

[Takaaki Ishikawa <takaxp@ieee.org>]

[-- Attachment #1: Type: text/plain, Size: 476 bytes --]

Dear Nicolas and all,

The org-export provides a quitting option for user by typing `q`.
This is nice feature but it is implemented with an error function.
For me, it is not actually an error, it is one of the user actions,
and when `debug-on-error` is `t`, the Backtrace buffer will be
popped up every time. It is annoying.

Please find a patch to replace error function with a simple message.
What do you think?

Best regards,
Takaaki

--
Takaaki ISHIKAWA <takaxp@ieee.org>

[-- Attachment #2: ox.patch --]
[-- Type: application/octet-stream, Size: 701 bytes --]

diff --git a/lisp/ox.el b/lisp/ox.el
index 5b4134ecc..98846540d 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -6929,8 +6929,8 @@ options as CDR."
       (org-export--dispatch-ui options first-key expertp))
      ;; q key at first level aborts export.  At second level, cancel
      ;; first key instead.
-     ((eq key ?q) (if (not first-key) (error "Export aborted")
-		    (org-export--dispatch-ui options nil expertp)))
+     ((eq key ?q) (if first-key (org-export--dispatch-ui options nil expertp)
+		    (message "Export aborted") '(ignore)))
      ;; Help key: Switch back to standard interface if expert UI was
      ;; active.
      ((eq key ??) (org-export--dispatch-ui options first-key nil))