Mercurial > emacs

changeset 70835:fd87105a0d34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ewoc-set-data): New func.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Mon, 22 May 2006 05:39:24 +0000
parents 7ca4cd6f07f2
children 5f9a8e0ee1ee
files lisp/emacs-lisp/ewoc.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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."