From: Miles Bader Date: Thu, 14 Mar 2002 08:09:30 +0000 (+0000) Subject: (rfn-eshadow-update-overlay): Bind `inhibit-point-motion-hooks' to t while X-Git-Tag: ttn-vms-21-2-B4~16185 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17230c90f3e10a12ba7e009f021d6d1df99019ab;p=emacs.git (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 5a5fc5b609d..218a8ce9b85 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-03-14 Miles Bader + + * 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` * progmodes/etags.el (tag-exact-file-name-match-p) diff --git a/lisp/rfn-eshadow.el b/lisp/rfn-eshadow.el index 827708255ed..e88dc8f3aaf 100644 --- 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 ;; 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)))))) ;;; Note this definition must be at the end of the file, because