Re: ispell help in minibuffer not visible

[John Paul Wallington]

Christoph Conrad <address@hidden> wrote:

> In GNU Emacs 21.3.50.10 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
>  of 2003-03-17 on linux
> configured using `configure '--with-x''
>
> emacs -q --no-site-file
> <RETURN>
> foobar   <= type that word!
> M-x ispell-buffer <RETURN>
> ?
> => The help isn't visible.

Same symptoms with `emerge-show-file-name'.  Maybe the window isn't
being redisplayed because Fredisplay_window wont redisplay minibuffer
when inactive?  The below change (for demonstration purposes only)
shows how to avoid that by using a non-minibuffer in the minibuffer
window.



Index: ispell.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.137
diff -u -r1.137 ispell.el
--- ispell.el   4 Feb 2003 13:30:44 -0000       1.137
+++ ispell.el   17 Mar 2003 01:17:48 -0000
@@ -1878,23 +1878,25 @@
          (help-3 (concat "[u]ncapitalized insert into dict.  "
                          "Type 'x C-h d ispell-help' for more help")))
       (save-window-excursion
-       (if ispell-help-in-bufferp
-           (progn
-             (ispell-overlay-window 4)
-             (switch-to-buffer (get-buffer-create "*Ispell Help*"))
-             (insert (concat help-1 "\n" help-2 "\n" help-3))
-             (sit-for 5)
-             (kill-buffer "*Ispell Help*"))
-         (unwind-protect
+       (let ((helpbuf (get-buffer-create "*Ispell Help*")))
+         (if ispell-help-in-bufferp
              (progn
-               (select-window (minibuffer-window))
-               (erase-buffer)
-               (message nil)
-               ;;(set-minibuffer-window (selected-window))
-               (enlarge-window 2)
+               (ispell-overlay-window 4)
+               (switch-to-buffer helpbuf)
                (insert (concat help-1 "\n" help-2 "\n" help-3))
-               (sit-for 5))
-           (erase-buffer)))))))
+               (sit-for 5)
+               (kill-buffer "*Ispell Help*"))
+           (unwind-protect
+               (progn
+                 (set-window-buffer (minibuffer-window) helpbuf)
+                 (select-window (minibuffer-window))
+                 (erase-buffer)
+                 (message nil)
+                 ;;(set-minibuffer-window (selected-window))
+                 (enlarge-window 2)
+                 (insert (concat help-1 "\n" help-2 "\n" help-3))
+                 (sit-for 5))
+             (kill-buffer "*Ispell Help*"))))))))
 
 
 (defun lookup-words (word &optional lookup-dict)