From bb8d35a25e9a993975e0af55bca4baba82bd1b61 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Mon, 22 May 2006 05:41:48 +0000 Subject: (ewoc-set-data): New func. --- lisp/emacs-lisp/ewoc.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lisp/emacs-lisp') 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." -- cgit v1.2.3