[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el
From: |
Thien-Thi Nguyen |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el |
Date: |
Sat, 11 Jun 2005 16:31:26 -0400 |
Index: emacs/lisp/emacs-lisp/ewoc.el
diff -c emacs/lisp/emacs-lisp/ewoc.el:1.13 emacs/lisp/emacs-lisp/ewoc.el:1.14
*** emacs/lisp/emacs-lisp/ewoc.el:1.13 Wed Jun 16 23:49:18 2004
--- emacs/lisp/emacs-lisp/ewoc.el Sat Jun 11 20:31:26 2005
***************
*** 264,270 ****
(defun ewoc--delete-node-internal (ewoc node)
"Delete a data string from EWOC.
! Can not be used on the footer. Returns the wrapper that is deleted.
The start-marker in the wrapper is set to nil, so that it doesn't
consume any more resources."
(let ((dll (ewoc--dll ewoc))
--- 264,270 ----
(defun ewoc--delete-node-internal (ewoc node)
"Delete a data string from EWOC.
! Can not be used on the footer. Return the wrapper that is deleted.
The start-marker in the wrapper is set to nil, so that it doesn't
consume any more resources."
(let ((dll (ewoc--dll ewoc))
***************
*** 334,358 ****
(defalias 'ewoc-data 'ewoc--node-data)
(defun ewoc-enter-first (ewoc data)
! "Enter DATA first in EWOC."
(ewoc--set-buffer-bind-dll ewoc
(ewoc-enter-after ewoc (ewoc--node-nth dll 0) data)))
(defun ewoc-enter-last (ewoc data)
! "Enter DATA last in EWOC."
(ewoc--set-buffer-bind-dll ewoc
(ewoc-enter-before ewoc (ewoc--node-nth dll -1) data)))
(defun ewoc-enter-after (ewoc node data)
"Enter a new element DATA after NODE in EWOC.
! Returns the new NODE."
(ewoc--set-buffer-bind-dll ewoc
(ewoc-enter-before ewoc (ewoc--node-next dll node) data)))
(defun ewoc-enter-before (ewoc node data)
"Enter a new element DATA before NODE in EWOC.
! Returns the new NODE."
(ewoc--set-buffer-bind-dll ewoc
(ewoc--node-enter-before
node
--- 334,360 ----
(defalias 'ewoc-data 'ewoc--node-data)
(defun ewoc-enter-first (ewoc data)
! "Enter DATA first in EWOC.
! Return the new node."
(ewoc--set-buffer-bind-dll ewoc
(ewoc-enter-after ewoc (ewoc--node-nth dll 0) data)))
(defun ewoc-enter-last (ewoc data)
! "Enter DATA last in EWOC.
! Return the new node."
(ewoc--set-buffer-bind-dll ewoc
(ewoc-enter-before ewoc (ewoc--node-nth dll -1) data)))
(defun ewoc-enter-after (ewoc node data)
"Enter a new element DATA after NODE in EWOC.
! Return the new node."
(ewoc--set-buffer-bind-dll ewoc
(ewoc-enter-before ewoc (ewoc--node-next dll node) data)))
(defun ewoc-enter-before (ewoc node data)
"Enter a new element DATA before NODE in EWOC.
! Return the new node."
(ewoc--set-buffer-bind-dll ewoc
(ewoc--node-enter-before
node
***************
*** 362,376 ****
(ewoc--node-start-marker node)))))
(defun ewoc-next (ewoc node)
! "Get the next node.
! Returns nil if NODE is nil or the last element."
(when node
(ewoc--filter-hf-nodes
ewoc (ewoc--node-next (ewoc--dll ewoc) node))))
(defun ewoc-prev (ewoc node)
! "Get the previous node.
! Returns nil if NODE is nil or the first element."
(when node
(ewoc--filter-hf-nodes
ewoc
--- 364,378 ----
(ewoc--node-start-marker node)))))
(defun ewoc-next (ewoc node)
! "Return the node in EWOC that follows NODE.
! Return nil if NODE is nil or the last element."
(when node
(ewoc--filter-hf-nodes
ewoc (ewoc--node-next (ewoc--dll ewoc) node))))
(defun ewoc-prev (ewoc node)
! "Return the node in EWOC that precedes NODE.
! Return nil if NODE is nil or the first element."
(when node
(ewoc--filter-hf-nodes
ewoc
***************
*** 497,512 ****
best-guess)))))))
(defun ewoc-invalidate (ewoc &rest nodes)
! "Refresh some elements.
! The pretty-printer set for EWOC will be called for all NODES."
(ewoc--set-buffer-bind-dll ewoc
(dolist (node nodes)
(ewoc--refresh-node (ewoc--pretty-printer ewoc) node))))
(defun ewoc-goto-prev (ewoc arg)
! "Move point to the ARGth previous element.
Don't move if we are at the first element, or if EWOC is empty.
! Returns the node we moved to."
(ewoc--set-buffer-bind-dll-let* ewoc
((node (ewoc-locate ewoc (point))))
(when node
--- 499,514 ----
best-guess)))))))
(defun ewoc-invalidate (ewoc &rest nodes)
! "Call EWOC's pretty-printer for each element in NODES.
! Delete current text first, thus effecting a \"refresh\"."
(ewoc--set-buffer-bind-dll ewoc
(dolist (node nodes)
(ewoc--refresh-node (ewoc--pretty-printer ewoc) node))))
(defun ewoc-goto-prev (ewoc arg)
! "Move point to the ARGth previous element in EWOC.
Don't move if we are at the first element, or if EWOC is empty.
! Return the node we moved to."
(ewoc--set-buffer-bind-dll-let* ewoc
((node (ewoc-locate ewoc (point))))
(when node
***************
*** 522,529 ****
(ewoc-goto-node ewoc node))))
(defun ewoc-goto-next (ewoc arg)
! "Move point to the ARGth next element.
! Returns the node (or nil if we just passed the last node)."
(ewoc--set-buffer-bind-dll-let* ewoc
((node (ewoc-locate ewoc (point))))
(while (and node (> arg 0))
--- 524,531 ----
(ewoc-goto-node ewoc node))))
(defun ewoc-goto-next (ewoc arg)
! "Move point to the ARGth next element in EWOC.
! Return the node (or nil if we just passed the last node)."
(ewoc--set-buffer-bind-dll-let* ewoc
((node (ewoc-locate ewoc (point))))
(while (and node (> arg 0))
***************
*** 535,541 ****
(ewoc-goto-node ewoc node)))
(defun ewoc-goto-node (ewoc node)
! "Move point to NODE."
(ewoc--set-buffer-bind-dll ewoc
(goto-char (ewoc--node-start-marker node))
(if goal-column (move-to-column goal-column))
--- 537,543 ----
(ewoc-goto-node ewoc node)))
(defun ewoc-goto-node (ewoc node)
! "Move point to NODE in EWOC."
(ewoc--set-buffer-bind-dll ewoc
(goto-char (ewoc--node-start-marker node))
(if goal-column (move-to-column goal-column))
***************
*** 586,592 ****
(defun ewoc-buffer (ewoc)
"Return the buffer that is associated with EWOC.
! Returns nil if the buffer has been deleted."
(let ((buf (ewoc--buffer ewoc)))
(when (buffer-name buf) buf)))
--- 588,594 ----
(defun ewoc-buffer (ewoc)
"Return the buffer that is associated with EWOC.
! Return nil if the buffer has been deleted."
(let ((buf (ewoc--buffer ewoc)))
(when (buffer-name buf) buf)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el,
Thien-Thi Nguyen <=