diff options
author | Andrii Kolomoiets <andreyk.mad@gmail.com> | 2020-09-05 22:18:59 +0300 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-09-18 11:53:32 -0400 |
commit | a1d9463ae7b00623bb52186e92be6d3388ca188b (patch) | |
tree | 4b447a996c33df8f05b1b0444624183c67c86a32 /lisp/vc/vc-dir.el | |
parent | d470cff770db7309f330528b0cc7b21514caff91 (diff) | |
download | emacs-a1d9463ae7b00623bb52186e92be6d3388ca188b.tar.gz |
Save and restore point in ewoc-invalidate
* lisp/emacs-lisp/ewoc.el (ewoc--refresh-node): Save and restore point line
and column offset.
(eowc-map) (ewoc--invalidate) (ewoc-set-hf): Don't use save-excursion
* lisp/vc/vc-dir.el (vc-dir-update): Don't save/restore point on calling
'ewoc-invalidate'.
Diffstat (limited to 'lisp/vc/vc-dir.el')
-rw-r--r-- | lisp/vc/vc-dir.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/vc/vc-dir.el b/lisp/vc/vc-dir.el index 6c219005cea..cdf8ab984e8 100644 --- a/lisp/vc/vc-dir.el +++ b/lisp/vc/vc-dir.el @@ -451,11 +451,7 @@ If NOINSERT, ignore elements on ENTRIES which are not in the ewoc." (setf (vc-dir-fileinfo->state (ewoc-data node)) (nth 1 entry)) (setf (vc-dir-fileinfo->extra (ewoc-data node)) (nth 2 entry)) (setf (vc-dir-fileinfo->needs-update (ewoc-data node)) nil) - ;; `ewoc-invalidate' will kill line and insert new text, - ;; let's keep point column. - (let ((p (point))) - (ewoc-invalidate vc-ewoc node) - (goto-char p))) + (ewoc-invalidate vc-ewoc node)) ;; If the state is nil, the file does not exist ;; anymore, so remember the entry so we can remove ;; it after we are done inserting all ENTRIES. |