diff options
| author | Miles Bader <miles@gnu.org> | 2002-03-14 08:09:30 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2002-03-14 08:09:30 +0000 |
| commit | 17230c90f3e10a12ba7e009f021d6d1df99019ab (patch) | |
| tree | 776a8341fd7f7751b53f40c6a468100c0a61bb4d /lisp/rfn-eshadow.el | |
| parent | 73792b515e72e982f43f25537759065d95003970 (diff) | |
| download | emacs-17230c90f3e10a12ba7e009f021d6d1df99019ab.tar.gz | |
(rfn-eshadow-update-overlay): Bind `inhibit-point-motion-hooks' to t while
messing around, to avoid getting hosed by our own intangible property.
Diffstat (limited to 'lisp/rfn-eshadow.el')
| -rw-r--r-- | lisp/rfn-eshadow.el | 17 |
1 files changed, 9 insertions, 8 deletions
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 <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)))))) ;;; Note this definition must be at the end of the file, because |