Convert list from python to elisp

emacspy.pyx

@@ -187,6 +187,10 @@ cdef emacs_value unwrap(obj) except *:
  obj = make_int(obj)
  elif obj is None:
  obj = nil
+ elif isinstance(obj, list):
+ obj = make_list(obj)
+ elif isinstance(obj, tuple):
+ obj = make_list(list(obj))
 
  if isinstance(obj, EmacsValue):
  return (<EmacsValue>obj).v
@@ -216,6 +220,9 @@ cpdef make_bool(bool b):
  return EmacsValue.wrap(env.intern(env, "t".encode('utf8')))
  return nil
 
+cpdef make_list(list l):
+ return funcall(sym("list"), l)
+
 cdef emacs_value string_ptr(str s):
  cdef emacs_env* env = get_env()
  s_utf8 = s.encode('utf8')

tests/test.el

@@ -1,3 +1,5 @@
+(require 'cl)
+
 (ert-deftest ert-test-emacspy-py-import ()
  (should-error (py-import "test" "NON_EXISTING_MOD")
  :type 'python-exception) )
@@ -75,3 +77,11 @@
  "test" (py-set-global "test" -1 "test_int"))))
  (should (eq 0 (py-get-global-variable
  "test" (py-set-global "test" 0 "test_int")))) )
+
+(ert-deftest ert-test-emacspy-data-list ()
+ (should (cl-every 'eq '(t 2 3)
+ (py-run-string "test" "[True, 2, 3]") ))
+ (should (cl-every 'eq '(1 nil 3)
+ (py-run-string "test" "(1, False, 3)") ))
+ (should (cl-every 'string= '("test")
+ (py-run-string "test" "['test']") )) )