diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-09-07 03:40:29 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-09-07 03:40:29 +0000 |
commit | c2e14d63a31b4b63414ae4fcaddb404dfb40aee2 (patch) | |
tree | 42bb274a721f0d67ed432371f2bc09c740fe97d7 | |
parent | 5af6edaf8352dff0b01870c61798d568bd54806d (diff) | |
download | emacs-c2e14d63a31b4b63414ae4fcaddb404dfb40aee2.tar.gz |
(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.
-rw-r--r-- | lisp/textmodes/ispell.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 79ca7737979..727a3653f10 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1036,6 +1036,8 @@ used." 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 @@ used." (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 @@ scrolling the current window. Leave the new window selected." (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)))) |