92 |
|
|
93 |
;; In the mean time `grep '^(.*ewoc-[^-]' emacs-lisp/ewoc.el' can help |
;; In the mean time `grep '^(.*ewoc-[^-]' emacs-lisp/ewoc.el' can help |
94 |
;; you find all the exported functions: |
;; you find all the exported functions: |
95 |
;; |
;; |
96 |
;; (defun ewoc-create (pretty-printer &optional header footer) |
;; (defun ewoc-create (pretty-printer &optional header footer) |
97 |
;; (defalias 'ewoc-data 'ewoc--node-data) |
;; (defalias 'ewoc-data 'ewoc--node-data) |
98 |
;; (defun ewoc-location (node) |
;; (defun ewoc-location (node) |
138 |
(:constructor ewoc--node-create (start-marker data))) |
(:constructor ewoc--node-create (start-marker data))) |
139 |
left right data start-marker) |
left right data start-marker) |
140 |
|
|
141 |
(defalias 'ewoc--node-branch 'aref) |
(defalias 'ewoc--node-branch 'aref |
142 |
|
"Get the left (CHILD=0) or right (CHILD=1) child of the NODE. |
143 |
|
|
144 |
|
\(fn NODE CHILD)") |
145 |
|
|
146 |
(defun ewoc--dll-create () |
(defun ewoc--dll-create () |
147 |
"Create an empty doubly linked list." |
"Create an empty doubly linked list." |
394 |
If MAP-FUNCTION returns non-nil the element will be refreshed (its |
If MAP-FUNCTION returns non-nil the element will be refreshed (its |
395 |
pretty-printer will be called once again). |
pretty-printer will be called once again). |
396 |
|
|
397 |
Note that the buffer for EWOC will be current buffer when MAP-FUNCTION |
Note that the buffer for EWOC will be current buffer when MAP-FUNCTION |
398 |
is called. MAP-FUNCTION must restore the current buffer to BUFFER before |
is called. MAP-FUNCTION must restore the current buffer to BUFFER before |
399 |
it returns, if it changes it. |
it returns, if it changes it. |
400 |
|
|
401 |
If more than two arguments are given, the remaining |
If more than two arguments are given, the remaining |
410 |
|
|
411 |
(defun ewoc-filter (ewoc predicate &rest args) |
(defun ewoc-filter (ewoc predicate &rest args) |
412 |
"Remove all elements in EWOC for which PREDICATE returns nil. |
"Remove all elements in EWOC for which PREDICATE returns nil. |
413 |
Note that the buffer for EWOC will be current-buffer when PREDICATE |
Note that the buffer for EWOC will be current-buffer when PREDICATE |
414 |
is called. PREDICATE must restore the current buffer before it returns |
is called. PREDICATE must restore the current buffer before it returns |
415 |
if it changes it. |
if it changes it. |
416 |
The PREDICATE is called with the element as its first argument. If any |
The PREDICATE is called with the element as its first argument. If any |
478 |
;; best-guess is now a "best guess". |
;; best-guess is now a "best guess". |
479 |
;; Find the correct node. First determine in which direction |
;; Find the correct node. First determine in which direction |
480 |
;; it lies, and then move in that direction until it is found. |
;; it lies, and then move in that direction until it is found. |
481 |
|
|
482 |
(cond |
(cond |
483 |
;; Is pos after the guess? |
;; Is pos after the guess? |
484 |
((>= pos |
((>= pos |