procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Comple fix for Bug#32550

Browse source 
* lisp/net/tramp.el (tramp-rfn-eshadow-update-overlay):
Use `save-excursion'.  This completes the fix of Bug#32550.
This commit is contained in:
Michael Albinus 2018-10-01 14:17:27 +02:00
parent 35b56a24a0
commit 508c40ef1d
1 changed files with 14 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
lisp/net/tramp.el
View file

@ -1941,21 +1941,20 @@ been set up by `rfn-eshadow-setup-minibuffer'."
(minibuffer-prompt-end))) (minibuffer-prompt-end)))
;; We do not want to send any remote command. ;; We do not want to send any remote command.
(non-essential t)) (non-essential t))
(when (when (tramp-tramp-file-p (buffer-substring end (point-max)))
(tramp-tramp-file-p (save-excursion
(buffer-substring-no-properties end (point-max))) (save-restriction
(save-restriction (narrow-to-region
(narrow-to-region (1+ (or (string-match
(1+ (or (string-match (tramp-rfn-eshadow-update-overlay-regexp)
(tramp-rfn-eshadow-update-overlay-regexp) (buffer-string) end)
(buffer-string) end) end))
end)) (point-max))
(point-max)) (let ((rfn-eshadow-overlay tramp-rfn-eshadow-overlay)
(let ((rfn-eshadow-overlay tramp-rfn-eshadow-overlay) (rfn-eshadow-update-overlay-hook nil)
(rfn-eshadow-update-overlay-hook nil) file-name-handler-alist)
file-name-handler-alist) (move-overlay rfn-eshadow-overlay (point-max) (point-max))
(move-overlay rfn-eshadow-overlay (point-max) (point-max)) (rfn-eshadow-update-overlay))))))))
(rfn-eshadow-update-overlay)))))))
(add-hook 'rfn-eshadow-update-overlay-hook (add-hook 'rfn-eshadow-update-overlay-hook
'tramp-rfn-eshadow-update-overlay) 'tramp-rfn-eshadow-update-overlay)