diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2006-05-22 05:41:48 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2006-05-22 05:41:48 +0000 |
| commit | bb8d35a25e9a993975e0af55bca4baba82bd1b61 (patch) | |
| tree | d2c4ca9d1d99c5ab97d68408d2ab2748995eb414 /lisp/emacs-lisp | |
| parent | ccd97b5616246587c7072d8c23309b39419795a4 (diff) | |
| download | emacs-bb8d35a25e9a993975e0af55bca4baba82bd1b61.tar.gz emacs-bb8d35a25e9a993975e0af55bca4baba82bd1b61.tar.bz2 emacs-bb8d35a25e9a993975e0af55bca4baba82bd1b61.zip | |
(ewoc-set-data): New func.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/ewoc.el | 5 |
1 files changed, 5 insertions, 0 deletions
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." |