From bb8d35a25e9a993975e0af55bca4baba82bd1b61 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Mon, 22 May 2006 05:41:48 +0000 Subject: [PATCH] (ewoc-set-data): New func. --- lisp/ChangeLog | 8 ++++++-- lisp/emacs-lisp/ewoc.el | 5 +++++ 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 37e7617f6ef..c1a502308fa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,15 +1,19 @@ +2006-05-22 Thien-Thi Nguyen + + * emacs-lisp/ewoc.el (ewoc-set-data): New function. + 2006-05-21 Roland Winkler * 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 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." -- 2.39.5