Mercurial > emacs
comparison lisp/emacs-lisp/ewoc.el @ 47549:448895ab039b
(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) |