# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1192747745 0
# Node ID ad84adc0e027f010caaca18d4074a4a5da5ef9e5
# Parent  ca2b443907f8366b88955f71a0191b0b93158840
From_ Johan Bockgrd, <http://article.gmane.org/gmane.emacs.devel/81056>
* net/tramp.el (tramp-rfn-eshadow-update-overlay): Save excursion.
Use `save-restriction' rather than `widen'.

diff -r ca2b443907f8 -r ad84adc0e027 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Oct 18 22:07:34 2007 +0000
+++ b/lisp/ChangeLog	Thu Oct 18 22:49:05 2007 +0000
@@ -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 #.
diff -r ca2b443907f8 -r ad84adc0e027 lisp/net/tramp.el
--- a/lisp/net/tramp.el	Thu Oct 18 22:07:34 2007 +0000
+++ b/lisp/net/tramp.el	Thu Oct 18 22:49:05 2007 +0000
@@ -2092,12 +2092,13 @@
 			  (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