(ewoc-set-data): New func.

2 files changed, 11 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 37e7617f6ef..c1a502308fa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,15 +1,19 @@
+2006-05-22  Thien-Thi Nguyen  <ttn@gnu.org>
+
+        * emacs-lisp/ewoc.el (ewoc-set-data): New function.
+
 2006-05-21  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>
 
         * textmodes/bibtex.el (bibtex-maintain-sorted-entries): Mark as
         safe.
-        
+
         * progmodes/make-mode.el (makefile-special-targets-list)
         (makefile-macro-table, makefile-target-table): Mark as risky.
         (makefile-query-one-target-method): Make this the alias for the
         following variable.
         (makefile-query-one-target-method-function): Make this the real
         name.
-        
+
         * textmodes/artist.el (artist-text-renderer): Make this the alias
         for the following variable.
         (artist-text-renderer-function): Make this the real name.
diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el
index 623f349d412..66bb0842da6 100644
--- a/lisp/emacs-lisp/ewoc.el
+++ b/lisp/emacs-lisp/ewoc.el
@@ -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 @@ respectively, of the ewoc."
 
 \(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."