[elpa] externals/org 0f7fcc9 1/2: Backport commit 6a3920c07 from Emacs

[ELPA Syncer]

branch: externals/org
commit 0f7fcc9de0dcfa2adaa6c3ffe4e21dd6e9a965da
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Kyle Meyer <kyle@kyleam.com>

    Backport commit 6a3920c07 from Emacs
    
    * lisp/org-agenda.el (org-agenda-get-restriction-and-command):
    Using `error' here will trigger users with `debug-on-error' so use
    `user-error' instead (bug#49920).  It would probably be preferable
    to rewrite this to not use the error system to do control flow.
    
    Make `q' in `org-agenda' work even with `debug-on-error' set
    6a3920c07eaae58408dd27e7db22bff7ad4d1f80
    Lars Ingebrigtsen
    Sat Aug 7 12:55:39 2021 +0200
---
 lisp/org-agenda.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 8a4aa2b..3acc187 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -3205,7 +3205,7 @@ s   Search for keywords                 M   Like m, but 
only TODO entries
             (delete-window)
             (org-agenda-get-restriction-and-command prefix-descriptions))
 
-          ((equal c ?q) (error "Abort"))
+          ((equal c ?q) (user-error "Abort"))
           (t (user-error "Invalid key %c" c))))))))
 
 (defun org-agenda-fit-window-to-buffer ()