branch: externals/org
commit 8634b8d226e20dd5b5395814c8035070d0cb72a9
Author: Slawomir Grochowski <[email protected]>
Commit: Slawomir Grochowski <[email protected]>
; org-colview: Simplify format and top-level helper
* lisp/org-colview.el (org-columns-get-format-and-top-level): Use
`prog1' to return the selected format.
Refactoring: Inline Variable.
No behavior change.
---
lisp/org-colview.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index cd084f46a9..1ac9bf10ca 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -930,9 +930,8 @@ dynamic scoping for `org-overriding-columns-format'.")
;;;###autoload
(defun org-columns-get-format-and-top-level ()
- (let ((columns-format (org-columns-get-format)))
- (org-columns-goto-top-level)
- columns-format))
+ (prog1 (org-columns-get-format)
+ (org-columns-goto-top-level)))
(defun org-columns--get-columns-keyword ()
"Return the first COLUMNS keyword value in the current buffer."
