(rfn-eshadow-update-overlay): Bind `inhibit-point-motion-hooks' to t while

messing around, to avoid getting hosed by our own intangible property.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5a5fc5b609d64fac1d567c9b766e9a7568fc6ab9..218a8ce9b859d17d82dd4628ad1c8c4ed2c5a018 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-03-14  Miles Bader  <miles@gnu.org>
+
+       * rfn-eshadow.el (rfn-eshadow-update-overlay): Bind
+       `inhibit-point-motion-hooks' to t while messing around, to avoid
+       getting hosed by our own intangible property.
+
 2002-03-13  Francesco Potorti`  <pot@gnu.org>
 
        * progmodes/etags.el (tag-exact-file-name-match-p)

diff --git a/lisp/rfn-eshadow.el b/lisp/rfn-eshadow.el
index 827708255ed1a8cd3af031e859cefdd31b4c7ee7..e88dc8f3aafbb9c5178cfe9d925e32acdfb43b4a 100644 (file)
--- a/lisp/rfn-eshadow.el
+++ b/lisp/rfn-eshadow.el
@@ -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 @@ been set up by `rfn-eshadow-setup-minibuffer'."
   ;; 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))))))
 
 \f
 ;;; Note this definition must be at the end of the file, because