diff options
author | Stefan Monnier <[email protected]> | 2009-02-12 18:13:20 +0000 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2009-02-12 18:13:20 +0000 |
commit | f58bd666fc080a6bbccf1a6a633fd6b547fbe936 (patch) | |
tree | ac07cbdd98e12d81f55bec45dd1e5a36c67bfe5c /lisp | |
parent | 4eb97232606f1501f76e6f361f14dd6092edaf37 (diff) |
(quail-make-guidance-frame): Remove the `parent-id' parameter.
(quail-show-guidance): Make the new window dedicated.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 6 | ||||
-rw-r--r-- | lisp/international/quail.el | 13 |
2 files changed, 15 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7220ac1b08..8adb55338e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-02-12 Stefan Monnier <[email protected]> + + * 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 <[email protected]> * international/characters.el (?1, ?2, ?3, ?4, ?7, ?^): diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 494c3301ed..67c3cfb481 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)) |