From dbe8c00c729f99f9772967e498b0a8ec0bdf7afe Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 4 Nov 2009 14:18:48 +0100 Subject: [PATCH] Always show current value when setting effort property --- lisp/org.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 99014044d..28aa9a21c 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12032,7 +12032,9 @@ allowed value." (or (car (nth (1- value) allowed)) (car (org-last allowed)))) (allowed - (message "Select 1-9,0, [RET]: %s" (mapconcat 'car allowed " ")) + (message "Select 1-9,0, [RET%s]: %s" + (if cur (concat "=" cur) "") + (mapconcat 'car allowed " ")) (setq rpl (read-char-exclusive)) (if (equal rpl ?\r) (setq val cur)