proposal for enhanced org-get-priority function

["I.S." <inquisitive.scientist@gmail.com>]

Dear Experts,

I'd like to propose a replacement for the org-get-priority function 
which is backward compatible with the current version but allows the 
user to add a sub-priority such as [#A]-5 or [#B]+3:

(defun org-get-priority (s)
   "Find priority cookie and return priority.

Priorities of the form [#<letter>]-<number> or
[#<letter>]+<number> are supported with +/-<number> being
optional and modifying the letter priority. The letter priority
is multiplied by 100000 and then the number priority is added
on. Thus a priority string of [#B]+5 is higher than [#B] which is
higher than [#B]-2 and all are lower than [#A].

The number sub-priorities allow finer control of sorting in org agendas.
"
   (save-match-data
     (let* ((priority-match (string-match org-priority-regexp s))
        (priority-value (if priority-match
                    (* 100000 (- org-lowest-priority
                       (string-to-char (match-string 2 s))))
                  (* 100000 (- org-lowest-priority
                     org-default-priority))))
        (sub-priority-match (match-string 3 s))
        (sub-priority-value (if sub-priority-match
                    (string-to-number sub-priority-match) 0)))
       (+ priority-value sub-priority-value))))