Browse Source

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.
Carsten Dominik 16 years ago
parent
commit
6fbcc77e99
2 changed files with 9 additions and 5 deletions
  1. 4 0
      lisp/ChangeLog
  2. 5 5
      lisp/org.el

+ 4 - 0
lisp/ChangeLog

@@ -1,3 +1,7 @@
+2008-11-21  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org.el (org-refile-targets): Fix customize definition so
+	that it works also in XEmacs.
 
 2008-11-21  Tokuya Kameshima  <kames@fa2.so-net.ne.jp>
 

+ 5 - 5
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.