From 8896f22d605f01bfb113f13951591aca0cf1af31 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 7 Sep 1997 03:40:29 +0000 Subject: [PATCH] (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. --- lisp/textmodes/ispell.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) 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)))) -- 2.39.2