# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1148276364 0
# Node ID fd87105a0d34f9201d2989d005bac5086968d00e
# Parent  7ca4cd6f07f2db2ca2949b8d1754dbb9088c994f
(ewoc-set-data): New func.

diff -r 7ca4cd6f07f2 -r fd87105a0d34 lisp/emacs-lisp/ewoc.el
--- a/lisp/emacs-lisp/ewoc.el	Mon May 22 01:02:40 2006 +0000
+++ b/lisp/emacs-lisp/ewoc.el	Mon May 22 05:39:24 2006 +0000
@@ -96,6 +96,7 @@
 ;;
 ;; (defun ewoc-create (pretty-printer &optional header footer)
 ;; (defalias 'ewoc-data 'ewoc--node-data)
+;; (defun ewoc-set-data (node data)
 ;; (defun ewoc-location (node)
 ;; (defun ewoc-enter-first (ewoc data)
 ;; (defun ewoc-enter-last (ewoc data)
@@ -296,6 +297,10 @@
 
 \(fn NODE)")
 
+(defun ewoc-set-data (node data)
+  "Set NODE to encapsulate DATA."
+  (setf (ewoc--node-data node) data))
+
 (defun ewoc-enter-first (ewoc data)
   "Enter DATA first in EWOC.
 Return the new node."