From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 7 Sep 1997 03:40:29 +0000 (+0000)
Subject: (ispell-command-loop):
X-Git-Tag: emacs-20.1~163
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8896f22d605f01bfb113f13951591aca0cf1af31;p=emacs.git

(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.
---

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))))