From 4eada95883fdfa89c0786aa054cf232917180310 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 13 Feb 2016 12:21:08 +0100 Subject: [PATCH] Move `org-columns-modify-value-for-display-function' * lisp/org.el (org-columns-modify-value-for-display-function): Move from here... * lisp/org-colview.el (org-columns-modify-value-for-display-function): ... to here. --- lisp/org-colview.el | 15 +++++++++++++++ lisp/org.el | 13 ------------- 2 files changed, 15 insertions(+), 13 deletions(-) diff --git a/lisp/org-colview.el b/lisp/org-colview.el index a90c803e7..38e251032 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -35,6 +35,21 @@ (declare-function org-agenda-do-context-action "org-agenda" ()) (declare-function org-clock-sum-today "org-clock" (&optional headline-filter)) +;;; Configuration + +(defcustom org-columns-modify-value-for-display-function nil + "Function that modifies values for display in column view. +For example, it can be used to cut out a certain part from a time stamp. +The function must take 2 arguments: + +column-title The title of the column (*not* the property name) +value The value that should be modified. + +The function should return the value that should be displayed, +or nil if the normal value should be used." + :group 'org-properties + :type '(choice (const nil) (function))) + ;;; Column View (defvar org-columns-overlays nil diff --git a/lisp/org.el b/lisp/org.el index 5fcafd4e8..11a30c8f4 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3737,19 +3737,6 @@ ellipses string, only part of the ellipses string will be shown." :group 'org-properties :type 'string) -(defcustom org-columns-modify-value-for-display-function nil - "Function that modifies values for display in column view. -For example, it can be used to cut out a certain part from a time stamp. -The function must take 2 arguments: - -column-title The title of the column (*not* the property name) -value The value that should be modified. - -The function should return the value that should be displayed, -or nil if the normal value should be used." - :group 'org-properties - :type '(choice (const nil) (function))) - (defconst org-global-properties-fixed '(("VISIBILITY_ALL" . "folded children content all") ("CLOCK_MODELINE_TOTAL_ALL" . "current today repeat all auto"))