Remove redundant functions

Author: jlumpe

emacs/elisp/ast.py

@@ -5,8 +5,7 @@
 
 
 __all__ = ['ElispAstNode', 'Form', 'Literal', 'Symbol', 'Cons', 'List', 'Quote',
-           'Raw', 'to_elisp', 'make_list', 'make_alist', 'make_plist',
-           'symbols', 'quote', 'cons']
+           'Raw', 'to_elisp', 'make_alist', 'make_plist', 'symbols', 'quote']
 
 
 class ElispAstNode:
@@ -200,22 +199,10 @@ def _bool_to_elisp(value):
 # Convert Python lists to quoted Emacs lists
 @to_elisp.register(list)
 def _py_list_to_el_list(pylist):
-	return Quote(make_list(pylist))
+	return Quote(List(pylist))
 
 
-@to_elisp.register(tuple)
-def make_list(items):
-	"""Make an Elisp list from a Python sequence, first converting its elements to Elisp.
-
-	Parameters
-	----------
-	items : Iterable of objects to convert to list.
-
-	Returns
-	-------
-	.List
-	"""
-	return List(map(to_elisp, items))
+to_elisp.register(tuple, List)
 
 
 def quote(value):
@@ -237,16 +224,6 @@ def quote(value):
 	return Quote(form)
 
 
-def cons(car, cds):
-	"""Create a Cons cell, converting arguments.
-
-	Returns
-	-------
-	.Cons
-	"""
-	return Cons(to_elisp(car), to_elisp(cds))
-
-
 def symbols(*names, quote=False):
 	"""Create a list of symbols.
 
@@ -303,7 +280,7 @@ def make_alist(pairs, quote=False):
 	-------
 	ElispAstNode
 	"""
-	alist = List([cons(key, value) for key, value in _convert_pairs(pairs)])
+	alist = List([Cons(key, value) for key, value in _convert_pairs(pairs)])
 	return Quote(alist) if quote else alist
 
 

emacs/elisp/dsl.py

@@ -39,7 +39,7 @@ def __call__(self, value):
 		return to_elisp(value)
 
 	Q = staticmethod(quote)
-	C = staticmethod(cons)
+	C = staticmethod(Cons)
 	S = staticmethod(symbols)
 	R = staticmethod(Raw)