From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.devel Subject: Re: reverting CJK input methods Date: Fri, 30 Apr 2004 14:27:45 +0300 Organization: JURTA Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <87u0z1puxa.fsf@mail.jurta.org> References: <20040429.150303.42778779.wl@gnu.org> <200404300142.KAA01027@etlken.m17n.org> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: sea.gmane.org 1083339496 28243 80.91.224.253 (30 Apr 2004 15:38:16 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 30 Apr 2004 15:38:16 +0000 (UTC) Cc: emacs-devel@gnu.org, Kenichi Handa Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Fri Apr 30 17:37:56 2004 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BJa5L-0005wD-00 for ; Fri, 30 Apr 2004 17:37:55 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1BJa5J-0006JQ-00 for ; Fri, 30 Apr 2004 17:37:54 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1BJZwf-0004F4-UD for emacs-devel@quimby.gnus.org; Fri, 30 Apr 2004 11:28:57 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.30) id 1BJWr2-0002jq-RG for emacs-devel@gnu.org; Fri, 30 Apr 2004 08:10:56 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.30) id 1BJWZs-0000E8-7V for emacs-devel@gnu.org; Fri, 30 Apr 2004 07:53:43 -0400 Original-Received: from [199.232.41.8] (helo=mx20.gnu.org) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.30) id 1BJWNu-0006qi-Ou; Fri, 30 Apr 2004 07:40:50 -0400 Original-Received: from [66.33.219.19] (helo=spoon.dreamhost.com) by mx20.gnu.org with esmtp (Exim 4.30) id 1BJWE7-0002Wq-3D; Fri, 30 Apr 2004 07:30:43 -0400 Original-Received: from mail.jurta.org (80-235-32-226-dsl.mus.estpak.ee [80.235.32.226]) by spoon.dreamhost.com (Postfix) with ESMTP id 6FB8713D81A; Fri, 30 Apr 2004 04:30:46 -0700 (PDT) Original-To: Miles Bader In-Reply-To: (Miles Bader's message of "30 Apr 2004 11:59:47 +0900") User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3.50 (gnu/linux) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:22446 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:22446 Miles Bader writes: > I think this would be nice to add to the output for `C-u C-x =3D'. > > character: =F6 (04366, 2294, 0x8f6, U+00F6) > charset: latin-iso8859-1 > (Right-Hand Part of Latin Alphabet 1 (ISO/IEC 8859-1): ISO-IR-100.) > ... > keystroke: =F6 can be input by typing ";" > (using the `german' input method) > ... This would be very useful. BTW, another useful feature of `describe-char' is the ability to display information on a character displayed in the *Help* buffer itself. The recent changes in descr-text.el allow to do this, but buttons in the *Help* buffer become broken, because only text properties are copied, but not overlays. To avoid problems of self-referencing to the same buffer, I propose to display information on characters of the *Help* buffer in a separate buffer whose name is generated by `(generate-new-buffer-name "*Help*")': Index: lisp/descr-text.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/emacs/emacs/lisp/descr-text.el,v retrieving revision 1.21 diff -u -r1.21 descr-text.el --- lisp/descr-text.el 21 Apr 2004 01:25:17 -0000 1.21 +++ lisp/descr-text.el 30 Apr 2004 11:04:11 -0000 @@ -474,7 +474,6 @@ standard-display-table)) (disp-vector (and display-table (aref display-table char))) (multibyte-p enable-multibyte-characters) - text-prop-description item-list max-width unicode) (if (eq charset 'unknown) (setq item-list @@ -583,15 +582,10 @@ (cons (list "Unicode data" " ") unicodedata)))))) (setq max-width (apply #'max (mapcar #'(lambda (x) (length (car x))) item-list))) - (setq text-prop-description - (with-temp-buffer - (let ((buf (current-buffer))) - (save-excursion - (set-buffer buffer) - (describe-text-properties pos buf))) - (buffer-string))) - - (with-output-to-temp-buffer "*Help*" + (with-output-to-temp-buffer + (if (eq (current-buffer) (get-buffer "*Help*")) + (generate-new-buffer-name "*Help*") + "*Help*") (with-current-buffer standard-output (set-buffer-multibyte multibyte-p) (let ((formatter (format "%%%ds:" max-width))) @@ -665,8 +659,10 @@ (insert "\nSee the variable `reference-point-alist' for " "the meaning of the rule.\n")) =20 - (insert text-prop-description) - (describe-text-mode))))) + (let ((output (current-buffer))) + (with-current-buffer buffer + (describe-text-properties pos output)) + (describe-text-mode)))))) =20 (defalias 'describe-char-after 'describe-char) (make-obsolete 'describe-char-after 'describe-char "21.5") --=20 Juri Linkov http://www.jurta.org/emacs/