(ewoc-set-data): New func.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 37e7617f6ef7f599d867921e90aeba5251ada4b0..c1a502308fa2d18deecfec29b5f6de9b71e466a2 100644 (file)
--- 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 623f349d41232ef432d71e2b1cbfc1920d76e587..66bb0842da673cb8c3815c3e4c069bf22b41568a 100644 (file)
--- 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."