From mboxrd@z Thu Jan 1 00:00:00 1970 From: gregory@dynapse.com (Gregory J. Grubbs) Subject: [PATCH] Meaningful prompt for org-set-effort Date: Sat, 14 Nov 2009 10:40:41 -0700 Message-ID: <87iqddypgm.fsf@dynapse.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1N9Mca-0001PN-6X for emacs-orgmode@gnu.org; Sat, 14 Nov 2009 12:41:12 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1N9McV-0001Kh-LH for emacs-orgmode@gnu.org; Sat, 14 Nov 2009 12:41:11 -0500 Received: from [199.232.76.173] (port=60407 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N9McV-0001KW-IF for emacs-orgmode@gnu.org; Sat, 14 Nov 2009 12:41:07 -0500 Received: from lo.gmane.org ([80.91.229.12]:35983) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1N9McU-00071P-QW for emacs-orgmode@gnu.org; Sat, 14 Nov 2009 12:41:07 -0500 Received: from list by lo.gmane.org with local (Exim 4.50) id 1N9McT-0001ZY-FY for emacs-orgmode@gnu.org; Sat, 14 Nov 2009 18:41:05 +0100 Received: from 72.42.83.192 ([72.42.83.192]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 14 Nov 2009 18:41:05 +0100 Received: from gregory by 72.42.83.192 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 14 Nov 2009 18:41:05 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org I don't understand what I'm being prompted for with the current prompt. --8<---------------cut here---------------start------------->8--- diff --git a/lisp/org.el b/lisp/org.el index c5499a3..dcded8e 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12213,11 +12213,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)))))) --8<---------------cut here---------------end--------------->8---