[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: |
Thu, 11 May 2006 08:01:02 +0000 |
Index: emacs/lisp/emacs-lisp/ewoc.el
diff -u emacs/lisp/emacs-lisp/ewoc.el:1.20 emacs/lisp/emacs-lisp/ewoc.el:1.21
--- emacs/lisp/emacs-lisp/ewoc.el:1.20 Wed May 10 08:00:33 2006
+++ emacs/lisp/emacs-lisp/ewoc.el Thu May 11 08:01:02 2006
@@ -235,14 +235,13 @@
(defun ewoc--refresh-node (pp node)
"Redisplay the element represented by NODE using the pretty-printer PP."
(let ((inhibit-read-only t))
- (save-excursion
- ;; First, remove the string from the buffer:
- (delete-region (ewoc--node-start-marker node)
- (1- (marker-position
- (ewoc--node-start-marker (ewoc--node-right node)))))
- ;; Calculate and insert the string.
- (goto-char (ewoc--node-start-marker node))
- (funcall pp (ewoc--node-data node)))))
+ ;; First, remove the string from the buffer:
+ (delete-region (ewoc--node-start-marker node)
+ (1- (marker-position
+ (ewoc--node-start-marker (ewoc--node-right node)))))
+ ;; Calculate and insert the string.
+ (goto-char (ewoc--node-start-marker node))
+ (funcall pp (ewoc--node-data node))))
;;; ===========================================================================
;;; Public members of the Ewoc package
@@ -361,10 +360,11 @@
(ewoc--set-buffer-bind-dll-let* ewoc
((footer (ewoc--footer ewoc))
(node (ewoc--node-nth dll 1)))
- (while (not (eq node footer))
- (if (apply map-function (ewoc--node-data node) args)
- (ewoc--refresh-node (ewoc--pretty-printer ewoc) node))
- (setq node (ewoc--node-next dll node)))))
+ (save-excursion
+ (while (not (eq node footer))
+ (if (apply map-function (ewoc--node-data node) args)
+ (ewoc--refresh-node (ewoc--pretty-printer ewoc) node))
+ (setq node (ewoc--node-next dll node))))))
(defun ewoc-filter (ewoc predicate &rest args)
"Remove all elements in EWOC for which PREDICATE returns nil.
@@ -473,8 +473,9 @@
"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))))
+ (save-excursion
+ (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.
@@ -572,8 +573,9 @@
"Set the HEADER and FOOTER of EWOC."
(setf (ewoc--node-data (ewoc--header ewoc)) header)
(setf (ewoc--node-data (ewoc--footer ewoc)) footer)
- (ewoc--refresh-node 'insert (ewoc--header ewoc))
- (ewoc--refresh-node 'insert (ewoc--footer ewoc)))
+ (save-excursion
+ (ewoc--refresh-node 'insert (ewoc--header ewoc))
+ (ewoc--refresh-node 'insert (ewoc--footer ewoc))))
(provide 'ewoc)
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el, Thien-Thi Nguyen, 2006/05/05
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el, Thien-Thi Nguyen, 2006/05/10
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el,
Thien-Thi Nguyen <=
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el, Thien-Thi Nguyen, 2006/05/12
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el, Thien-Thi Nguyen, 2006/05/12
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el, Thien-Thi Nguyen, 2006/05/17
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el, Thien-Thi Nguyen, 2006/05/17
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el, Thien-Thi Nguyen, 2006/05/18
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el, Thien-Thi Nguyen, 2006/05/21
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el, Thien-Thi Nguyen, 2006/05/22
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el, Thien-Thi Nguyen, 2006/05/23
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el, Thien-Thi Nguyen, 2006/05/26
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el, Thien-Thi Nguyen, 2006/05/27