[O] [PATCH] org.el: fx org-get-priority-function funcall (give arg - headline)

[Anton Latukha]

====

From d9b237304b23b8bbb75e9b799bd3698060bc82a9 Mon Sep 17 00:00:00 2001

From: Anton-Latukha <anton.latu...@gmail.com>

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?

 

Regards,

Anton Latukha

From d9b237304b23b8bbb75e9b799bd3698060bc82a9 Mon Sep 17 00:00:00 2001
From: Anton-Latukha <anton.latu...@gmail.com>
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