Mercurial > emacs

comparison lisp/emacs-lisp/ewoc.el @ 47549:448895ab039b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ewoc--node-branch): Add docstring.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 19 Sep 2002 05:11:48 +0000
parents 0f4506820432
children 0d8b17d428b5
comparison
equal deleted inserted replaced
47548:698b4a4bb562 47549:448895ab039b
136 (defstruct (ewoc--node 136 (defstruct (ewoc--node
137 (:type vector) ;required for ewoc--node-branch hack 137 (:type vector) ;required for ewoc--node-branch hack
138 (:constructor ewoc--node-create (start-marker data))) 138 (:constructor ewoc--node-create (start-marker data)))
139 left right data start-marker) 139 left right data start-marker)
140 140
141 (defalias 'ewoc--node-branch 'aref) 141 (defalias 'ewoc--node-branch 'aref
142 "Get the left (CHILD=0) or right (CHILD=1) child of the NODE.
143
144 \(fn NODE CHILD)")
142 145
143 (defun ewoc--dll-create () 146 (defun ewoc--dll-create ()
144 "Create an empty doubly linked list." 147 "Create an empty doubly linked list."
145 (let ((dummy-node (ewoc--node-create 'DL-LIST 'DL-LIST))) 148 (let ((dummy-node (ewoc--node-create 'DL-LIST 'DL-LIST)))
146 (setf (ewoc--node-right dummy-node) dummy-node) 149 (setf (ewoc--node-right dummy-node) dummy-node)