# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1016093359 0
# Node ID 89b76ba02505d9b586efe0f2b8cea09ae171dcc9
# Parent  7c30096be31ebd787295b9191854f3f37a004bad
(rfn-eshadow-update-overlay): Bind `inhibit-point-motion-hooks' to t while
messing around, to avoid getting hosed by our own intangible property.

diff -r 7c30096be31e -r 89b76ba02505 lisp/rfn-eshadow.el
--- a/lisp/rfn-eshadow.el	Wed Mar 13 23:05:48 2002 +0000
+++ b/lisp/rfn-eshadow.el	Thu Mar 14 08:09:19 2002 +0000
@@ -1,6 +1,6 @@
 ;;; rfn-eshadow.el --- Highlight `shadowed' part of read-file-name input text
 ;;
-;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.
 ;;
 ;; Author: Miles Bader <miles@gnu.org>
 ;; Keywords: convenience
@@ -181,13 +181,14 @@
   ;; substitute-in-file-name would expand; currently it just assumes any
   ;; environment variable contains an absolute filename.
   (save-excursion
-    (goto-char (minibuffer-prompt-end))
-    ;; Update the overlay (which will evaporate if it's empty).
-    (move-overlay rfn-eshadow-overlay
-		  (point)
-		  (if (looking-at rfn-eshadow-regexp)
-		      (match-end 1)
-		    (point)))))
+    (let ((inhibit-point-motion-hooks t))
+      (goto-char (minibuffer-prompt-end))
+      ;; Update the overlay (which will evaporate if it's empty).
+      (move-overlay rfn-eshadow-overlay
+		    (point)
+		    (if (looking-at rfn-eshadow-regexp)
+			(match-end 1)
+		      (point))))))
 
 
 ;;; Note this definition must be at the end of the file, because