[elpa] externals/org db12a497d2 1/3: org-agenda: Use ARG instead of `current-prefix-arg'

[ELPA Syncer]

branch: externals/org
commit db12a497d278d34721ad878dc8c5a24c2883ab37
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    org-agenda: Use ARG instead of `current-prefix-arg'
    
    * lisp/org-agenda.el (org-agenda): Use the function argument instead
    of `current-prefix-arg' when calling agenda view.  This is safe
    because `org-agenda' uses raw "P" interactive spec.
    
    Fixes 
https://list.orgmode.org/m2pmimnymk.fsf@air.local.mail-host-address-is-not-set/T/#u
---
 lisp/org-agenda.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 7cd87a0c94..745af50f9a 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -2975,24 +2975,24 @@ Pressing `<' twice means to restrict to the current 
subtree or region
                  (mapcar (lambda (binding) (eval (cadr binding) t)) lprops)
                (pcase type
                  (`agenda
-                  (org-agenda-list current-prefix-arg))
+                  (org-agenda-list arg))
                  (`agenda*
-                  (org-agenda-list current-prefix-arg nil nil t))
+                  (org-agenda-list arg nil nil t))
                  (`alltodo
-                  (org-todo-list current-prefix-arg))
+                  (org-todo-list arg))
                  (`search
-                  (org-search-view current-prefix-arg org-match nil))
+                  (org-search-view arg org-match nil))
                  (`stuck
-                  (org-agenda-list-stuck-projects current-prefix-arg))
+                  (org-agenda-list-stuck-projects arg))
                  (`tags
-                  (org-tags-view current-prefix-arg org-match))
+                  (org-tags-view arg org-match))
                  (`tags-todo
                   (org-tags-view '(4) org-match))
                  (`todo
                   (org-todo-list org-match))
                  (`tags-tree
                   (org-check-for-org-mode)
-                  (org-match-sparse-tree current-prefix-arg org-match))
+                  (org-match-sparse-tree arg org-match))
                  (`todo-tree
                   (org-check-for-org-mode)
                   (org-occur (concat "^" org-outline-regexp "[ \t]*"