[Emacs-diffs] Changes to emacs/lisp/rfn-eshadow.el

[Miles Bader]

Index: emacs/lisp/rfn-eshadow.el
diff -c emacs/lisp/rfn-eshadow.el:1.6 emacs/lisp/rfn-eshadow.el:1.7
*** emacs/lisp/rfn-eshadow.el:1.6       Tue Dec 11 02:34:10 2001
--- emacs/lisp/rfn-eshadow.el   Thu Mar 14 03:09:19 2002
***************
*** 1,6 ****
  ;;; rfn-eshadow.el --- Highlight `shadowed' part of read-file-name input text
  ;;
! ;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
  ;;
  ;; Author: Miles Bader <address@hidden>
  ;; Keywords: convenience
--- 1,6 ----
  ;;; rfn-eshadow.el --- Highlight `shadowed' part of read-file-name input text
  ;;
! ;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.
  ;;
  ;; Author: Miles Bader <address@hidden>
  ;; Keywords: convenience
***************
*** 181,193 ****
    ;; 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)))))
  
  
  ;;; Note this definition must be at the end of the file, because
--- 181,194 ----
    ;; substitute-in-file-name would expand; currently it just assumes any
    ;; environment variable contains an absolute filename.
    (save-excursion
!     (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