[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el

[Thien-Thi Nguyen]

Index: emacs/lisp/emacs-lisp/ewoc.el
diff -u emacs/lisp/emacs-lisp/ewoc.el:1.27 emacs/lisp/emacs-lisp/ewoc.el:1.28
--- emacs/lisp/emacs-lisp/ewoc.el:1.27  Sun May 21 22:24:00 2006
+++ emacs/lisp/emacs-lisp/ewoc.el       Mon May 22 05:39:24 2006
@@ -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."