diff options
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/rfn-eshadow.el | 8 |
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 @@ | |||
| 1 | 2001-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 | |||
| 1 | 2001-10-05 Miles Bader <miles@gnu.org> | 9 | 2001-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) |