From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Peter Dyballa Newsgroups: gmane.emacs.devel,gmane.emacs.pretest.bugs Subject: Re: 23.0.60; GNU Emacs does not handle composed characters Date: Tue, 8 Jan 2008 16:08:35 +0100 Message-ID: <4B6DBC29-EF5C-4C8E-ABF0-726B61B61F6C@Freenet.DE> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 (Apple Message framework v753) Content-Type: text/plain; charset=WINDOWS-1252; delsp=yes; format=flowed Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1199804938 7675 80.91.229.12 (8 Jan 2008 15:08:58 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 8 Jan 2008 15:08:58 +0000 (UTC) Cc: emacs-pretest-bug@gnu.org To: Kenichi Handa Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Jan 08 16:09:18 2008 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JCG4o-00089J-Pn for ged-emacs-devel@m.gmane.org; Tue, 08 Jan 2008 16:09:15 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JCG4R-0003r4-LI for ged-emacs-devel@m.gmane.org; Tue, 08 Jan 2008 10:08:51 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JCG4N-0003or-Ev for emacs-devel@gnu.org; Tue, 08 Jan 2008 10:08:47 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JCG4M-0003nV-Kp for emacs-devel@gnu.org; Tue, 08 Jan 2008 10:08:47 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JCG4M-0003nK-Gu for emacs-devel@gnu.org; Tue, 08 Jan 2008 10:08:46 -0500 Original-Received: from fencepost.gnu.org ([140.186.70.10]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JCG4M-00075R-33 for emacs-devel@gnu.org; Tue, 08 Jan 2008 10:08:46 -0500 Original-Received: from mx10.gnu.org ([199.232.76.166]) by fencepost.gnu.org with esmtp (Exim 4.67) (envelope-from ) id 1JCG4L-0006cL-S1 for emacs-pretest-bug@gnu.org; Tue, 08 Jan 2008 10:08:45 -0500 Original-Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1JCG4I-00074v-Fp for emacs-pretest-bug@gnu.org; Tue, 08 Jan 2008 10:08:45 -0500 Original-Received: from mout2.freenet.de ([195.4.92.92]) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1JCG4H-00074h-Pk for emacs-pretest-bug@gnu.org; Tue, 08 Jan 2008 10:08:42 -0500 Original-Received: from [195.4.92.22] (helo=12.mx.freenet.de) by mout2.freenet.de with esmtpa (Exim 4.68) (envelope-from ) id 1JCG4F-000334-HW; Tue, 08 Jan 2008 16:08:39 +0100 Original-Received: from fccd6.f.ppp-pool.de ([195.4.204.214]:56842 helo=[192.168.1.2]) by 12.mx.freenet.de with esmtpsa (ID peter_dyballa@freenet.de) (TLSv1:AES128-SHA:128) (port 25) (Exim 4.68 #1) id 1JCG4F-0002Ae-02; Tue, 08 Jan 2008 16:08:39 +0100 In-Reply-To: X-Mailer: Apple Mail (2.753) X-detected-kernel: by monty-python.gnu.org: Linux 2.6 (newer, 1) X-detected-kernel: by monty-python.gnu.org: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:86568 gmane.emacs.pretest.bugs:20549 Archived-At: Am 08.01.2008 um 07:29 schrieb Kenichi Handa: >> Format specifier doesn't match argument type > >> In *Messages* buffer a ``describe-char: =B4=B4is prepended the text. > > I can't reproduce that. Please do M-x load-library RET > descr-text.el RET, M-x toggle-debug-on-error RET, and try C-u > C-x =3D again. When you get *Backtrace* buffer, please show > me the contents. > Debugger entered--Lisp error: (error "Format specifier doesn't match =20 argument type") format("%s (#x%02X)" "-monotype-arial unicode ms-medium-r-=20 normal--13-120-75-75-p-129-gb18030.2000-0" "(33072 . 48436)") (if (cdr elt) (format "%s (#x%02X)" (cadr elt) (cddr elt)) "-- no =20 font --") (insert "\n " (car elt) 58 (propertize " " (quote display) =20 (quote ...)) (if (cdr elt) (format "%s (#x%02X)" ... ...) "-- no font =20= --")) (if (/=3D (car elt) 9) (insert "\n " (car elt) 58 (propertize " =20 " ... ...) (if ... ... "-- no font --"))) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (if (/=20 =3D ... 9) (insert "\n " ... 58 ... ...)) (setq --dolist-tail-- (cdr --=20= dolist-tail--))) (let ((--dolist-tail-- component-chars) elt) (while --dolist-=20 tail-- (setq elt ...) (if ... ...) (setq --dolist-tail-- ...))) (dolist (elt component-chars) (if (/=3D ... 9) (insert "\n " ... =20 58 ... ...))) (progn (insert "these fonts (glyph codes):") (dolist (elt =20 component-chars) (if ... ...))) (if (display-graphic-p (selected-frame)) (progn (insert "these =20 fonts (glyph codes):") (dolist ... ...)) (insert "these terminal =20 codes:") (dolist (elt component-chars) (insert "\n " ... ":" ... ...))) (if (and (vectorp ...) (vectorp ...)) (progn (insert " using this =20 font:\n " ... "\nby these glyphs:\n") (mapc ... ...)) (insert " by =20 the rule:\n (" (mapconcat ... ... " ") ")") (insert "\nThe component = =20 character(s) are displayed by ") (if (display-graphic-p ...) =20 (progn ... ...) (insert "these terminal codes:") (dolist ... ...)) =20 (insert "\nSee the variable `reference-point-alist' for " "the =20 meaning of the rule.\n")) (progn (insert "\nComposed") (if (car composition) =20 (if ... ... ...) (if ... ...)) (if (and ... ...) (progn ... ...) =20 (insert " by the rule:\n (" ... ")") (insert "\nThe component =20 character(s) are displayed by ") (if ... ... ... ...) (insert "\nSee =20 the variable `reference-point-alist' for " "the meaning of the rule.=20 \n"))) (if composition (progn (insert "\nComposed") (if ... ... ...) =20 (if ... ... ... ... ... ...))) (when composition (insert "\nComposed") (if (car composition) =20 (if ... ... ...) (if ... ...)) (if (and ... ...) (progn ... ...) =20 (insert " by the rule:\n (" ... ")") (insert "\nThe component =20 character(s) are displayed by ") (if ... ... ... ...) (insert "\nSee =20 the variable `reference-point-alist' for " "the meaning of the rule.=20 \n"))) (save-current-buffer (set-buffer standard-output) (set-buffer-=20 multibyte multibyte-p) (let (...) (dolist ... ...)) (when overlays =20 (save-excursion ... ... ...)) (when disp-vector (insert "\nThe =20 display table entry is displayed by ") (if ... ... ... ...)) (when =20 composition (insert "\nComposed") (if ... ... ...) =20 (if ... ... ... ... ... ...)) (if (not describe-char-unidata-list) =20 (insert "\nCharacter code properties are not shown: ") (insert =20 "\nCharacter code properties: ")) (insert-text-button "customize what =20= to show" (quote action) (lambda ... ...)) (insert "\n") (dolist (elt =20 describe-char-unidata-list) (let ... ...)) (if text-props-desc =20 (insert text-props-desc)) (setq help-xref-stack-item (list ... ...)) =20 (toggle-read-only 1)) (with-current-buffer standard-output (set-buffer-multibyte =20 multibyte-p) (let (...) (dolist ... ...)) (when overlays (save-=20 excursion ... ... ...)) (when disp-vector (insert "\nThe display =20 table entry is displayed by ") (if ... ... ... ...)) (when =20 composition (insert "\nComposed") (if ... ... ...) =20 (if ... ... ... ... ... ...)) (if (not describe-char-unidata-list) =20 (insert "\nCharacter code properties are not shown: ") (insert =20 "\nCharacter code properties: ")) (insert-text-button "customize what =20= to show" (quote action) (lambda ... ...)) (insert "\n") (dolist (elt =20 describe-char-unidata-list) (let ... ...)) (if text-props-desc =20 (insert text-props-desc)) (setq help-xref-stack-item (list ... ...)) =20 (toggle-read-only 1)) (progn (with-current-buffer standard-output (set-buffer-multibyte =20 multibyte-p) (let ... ...) (when overlays ...) (when disp-=20 vector ... ...) (when composition ... ... ...) (if ... ... ...) =20 (insert-text-button "customize what to show" ... ...) (insert "\n") =20 (dolist ... ...) (if text-props-desc ...) (setq help-xref-stack-=20 item ...) (toggle-read-only 1))) (with-output-to-temp-buffer (help-buffer) (progn (with-current-=20 buffer standard-=20 output ... ... ... ... ... ... ... ... ... ... ... ...))) (let ((list-of-frames ...) (list-of-window-tuples ...)) (setq help-=20= window t) (set-marker help-window-point-marker nil) (with-output-to-=20 temp-buffer (help-buffer) (progn ...)) (when (windowp help-window) =20 (help-window-setup list-of-frames list-of-window-tuples)) (setq help-=20 window nil)) (with-help-window (help-buffer) (with-current-buffer standard-=20 output (set-buffer-multibyte multibyte-p) (let ... ...) (when =20 overlays ...) (when disp-vector ... ...) (when =20 composition ... ... ...) (if ... ... ...) (insert-text-button =20 "customize what to show" ... ...) (insert "\n") (dolist ... ...) (if =20 text-props-desc ...) (setq help-xref-stack-item ...) (toggle-read-=20 only 1))) (let* ((char ...) (charset ...) (composition ...) (component-chars =20= nil) (display-table ...) (disp-vector ...) (multibyte-p enable-=20 multibyte-characters) (overlays ...) (char-description ...) (text-=20 props-desc ...) item-list max-width code) (setq code (encode-char =20 char charset)) (setq item-list (\` ...)) (setq max-width =20 (apply ... ...)) (help-setup-xref nil (interactive-p)) (with-help-=20 window (help-buffer) (with-current-buffer standard-=20 output ... ... ... ... ... ... ... ... ... ... ... ...))) describe-char(17122) what-cursor-position((4)) call-interactively(what-cursor-position nil nil) recursive-edit() byte-code("..." [unread-command-char debugger-args x debugger-=20 buffer noninteractive debugger-batch-max-lines -1 debug backtrace-=20 debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode =20 debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-=20 string kill-emacs "" nil recursive-edit middlestart buffer-read-only =20 standard-output] 4) debug(error (error "Format specifier doesn't match argument type")) format("%s (#x%02X)" "-monotype-arial unicode ms-medium-r-=20 normal--13-120-75-75-p-129-gb18030.2000-0" "(33072 . 48436)") describe-char(17122) what-cursor-position((4)) call-interactively(what-cursor-position nil nil) recursive-edit() byte-code("..." [unread-command-char debugger-args x debugger-=20 buffer noninteractive debugger-batch-max-lines -1 debug backtrace-=20 debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode =20 debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-=20 string kill-emacs "" nil recursive-edit middlestart buffer-read-only =20 standard-output] 4) debug(error (error "Format specifier doesn't match argument type")) format("%s (#x%02X)" "-monotype-arial unicode ms-medium-r-=20 normal--13-120-75-75-p-129-gb18030.2000-0" "(33072 . 48693)") describe-char(29) what-cursor-position((4)) call-interactively(what-cursor-position nil nil) -- Greetings Pete When in doubt, use brute force. =96 Ken Thompson