====
From d9b237304b23b8bbb75e9b799bd3698060bc82a9 Mon Sep 17 00:00:00 2001
From: Anton-Latukha <address@hidden>
Date: Sun, 29 Sep 2019 01:13:41 +0300
Subject: [PATCH] org.el: fx org-get-priority-function funcall (give arg -
headline)
* org.el (org-get-priority): Fix to allow the use of custom priority
getters.
Provide the headline as argument to the custom priority getter
function.
---
lisp/org.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org.el b/lisp/org.el
index 450d16083..71490893d 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -11678,7 +11678,7 @@ and by additional input from the age of a schedules or deadline entry."
"Find priority cookie and return priority."
(save-match-data
(if (functionp org-get-priority-function)
- (funcall org-get-priority-function)
+ (funcall org-get-priority-function s)
(if (not (string-match org-priority-regexp s))
(* 1000 (- org-lowest-priority org-default-priority))
(* 1000 (- org-lowest-priority
--
2.23.0
====
$ make test
---
Ran 808 tests, 808 results as expected (2019-09-29 01:54:46+0300)
13 expected failures
====
My first patch. Limiting it to be very-very simple.
(I had read the main docs) - Should I send patch in email body or pinned file is fine?
0001-org.el-fx-org-get-priority-function-funcall-give-arg.patch