branch: externals/org
commit 036918671be98065d0aa9533779c4fefb012622f
Author: Slawomir Grochowski <[email protected]>
Commit: Slawomir Grochowski <[email protected]>
; org-colview: Reformat overlay text cases
* lisp/org-colview.el (org-columns--overlay-text): Keep short pcase
branches on one line.
No behavior change.
---
lisp/org-colview.el | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 50735d6a40..2c2695b6f0 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -421,10 +421,8 @@ by `org-columns--displayed-value'."
(format cell-format-string
(let ((cell-text (org-columns-add-ellipses displayed-value width)))
(pcase property
- ("PRIORITY"
- (propertize cell-text 'face (org-get-priority-face value)))
- ("TAGS"
- (org-columns--propertize-tags cell-text))
+ ("PRIORITY" (propertize cell-text 'face (org-get-priority-face
value)))
+ ("TAGS" (org-columns--propertize-tags cell-text))
("TODO" (propertize cell-text 'face (org-get-todo-face value)))
(_ cell-text)))))
