浏览代码

Fix compatibility issues with org-choose.el

Patch by Tom Breton.
Carsten Dominik 16 年之前
父节点
当前提交
29ff144600
共有 2 个文件被更改,包括 7 次插入3 次删除
  1. 3 0
      contrib/ChangeLog
  2. 4 3
      contrib/lisp/org-choose.el

+ 3 - 0
contrib/ChangeLog

@@ -2,6 +2,9 @@
 
 	* lisp/org-choose.el (org-choose-get-fn-map-group): Require
 	`org-agenda'.
+	(cl): Require `cl' at runtime.
+	(org-choose-filter-one): Use `org-split-string' for consistency
+	accross Emacs version.
 
 2009-02-12  Carsten Dominik  <carsten.dominik@gmail.com>
 

+ 4 - 3
contrib/lisp/org-choose.el

@@ -63,8 +63,9 @@
 ;;;_ , Requires
 
 (require 'org)
-(eval-when-compile
-   (require 'cl))
+;(eval-when-compile
+;   (require 'cl))
+(require 'cl)
 
 ;;;_. Body
 ;;;_ , The variables
@@ -109,7 +110,7 @@ Each entry is an `org-choose-mark-data.'" )
 	    ;;Split it
 	    (arglist
 	       (let
-		  ((arglist-x (split-string args ",")))
+		  ((arglist-x (org-split-string args ",")))
 		  ;;When string starts with "," `split-string' doesn't
 		  ;;make a first arg, so in that case make one
 		  ;;manually.