Make some fields of Node read-only

taku0 · Apr 20, 2019 · 422547e · 422547e
1 parent f61e94e
commit 422547e
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/cmark-node.el b/cmark-node.el
@@ -186,13 +186,13 @@
   start
   delimiter)
 
-(defalias 'cmark-Node-type 'cmark-Node-_type)
-(defalias 'cmark-Node-firstChild 'cmark-Node-_firstChild)
-(defalias 'cmark-Node-lastChild 'cmark-Node-_lastChild)
-(defalias 'cmark-Node-next 'cmark-Node-_next)
-(defalias 'cmark-Node-prev 'cmark-Node-_prev)
-(defalias 'cmark-Node-parent 'cmark-Node-_parent)
-(defalias 'cmark-Node-sourcepos 'cmark-Node-_sourcepos)
+(defun cmark-Node-type (node) (cmark-Node-_type node))
+(defun cmark-Node-firstChild (node) (cmark-Node-_firstChild foo))
+(defun cmark-Node-lastChild (node) (cmark-Node-_lastChild foo))
+(defun cmark-Node-next (node) (cmark-Node-_next foo))
+(defun cmark-Node-prev (node) (cmark-Node-_prev foo))
+(defun cmark-Node-parent (node) (cmark-Node-_parent foo))
+(defun cmark-Node-sourcepos (node) (cmark-Node-_sourcepos foo))
 (defalias 'cmark-Node-literal 'cmark-Node-_literal)
 (defalias 'cmark-Node-destination 'cmark-Node-_destination)
 (defalias 'cmark-Node-title 'cmark-Node-_title)