Improve prompt for Effort

Patch by Gregory J. Grubbs.
This commit is contained in:
Carsten Dominik 2009-11-15 09:55:03 +01:00
parent c7371cc7fe
commit 1497c94c11
2 changed files with 4 additions and 2 deletions

View File

@ -1,5 +1,7 @@
2009-11-15 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-set-effort): Improve prompt.
* org-latex.el (org-export-as-latex): Add the :drawers property.
2009-11-14 Carsten Dominik <carsten.dominik@gmail.com>

View File

@ -12219,11 +12219,11 @@ allowed value."
(if (equal rpl 0) (setq rpl 10))
(if (and (> rpl 0) (<= rpl (length allowed)))
(car (nth (1- rpl) allowed))
(org-completing-read "Value: " allowed nil))))
(org-completing-read "Effort: " allowed nil))))
(t
(let (org-completion-use-ido org-completion-use-iswitchb)
(org-completing-read
(concat "Value " (if (and cur (string-match "\\S-" cur))
(concat "Effort " (if (and cur (string-match "\\S-" cur))
(concat "[" cur "]") "")
": ")
existing nil nil "" nil cur))))))