aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2004-06-16 23:50:03 +0000
committerJuanma Barranquero2004-06-16 23:50:03 +0000
commit0111ab41ec5239b1d7d0aed44dac798ebaa963e5 (patch)
treec7cf8dd8f25d54dda1e70f1753404f7bae96a65d
parente8d1b5bf968e1691923bcc2e5afd57b9ebbf6c72 (diff)
downloademacs-0111ab41ec5239b1d7d0aed44dac798ebaa963e5.tar.gz
emacs-0111ab41ec5239b1d7d0aed44dac798ebaa963e5.zip
(ewoc-create, ewoc-map, ewoc-locate, ewoc-invalidate, ewoc-collect):
Doc fixes. (ewoc--create-node, ewoc--delete-node-internal): Fix typos in docstring.
-rw-r--r--lisp/ChangeLog7
-rw-r--r--lisp/emacs-lisp/ewoc.el51
2 files changed, 33 insertions, 25 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 45dc495ee96..f86847413fd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
12004-06-17 Juanma Barranquero <lektu@terra.es>
2
3 * emacs-lisp/ewoc.el (ewoc-create, ewoc-map, ewoc-locate)
4 (ewoc-invalidate, ewoc-collect): Doc fixes.
5 (ewoc--create-node, ewoc--delete-node-internal):
6 Fix typos in docstring.
7
12004-06-15 Luc Teirlinck <teirllm@auburn.edu> 82004-06-15 Luc Teirlinck <teirllm@auburn.edu>
2 9
3 * files.el (buffer-stale-function): Add hyperlink to emacs-xtra 10 * files.el (buffer-stale-function): Add hyperlink to emacs-xtra
diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el
index a0c2e3c0d70..a2cb4e9fe46 100644
--- a/lisp/emacs-lisp/ewoc.el
+++ b/lisp/emacs-lisp/ewoc.el
@@ -1,6 +1,7 @@
1;;; ewoc.el --- utility to maintain a view of a list of objects in a buffer 1;;; ewoc.el --- utility to maintain a view of a list of objects in a buffer
2 2
3;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation 3;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 04
4;; Free Software Foundation
4 5
5;; Author: Per Cederqvist <ceder@lysator.liu.se> 6;; Author: Per Cederqvist <ceder@lysator.liu.se>
6;; Inge Wallin <inge@lysator.liu.se> 7;; Inge Wallin <inge@lysator.liu.se>
@@ -244,7 +245,7 @@ BUT if it is the header or the footer in EWOC return nil instead."
244 245
245(defun ewoc--create-node (data pretty-printer pos) 246(defun ewoc--create-node (data pretty-printer pos)
246 "Call PRETTY-PRINTER with point set at POS in current buffer. 247 "Call PRETTY-PRINTER with point set at POS in current buffer.
247Remember the start position. Create a wrapper containing that 248Remember the start position. Create a wrapper containing that
248start position and the element DATA." 249start position and the element DATA."
249 (save-excursion 250 (save-excursion
250 ;; Remember the position as a number so that it doesn't move 251 ;; Remember the position as a number so that it doesn't move
@@ -263,7 +264,7 @@ start position and the element DATA."
263 264
264(defun ewoc--delete-node-internal (ewoc node) 265(defun ewoc--delete-node-internal (ewoc node)
265 "Delete a data string from EWOC. 266 "Delete a data string from EWOC.
266Can not be used on the footer. Returns the wrapper that is deleted. 267Can not be used on the footer. Returns the wrapper that is deleted.
267The start-marker in the wrapper is set to nil, so that it doesn't 268The start-marker in the wrapper is set to nil, so that it doesn't
268consume any more resources." 269consume any more resources."
269 (let ((dll (ewoc--dll ewoc)) 270 (let ((dll (ewoc--dll ewoc))
@@ -303,14 +304,14 @@ The ewoc will be inserted in the current buffer at the current position.
303 304
304PRETTY-PRINTER should be a function that takes one argument, an 305PRETTY-PRINTER should be a function that takes one argument, an
305element, and inserts a string representing it in the buffer (at 306element, and inserts a string representing it in the buffer (at
306point). The string PRETTY-PRINTER inserts may be empty or span 307point). The string PRETTY-PRINTER inserts may be empty or span
307several linse. A trailing newline will always be inserted 308several lines. A trailing newline will always be inserted
308automatically. The PRETTY-PRINTER should use insert, and not 309automatically. The PRETTY-PRINTER should use `insert', and not
309insert-before-markers. 310`insert-before-markers'.
310 311
311Optional third argument HEADER is a string that will always be 312Optional second argument HEADER is a string that will always be
312present at the top of the ewoc. HEADER should end with a 313present at the top of the ewoc. HEADER should end with a
313newline. Optionaly fourth argument FOOTER is similar, and will 314newline. Optional third argument FOOTER is similar, and will
314be inserted at the bottom of the ewoc." 315be inserted at the bottom of the ewoc."
315 (let ((new-ewoc 316 (let ((new-ewoc
316 (ewoc--create (current-buffer) 317 (ewoc--create (current-buffer)
@@ -394,9 +395,9 @@ MAP-FUNCTION is applied to the first element first.
394If MAP-FUNCTION returns non-nil the element will be refreshed (its 395If MAP-FUNCTION returns non-nil the element will be refreshed (its
395pretty-printer will be called once again). 396pretty-printer will be called once again).
396 397
397Note that the buffer for EWOC will be current buffer when MAP-FUNCTION 398Note that the buffer for EWOC will be the current buffer when
398is called. MAP-FUNCTION must restore the current buffer to BUFFER before 399MAP-FUNCTION is called. MAP-FUNCTION must restore the current
399it returns, if it changes it. 400buffer before it returns, if it changes it.
400 401
401If more than two arguments are given, the remaining 402If more than two arguments are given, the remaining
402arguments will be passed to MAP-FUNCTION." 403arguments will be passed to MAP-FUNCTION."
@@ -411,9 +412,9 @@ arguments will be passed to MAP-FUNCTION."
411(defun ewoc-filter (ewoc predicate &rest args) 412(defun ewoc-filter (ewoc predicate &rest args)
412 "Remove all elements in EWOC for which PREDICATE returns nil. 413 "Remove all elements in EWOC for which PREDICATE returns nil.
413Note that the buffer for EWOC will be current-buffer when PREDICATE 414Note that the buffer for EWOC will be current-buffer when PREDICATE
414is called. PREDICATE must restore the current buffer before it returns 415is called. PREDICATE must restore the current buffer before it returns
415if it changes it. 416if it changes it.
416The PREDICATE is called with the element as its first argument. If any 417The PREDICATE is called with the element as its first argument. If any
417ARGS are given they will be passed to the PREDICATE." 418ARGS are given they will be passed to the PREDICATE."
418 (ewoc--set-buffer-bind-dll-let* ewoc 419 (ewoc--set-buffer-bind-dll-let* ewoc
419 ((node (ewoc--node-nth dll 1)) 420 ((node (ewoc--node-nth dll 1))
@@ -428,7 +429,7 @@ ARGS are given they will be passed to the PREDICATE."
428(defun ewoc-locate (ewoc &optional pos guess) 429(defun ewoc-locate (ewoc &optional pos guess)
429 "Return the node that POS (a buffer position) is within. 430 "Return the node that POS (a buffer position) is within.
430POS may be a marker or an integer. It defaults to point. 431POS may be a marker or an integer. It defaults to point.
431GUESS should be a node that it is likely that POS is near. 432GUESS should be a node that it is likely to be near POS.
432 433
433If POS points before the first element, the first node is returned. 434If POS points before the first element, the first node is returned.
434If POS points after the last element, the last node is returned. 435If POS points after the last element, the last node is returned.
@@ -497,7 +498,7 @@ If the EWOC is empty, nil is returned."
497 498
498(defun ewoc-invalidate (ewoc &rest nodes) 499(defun ewoc-invalidate (ewoc &rest nodes)
499 "Refresh some elements. 500 "Refresh some elements.
500The pretty-printer that for EWOC will be called for all NODES." 501The pretty-printer set for EWOC will be called for all NODES."
501 (ewoc--set-buffer-bind-dll ewoc 502 (ewoc--set-buffer-bind-dll ewoc
502 (dolist (node nodes) 503 (dolist (node nodes)
503 (ewoc--refresh-node (ewoc--pretty-printer ewoc) node)))) 504 (ewoc--refresh-node (ewoc--pretty-printer ewoc) node))))
@@ -564,13 +565,13 @@ number of elements needs to be refreshed."
564(defun ewoc-collect (ewoc predicate &rest args) 565(defun ewoc-collect (ewoc predicate &rest args)
565 "Select elements from EWOC using PREDICATE. 566 "Select elements from EWOC using PREDICATE.
566Return a list of all selected data elements. 567Return a list of all selected data elements.
567PREDICATE is a function that takes a data element as its first argument. 568PREDICATE is a function that takes a data element as its first
568The elements on the returned list will appear in the same order as in 569argument. The elements on the returned list will appear in the
569the buffer. You should not rely on in which order PREDICATE is 570same order as in the buffer. You should not rely on the order of
570called. 571calls to PREDICATE.
571Note that the buffer the EWOC is displayed in is current-buffer 572Note that the buffer the EWOC is displayed in is the current
572when PREDICATE is called. If PREDICATE must restore current-buffer if 573buffer when PREDICATE is called. PREDICATE must restore it if it
573it changes it. 574changes it.
574If more than two arguments are given the 575If more than two arguments are given the
575remaining arguments will be passed to PREDICATE." 576remaining arguments will be passed to PREDICATE."
576 (ewoc--set-buffer-bind-dll-let* ewoc 577 (ewoc--set-buffer-bind-dll-let* ewoc