tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix compatibility issues with org-choose.el 

Patch by Tom Breton.
This commit is contained in:
Carsten Dominik 2009-02-13 22:36:01 +01:00
parent 9524d5ea96
commit 29ff144600
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/ChangeLog
View File

@ -2,6 +2,9 @@
* lisp/org-choose.el (org-choose-get-fn-map-group): Require * lisp/org-choose.el (org-choose-get-fn-map-group): Require
`org-agenda'. `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> 2009-02-12 Carsten Dominik <carsten.dominik@gmail.com>

7
contrib/lisp/org-choose.el
View File

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