Mercurial > emacs

comparison lisp/emacs-lisp/ewoc.el @ 70835:fd87105a0d34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ewoc-set-data): New func.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Mon, 22 May 2006 05:39:24 +0000
parents 9ce3cc1e5e89
children 9119e54a8121
comparison
equal deleted inserted replaced
70834:7ca4cd6f07f2 70835:fd87105a0d34
94 ;; In the mean time `grep '^(.*ewoc-[^-]' emacs-lisp/ewoc.el' can help 94 ;; In the mean time `grep '^(.*ewoc-[^-]' emacs-lisp/ewoc.el' can help
95 ;; you find all the exported functions: 95 ;; you find all the exported functions:
96 ;; 96 ;;
97 ;; (defun ewoc-create (pretty-printer &optional header footer) 97 ;; (defun ewoc-create (pretty-printer &optional header footer)
98 ;; (defalias 'ewoc-data 'ewoc--node-data) 98 ;; (defalias 'ewoc-data 'ewoc--node-data)
99 ;; (defun ewoc-set-data (node data)
99 ;; (defun ewoc-location (node) 100 ;; (defun ewoc-location (node)
100 ;; (defun ewoc-enter-first (ewoc data) 101 ;; (defun ewoc-enter-first (ewoc data)
101 ;; (defun ewoc-enter-last (ewoc data) 102 ;; (defun ewoc-enter-last (ewoc data)
102 ;; (defun ewoc-enter-after (ewoc node data) 103 ;; (defun ewoc-enter-after (ewoc node data)
103 ;; (defun ewoc-enter-before (ewoc node data) 104 ;; (defun ewoc-enter-before (ewoc node data)
293 294
294 (defalias 'ewoc-data 'ewoc--node-data 295 (defalias 'ewoc-data 'ewoc--node-data
295 "Extract the data encapsulated by NODE and return it. 296 "Extract the data encapsulated by NODE and return it.
296 297
297 \(fn NODE)") 298 \(fn NODE)")
299
300 (defun ewoc-set-data (node data)
301 "Set NODE to encapsulate DATA."
302 (setf (ewoc--node-data node) data))
298 303
299 (defun ewoc-enter-first (ewoc data) 304 (defun ewoc-enter-first (ewoc data)
300 "Enter DATA first in EWOC. 305 "Enter DATA first in EWOC.
301 Return the new node." 306 Return the new node."
302 (ewoc--set-buffer-bind-dll ewoc 307 (ewoc--set-buffer-bind-dll ewoc