Mercurial > emacs
changeset 43893:89b76ba02505
(rfn-eshadow-update-overlay): Bind `inhibit-point-motion-hooks' to t while
messing around, to avoid getting hosed by our own intangible property.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 14 Mar 2002 08:09:19 +0000 |
| parents | 7c30096be31e |
| children | 890d94dc6535 |
| files | lisp/rfn-eshadow.el |
| diffstat | 1 files changed, 9 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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