branch: externals/org
commit ae865a35939b63188f073215afa925289b888664
Author: Slawomir Grochowski <[email protected]>
Commit: Slawomir Grochowski <[email protected]>
; org-colview: Clarify decompiled column operator
* lisp/org-colview.el (org-columns-decompile-format): Rename local
operator variable.
Refactoring: Rename Variable.
No behavior change.
---
lisp/org-colview.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 3ef1a049dd..4e927c9d2f 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -1302,15 +1302,15 @@ COMPILED is an alist, as returned by
`org-columns-compile-format'."
(mapconcat
(lambda (spec)
(pcase spec
- (`(,prop ,title ,width ,op ,format-string)
+ (`(,prop ,title ,width ,operator ,format-string)
(concat "%"
(and width (number-to-string width))
prop
(and title (not (equal prop title)) (format "(%s)" title))
- (cond ((not op) nil)
- ((equal op "$") (format "{%s}" op))
- (format-string (format "{%s;%s}" op format-string))
- (t (format "{%s}" op)))))))
+ (cond ((not operator) nil)
+ ((equal operator "$") (format "{%s}" operator))
+ (format-string (format "{%s;%s}" operator format-string))
+ (t (format "{%s}" operator)))))))
compiled " "))
(defun org-columns-compile-format (columns-format)
