mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(ispell-command-loop):

Browse source 
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.
This commit is contained in:
Richard M. Stallman 1997-09-07 03:40:29 +00:00
parent fc0678afb9
commit 8896f22d60
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/textmodes/ispell.el
View file

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