浏览代码

org-set-effort: Remove extra space in prompt

* lisp/org.el (org-set-effort): Make spacing across different prompt
  cases consistent.  Simplify prompt concatenation.
Kyle Meyer 8 年之前
父节点
当前提交
b237d4df04
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      lisp/org.el

+ 2 - 2
lisp/org.el

@@ -15701,8 +15701,8 @@ When INCREMENT is non-nil, set the property to the next allowed value."
 	       (t
 		(let (org-completion-use-ido org-completion-use-iswitchb)
 		  (org-completing-read
-		   (concat "Effort " (if (and cur (string-match "\\S-" cur))
-					 (concat "[" cur "]") "")
+		   (concat "Effort" (and cur (string-match "\\S-" cur)
+					 (concat " [" cur "]"))
 			   ": ")
 		   existing nil nil "" nil cur))))))
     (unless (equal (org-entry-get nil prop) val)