From f58bd666fc080a6bbccf1a6a633fd6b547fbe936 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 12 Feb 2009 18:13:20 +0000 Subject: [PATCH] (quail-make-guidance-frame): Remove the `parent-id' parameter. (quail-show-guidance): Make the new window dedicated. --- lisp/ChangeLog | 6 ++++++ lisp/international/quail.el | 13 +++++++++---- 2 files changed, 15 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7220ac1b08b..8adb55338ed 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-02-12 Stefan Monnier + + * 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 * international/characters.el (?1, ?2, ?3, ?4, ?7, ?^): diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 494c3301ed0..67c3cfb4815 100644 --- 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)) -- 2.39.5