From 6fbcc77e990dc6c39a987b004befaee8528045d3 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 21 Nov 2008 15:32:26 +0100 Subject: [PATCH] Fix customize definition so that it works also in XEmacs. `org-refile-target' was using (const :tag), which can be confusing, and XEmacs is actually confused by it. So we now use (const :value :tag) instead. --- lisp/ChangeLog | 4 ++++ lisp/org.el | 10 +++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5a3d71d45..871df4641 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-11-21 Carsten Dominik + + * org.el (org-refile-targets): Fix customize definition so + that it works also in XEmacs. 2008-11-21 Tokuya Kameshima diff --git a/lisp/org.el b/lisp/org.el index ae5b68eba..7f2096de4 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -1322,11 +1322,11 @@ are used, equivalent to the value `((nil . (:level . 1))'." (const :tag "Current buffer" nil) (function) (variable) (file)) (choice :tag "Identify target headline by" - (cons :tag "Specific tag" (const :tag) (string)) - (cons :tag "TODO keyword" (const :todo) (string)) - (cons :tag "Regular expression" (const :regexp) (regexp)) - (cons :tag "Level number" (const :level) (integer)) - (cons :tag "Max Level number" (const :maxlevel) (integer)))))) + (cons :tag "Specific tag" (const :value :tag) (string)) + (cons :tag "TODO keyword" (const :value :todo) (string)) + (cons :tag "Regular expression" (const :value :regexp) (regexp)) + (cons :tag "Level number" (const :value :level) (integer)) + (cons :tag "Max Level number" (const :value :maxlevel) (integer)))))) (defcustom org-refile-use-outline-path nil "Non-nil means, provide refile targets as paths. -- 2.11.4.GIT