ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

testing/: Update two tests 

The current Emacs trunk bumped to version >24.2.50 because a new
release Emacs 24.2 has been decided.  `cl-map' is not an alias for
`map' in Emacs < 24.2.50 -- so take this into account in some tests.
This commit is contained in:
Bastien Guerry 2012-08-20 14:24:14 +02:00
parent 502e538020
commit 00e5c278fd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
testing/examples/babel.org
View File

@ -113,7 +113,7 @@
#+name: pascals-triangle #+name: pascals-triangle
#+begin_src emacs-lisp :var n=5 :exports both #+begin_src emacs-lisp :var n=5 :exports both
(require 'cl) (require 'cl)
(defalias 'my-map (if (org-version-check "24.1.50" "cl" :predicate) (defalias 'my-map (if (org-version-check "24.2.50" "cl" :predicate)
'cl-map 'cl-map
'map)) 'map))
(defun pascals-triangle (n) (defun pascals-triangle (n)

2
testing/lisp/test-ob.el
View File

@ -181,7 +181,7 @@
#+headers: :var letters='(a b c d e f g) #+headers: :var letters='(a b c d e f g)
#+begin_src emacs-lisp :var numbers='(1 2 3 4 5 6 7) #+begin_src emacs-lisp :var numbers='(1 2 3 4 5 6 7)
(require 'cl) (require 'cl)
(defalias 'my-map (if (org-version-check \"24.1.50\" \"cl\" :predicate) (defalias 'my-map (if (org-version-check \"24.2.50\" \"cl\" :predicate)
'cl-map 'cl-map
'map)) 'map))
(my-map 'list #'list numbers letters) (my-map 'list #'list numbers letters)