[Emacs-diffs] emacs/lisp ChangeLog international/quail.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/02/12 18:13:23

Modified files:
        lisp           : ChangeLog 
        lisp/international: quail.el 

Log message:
        (quail-make-guidance-frame): Remove the `parent-id' parameter.
        (quail-show-guidance): Make the new window dedicated.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15314&r2=1.15315
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/quail.el?cvsroot=emacs&r1=1.170&r2=1.171

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15314
retrieving revision 1.15315
diff -u -b -r1.15314 -r1.15315
--- ChangeLog   12 Feb 2009 16:09:48 -0000      1.15314
+++ ChangeLog   12 Feb 2009 18:13:20 -0000      1.15315
@@ -1,3 +1,9 @@
+2009-02-12  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>
 
        * international/characters.el (?1, ?2, ?3, ?4, ?7, ?^):

Index: international/quail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/international/quail.el,v
retrieving revision 1.170
retrieving revision 1.171
diff -u -b -r1.170 -r1.171
--- international/quail.el      16 Jan 2009 12:35:49 -0000      1.170
+++ international/quail.el      12 Feb 2009 18:13:22 -0000      1.171
@@ -1927,6 +1927,10 @@
                    (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))
@@ -1999,8 +2003,9 @@
                (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