[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog international/quail.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog international/quail.el |
Date: |
Thu, 12 Feb 2009 18:13:24 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog international/quail.el,
Stefan Monnier <=