|
@@ -511,7 +511,8 @@ title."
|
|
|
(mapconcat 'identity tag-list ":"))))))
|
|
|
(priority
|
|
|
(and (plist-get info :with-priority)
|
|
|
- (concat (org-element-property :priority element) " ")))
|
|
|
+ (let ((char (org-element-property :priority element)))
|
|
|
+ (and char (format "(#%c) " char)))))
|
|
|
(first-part (concat numbers todo priority text)))
|
|
|
(concat
|
|
|
first-part
|