aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiles Bader2001-10-05 15:19:23 +0000
committerMiles Bader2001-10-05 15:19:23 +0000
commita01b78312abcb6cfc8ed0211d9640284e2f4da2a (patch)
tree424cb0e54e1a70b0f443b67e61d266c75cd687b0
parent6d74d713e031ebb2bb43453e4d471e6915bf11de (diff)
downloademacs-a01b78312abcb6cfc8ed0211d9640284e2f4da2a.tar.gz
emacs-a01b78312abcb6cfc8ed0211d9640284e2f4da2a.zip
(rfn-eshadow-update-overlay): Use `minibuffer-prompt-end'.
-rw-r--r--lisp/ChangeLog8
-rw-r--r--lisp/rfn-eshadow.el8
2 files changed, 10 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f4574fd73b..2f14ba531f5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
12001-10-06 Miles Bader <miles@gnu.org>
2
3 * rfn-eshadow.el (rfn-eshadow-update-overlay): Use
4 `minibuffer-prompt-end'.
5
6 * simple.el (previous-matching-history-element): Fix misplaced
7 parentheses.
8
12001-10-05 Miles Bader <miles@gnu.org> 92001-10-05 Miles Bader <miles@gnu.org>
2 10
3 * rfn-eshadow.el: New file. 11 * rfn-eshadow.el: New file.
diff --git a/lisp/rfn-eshadow.el b/lisp/rfn-eshadow.el
index bcc5dd7a8d1..38af012ee6b 100644
--- a/lisp/rfn-eshadow.el
+++ b/lisp/rfn-eshadow.el
@@ -180,13 +180,9 @@ been set up by `rfn-eshadow-setup-minibuffer'."
180 ;; This is not really a correct implementation; it won't always do the 180 ;; This is not really a correct implementation; it won't always do the
181 ;; right thing in the presence of environment variables that 181 ;; right thing in the presence of environment variables that
182 ;; substitute-in-file-name would expand; currently it just assumes any 182 ;; substitute-in-file-name would expand; currently it just assumes any
183 ;; environment variable contains an absolute filename. It doesn't 183 ;; environment variable contains an absolute filename.
184 ;; handle MS-DOS-type drive specs like substitute-in-file-name does.
185 (save-excursion 184 (save-excursion
186 ;; Note that this should use `minibuffer-prompt-end' instead of 185 (goto-char (minibuffer-prompt-end))
187 ;; `field-end', but for now we use the latter so that it works
188 ;; properly with old definitions of minibuffer-prompt-end.
189 (goto-char (field-end (point-min)))
190 ;; Update the overlay (which will evaporate if it's empty). 186 ;; Update the overlay (which will evaporate if it's empty).
191 (move-overlay rfn-eshadow-overlay 187 (move-overlay rfn-eshadow-overlay
192 (point) 188 (point)