mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

From_ Johan Bockgrd, <http://article.gmane.org/gmane.emacs.devel/81056>

Browse Source 
* net/tramp.el (tramp-rfn-eshadow-update-overlay): Save excursion.
Use `save-restriction' rather than `widen'.
This commit is contained in:
Katsumi Yamaoka 2007-10-18 22:49:05 +00:00
parent 3278f20eee
commit bd31647430
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2007-10-18 Johan Bockg,Ae(Brd <bojohan@gnu.org>
* net/tramp.el (tramp-rfn-eshadow-update-overlay): Save excursion.
Use `save-restriction' rather than `widen'.
2007-10-18 Richard Stallman <rms@gnu.org>
* time.el (display-time-world-time-format): Display day # not month #.

13
lisp/net/tramp.el
View File

@ -2092,12 +2092,13 @@ been set up by `rfn-eshadow-setup-minibuffer'."
(symbol-value 'rfn-eshadow-overlay))
(funcall (symbol-function 'minibuffer-prompt-end)))))
(when (file-remote-p (buffer-substring-no-properties end (point-max)))
(narrow-to-region
(1+ (or (string-match "/" (buffer-string) end) end)) (point-max))
(let ((rfn-eshadow-overlay tramp-rfn-eshadow-overlay)
(rfn-eshadow-update-overlay-hook nil))
(funcall (symbol-function 'rfn-eshadow-update-overlay)))
(widen))))
(save-excursion
(save-restriction
(narrow-to-region
(1+ (or (string-match "/" (buffer-string) end) end)) (point-max))
(let ((rfn-eshadow-overlay tramp-rfn-eshadow-overlay)
(rfn-eshadow-update-overlay-hook nil))
(funcall (symbol-function 'rfn-eshadow-update-overlay))))))))
(when (boundp 'rfn-eshadow-update-overlay-hook)
(add-hook 'rfn-eshadow-update-overlay-hook