* lisp/vcursor.el (vcursor-get-char-count): Preserve point
Copyright-paperwork-exempt: yes
This commit is contained in:
parent
9d3d972f97
commit
20ab639d89
1 changed files with 3 additions and 3 deletions
|
@ -788,9 +788,9 @@ out how much to copy."
|
||||||
|
|
||||||
(vcursor-check)
|
(vcursor-check)
|
||||||
(with-current-buffer (overlay-buffer vcursor-overlay)
|
(with-current-buffer (overlay-buffer vcursor-overlay)
|
||||||
(let ((start (goto-char (overlay-start vcursor-overlay))))
|
(save-excursion
|
||||||
(- (progn (apply func args) (point)) start)))
|
(let ((start (goto-char (overlay-start vcursor-overlay))))
|
||||||
)
|
(- (progn (apply func args) (point)) start)))))
|
||||||
|
|
||||||
;; Make sure the virtual cursor is active. Unless arg is non-nil,
|
;; Make sure the virtual cursor is active. Unless arg is non-nil,
|
||||||
;; report an error if it is not.
|
;; report an error if it is not.
|
||||||
|
|
Loading…
Add table
Reference in a new issue