Always show current value when setting effort property

2009-11-04 14:18:48 +01:00 · 2009-11-04 14:18:48 +01:00 · dbe8c00c72
parent 8cde7ed412
commit dbe8c00c72
1 changed files with 3 additions and 1 deletions
--- 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)