Mercurial > emacs
changeset 19785:e5c1c49b6be5
(ispell-command-loop):
Restore dedicated flg of selected window.
(ispell-overlay-window): Move dedicated flag of old window
into the bottom of the two windows made from it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 07 Sep 1997 03:40:29 +0000 |
| parents | da913efb39cf |
| children | 072dbf80f9e0 |
| files | lisp/textmodes/ispell.el |
| diffstat | 1 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el Sun Sep 07 03:39:44 1997 +0000 +++ b/lisp/textmodes/ispell.el Sun Sep 07 03:40:29 1997 +0000 @@ -1036,6 +1036,8 @@ ispell-choices-win-default-height)) (command-characters '( ? ?i ?a ?A ?r ?R ?? ?x ?X ?q ?l ?u ?m )) (skipped 0) + (window (selected-window)) + (dedicated (window-dedicated-p (selected-window))) char num result textwin highlighted) ;; setup the *Choices* buffer with valid data. @@ -1263,7 +1265,8 @@ (if ispell-highlight-p ; unhighlight (save-window-excursion (select-window textwin) - (ispell-highlight-spelling-error start end)))))) + (ispell-highlight-spelling-error start end))) + (set-window-dedicated-p window dedicated)))) ;;;###autoload @@ -1497,6 +1500,12 @@ (if (string-match "19\.9.*Lucid" (emacs-version)) (setq height (1+ height))) (split-window nil height) + ;; The lower of the two windows is the logical successor + ;; of the original window, so move the dedicated flag to there. + ;; The new upper window should not be dedicated. + (set-window-dedicated-p (next-window) + (window-dedicated-p (selected-window))) + (set-window-dedicated-p (selected-window) nil) (set-window-start (next-window) top))))