(ewoc-data): Add docstring.

(ewoc-nth): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57158e5e9b9ab5283541ebcede2c092210d746b0..85e397cbe29590b48a251711caea896aaec7011c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,15 @@
+2006-05-17  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       * emacs-lisp/ewoc.el (ewoc-data): Add docstring.
+       (ewoc-nth): Doc fix.
+
 2006-05-16  Eli Zaretskii  <eliz@gnu.org>
 
        * international/mule.el (auto-coding-alist): Add .lha to files
        read with no-conversion.
 
        * files.el (auto-mode-alist): Add .lha files to archive file
-       extensions. 
+       extensions.
 
        * arc-mode.el (archive-arc-summarize, archive-lzh-summarize):
        Convert csize to integer when computing offsets within the

diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el
index d64991e5415eee8069caf30574f9c3aecf23bdf9..fa85ce21fb06b7ee8225d33ccef88cdff0641c6b 100644 (file)
--- a/lisp/emacs-lisp/ewoc.el
+++ b/lisp/emacs-lisp/ewoc.el
@@ -280,7 +280,10 @@ be inserted at the bottom of the ewoc."
     ;; Return the ewoc
     new-ewoc))
 
-(defalias 'ewoc-data 'ewoc--node-data)
+(defalias 'ewoc-data 'ewoc--node-data
+  "Extract the data encapsulated by NODE and return it.
+
+\(fn NODE)")
 
 (defun ewoc-enter-first (ewoc data)
   "Enter DATA first in EWOC.
@@ -329,7 +332,7 @@ N counts from zero.  Return nil if there is less than N elements.
 If N is negative, return the -(N+1)th last element.
 Thus, (ewoc-nth dll 0) returns the first node,
 and (ewoc-nth dll -1) returns the last node.
-Use `ewoc--node-data' to extract the data from the node."
+Use `ewoc-data' to extract the data from the node."
   ;; Skip the header (or footer, if n is negative).
   (setq n (if (< n 0) (1- n) (1+ n)))
   (ewoc--filter-hf-nodes ewoc