Mercurial > emacs
changeset 101983:70db2d7b280c
(quail-make-guidance-frame): Remove the `parent-id' parameter.
(quail-show-guidance): Make the new window dedicated.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 12 Feb 2009 18:13:20 +0000 |
| parents | f22ae19dd025 |
| children | 84b9607bddb0 |
| files | lisp/ChangeLog lisp/international/quail.el |
| diffstat | 2 files changed, 15 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Feb 12 16:09:48 2009 +0000 +++ b/lisp/ChangeLog Thu Feb 12 18:13:20 2009 +0000 @@ -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, ?^):
--- a/lisp/international/quail.el Thu Feb 12 16:09:48 2009 +0000 +++ b/lisp/international/quail.el Thu Feb 12 18:13:20 2009 +0000 @@ -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)) @@ -1990,7 +1994,7 @@ ;; 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 @@ (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))