diff options
| author | Lars Magne Ingebrigtsen | 2012-04-11 16:26:55 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2012-04-11 16:26:55 +0200 |
| commit | b49f886ef4fc71f0f3719edc0e5a14b700df4d5c (patch) | |
| tree | 4761bef69d2b5e4a5f571f0e64304a41d0863ce5 | |
| parent | a63067fcfe742d5c16eb53cf1a603e23c37b0a3a (diff) | |
| download | emacs-b49f886ef4fc71f0f3719edc0e5a14b700df4d5c.tar.gz emacs-b49f886ef4fc71f0f3719edc0e5a14b700df4d5c.zip | |
* vcursor.el (vcursor-move): Increase the priority of the overlay.
Fixes: debbugs:9663
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/vcursor.el | 7 |
2 files changed, 9 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cde2c91be3d..20574a95e9a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-04-11 Lars Magne Ingebrigtsen <larsi@gnus.org> | ||
| 2 | |||
| 3 | * vcursor.el (vcursor-move): Increase the priority of the overlay | ||
| 4 | (bug#9663). | ||
| 5 | |||
| 1 | 2012-04-11 Deniz Dogan <deniz.a.m.dogan@gmail.com> | 6 | 2012-04-11 Deniz Dogan <deniz.a.m.dogan@gmail.com> |
| 2 | 7 | ||
| 3 | * net/rcirc.el (rcirc-kill-channel-buffers): New variable. | 8 | * net/rcirc.el (rcirc-kill-channel-buffers): New variable. |
diff --git a/lisp/vcursor.el b/lisp/vcursor.el index 95928ebe87a..19cb7a9df8d 100644 --- a/lisp/vcursor.el +++ b/lisp/vcursor.el | |||
| @@ -656,12 +656,13 @@ another window. With LEAVE-W, use the current `vcursor-window'." | |||
| 656 | (or window-system | 656 | (or window-system |
| 657 | (display-color-p) | 657 | (display-color-p) |
| 658 | (overlay-put vcursor-overlay 'before-string vcursor-string)) | 658 | (overlay-put vcursor-overlay 'before-string vcursor-string)) |
| 659 | (overlay-put vcursor-overlay 'face 'vcursor)) | 659 | (overlay-put vcursor-overlay 'face 'vcursor) |
| 660 | ;; 200 is purely an arbitrary "high" number. See bug#9663. | ||
| 661 | (overlay-put vcursor-overlay 'priority 200)) | ||
| 660 | (or leave-w (vcursor-find-window nil t)) | 662 | (or leave-w (vcursor-find-window nil t)) |
| 661 | ;; vcursor-window now contains the right buffer | 663 | ;; vcursor-window now contains the right buffer |
| 662 | (or (pos-visible-in-window-p pt vcursor-window) | 664 | (or (pos-visible-in-window-p pt vcursor-window) |
| 663 | (set-window-point vcursor-window pt))) | 665 | (set-window-point vcursor-window pt)))) |
| 664 | ) | ||
| 665 | 666 | ||
| 666 | (defun vcursor-insert (text) | 667 | (defun vcursor-insert (text) |
| 667 | "Insert TEXT, respecting `vcursor-interpret-input'." | 668 | "Insert TEXT, respecting `vcursor-interpret-input'." |