andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
messing around, to avoid getting hosed by our own intangible property.
This commit is contained in:
Miles Bader 2002-03-14 08:09:30 +00:00
parent 73792b515e
commit 17230c90f3
2 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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)

17
lisp/rfn-eshadow.el
View file

@ -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