(quail-make-guidance-frame): Remove the `parent-id' parameter.

(quail-show-guidance): Make the new window dedicated.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7220ac1b08b426bf3881fb0fcc61b3b108f6f234..8adb55338ed3577a85f7cb5cfec28e613be8ff31 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-02-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * international/quail.el (quail-make-guidance-frame): Remove the
+       `parent-id' parameter.
+       (quail-show-guidance): Make the new window dedicated.
+
 2009-02-12  Juanma Barranquero  <lekktu@gmail.com>
 
        * international/characters.el (?1, ?2, ?3, ?4, ?7, ?^):

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 494c3301ed0c0ef8f806bbaee2ddb83694ae6fb0..67c3cfb4815cd393ab7754ad88318cf188420d43 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1927,6 +1927,10 @@ Remaining args are for FUNC."
                    (frame-char-height) (* internal-border 2) (* border 2))))
     (if (< newtop 0)
        (setq newtop (+ top (frame-pixel-height) internal-border border)))
+    ;; If I leave the `parent-id' parameter, my frame ends up with 13 lines
+    ;; rather than just 1.  Not sure what is really going on, but
+    ;; clearly this parameter is not needed.  --Stef
+    (setq fparam (delq (assoc 'parent-id fparam) fparam))
     (make-frame (append '((user-position . t) (height . 1)
                          (minibuffer)
                          (menu-bar-lines . 0) (tool-bar-lines . 0))
@@ -1990,7 +1994,7 @@ minibuffer and the selected frame has no other windows)."
            ;; window system.
            (let ((guidance quail-guidance-str))
              (or (frame-live-p quail-guidance-frame)
-                 (setq quail-guidance-frame 
+                 (setq quail-guidance-frame
                        (quail-make-guidance-frame)))
              (or (buffer-live-p quail-guidance-buf)
                  (setq quail-guidance-buf
@@ -1999,14 +2003,15 @@ minibuffer and the selected frame has no other windows)."
                (erase-buffer)
                (setq cursor-type nil)
                (insert guidance))
-             (set-window-buffer (frame-root-window quail-guidance-frame)
-                                quail-guidance-buf)
+              (let ((win (frame-root-window quail-guidance-frame)))
+                (set-window-buffer win quail-guidance-buf)
+                (set-window-dedicated-p win t))
              (quail-minibuffer-message
               (format " [%s]" current-input-method-title)))
          ;; Show the guidance in the next line of the currrent
          ;; minibuffer.
          (quail-minibuffer-message
-          (format "  [%s]\n%s" 
+          (format "  [%s]\n%s"
                   current-input-method-title quail-guidance-str)))
       ;; Show the guidance in echo area without logging.
       (let ((message-log-max nil))