mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 00:02:51 +00:00
Fix compatibility issues with org-choose.el
Patch by Tom Breton.
This commit is contained in:
parent
9524d5ea96
commit
29ff144600
|
@ -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>
|
||||||
|
|
||||||
|
|
|
@ -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.
|
||||||
|
|
Loading…
Reference in a new issue