Re: 23.0.60; GNU Emacs does not handle composed characters

[Peter Dyballa]

Am 08.01.2008 um 07:29 schrieb Kenichi Handa:

> >         Format specifier doesn't match argument type
>
> > In *Messages* buffer a ``describe-char: ´´is 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 = again.  When you get *Backtrace* buffer, please show
> me the contents.


Debugger entered--Lisp error: (error "Format specifier doesn't match  
argument type")
  format("%s (#x%02X)" "-monotype-arial unicode ms-medium-r- 
normal--13-120-75-75-p-129-gb18030.2000-0" "(33072 . 48436)")
  (if (cdr elt) (format "%s (#x%02X)" (cadr elt) (cddr elt)) "-- no  
font --")
  (insert "\n " (car elt) 58 (propertize " " (quote display)  
(quote ...)) (if (cdr elt) (format "%s (#x%02X)" ... ...) "-- no font  
--"))
  (if (/= (car elt) 9) (insert "\n " (car elt) 58 (propertize "  
" ... ...) (if ... ... "-- no font --")))
  (while --dolist-tail-- (setq elt (car --dolist-tail--)) (if (/ 
= ... 9) (insert "\n " ... 58 ... ...)) (setq --dolist-tail-- (cdr -- 
dolist-tail--)))
  (let ((--dolist-tail-- component-chars) elt) (while --dolist- 
tail-- (setq elt ...) (if ... ...) (setq --dolist-tail-- ...)))
  (dolist (elt component-chars) (if (/= ... 9) (insert "\n " ...  
58 ... ...)))
  (progn (insert "these fonts (glyph codes):") (dolist (elt  
component-chars) (if ... ...)))
  (if (display-graphic-p (selected-frame)) (progn (insert "these  
fonts (glyph codes):") (dolist ... ...)) (insert "these terminal  
codes:") (dolist (elt component-chars) (insert "\n  " ... ":" ... ...)))
  (if (and (vectorp ...) (vectorp ...)) (progn (insert " using this  
font:\n  " ... "\nby these glyphs:\n") (mapc ... ...)) (insert " by  
the rule:\n	(" (mapconcat ... ... " ") ")") (insert "\nThe component  
character(s) are displayed by ") (if (display-graphic-p ...)  
(progn ... ...) (insert "these terminal codes:") (dolist ... ...))  
(insert "\nSee the variable `reference-point-alist' for " "the  
meaning of the rule.\n"))
  (progn (insert "\nComposed") (if (car composition)  
(if ... ... ...) (if ... ...)) (if (and ... ...) (progn ... ...)  
(insert " by the rule:\n	(" ... ")") (insert "\nThe component  
character(s) are displayed by ") (if ... ... ... ...) (insert "\nSee  
the variable `reference-point-alist' for " "the meaning of the rule. 
\n")))
  (if composition (progn (insert "\nComposed") (if ... ... ...)  
(if ... ... ... ... ... ...)))
  (when composition (insert "\nComposed") (if (car composition)  
(if ... ... ...) (if ... ...)) (if (and ... ...) (progn ... ...)  
(insert " by the rule:\n	(" ... ")") (insert "\nThe component  
character(s) are displayed by ") (if ... ... ... ...) (insert "\nSee  
the variable `reference-point-alist' for " "the meaning of the rule. 
\n")))
  (save-current-buffer (set-buffer standard-output) (set-buffer- 
multibyte multibyte-p) (let (...) (dolist ... ...)) (when overlays  
(save-excursion ... ... ...)) (when disp-vector (insert "\nThe  
display table entry is displayed by ") (if ... ... ... ...)) (when  
composition (insert "\nComposed") (if ... ... ...)  
(if ... ... ... ... ... ...)) (if (not describe-char-unidata-list)  
(insert "\nCharacter code properties are not shown: ") (insert  
"\nCharacter code properties: ")) (insert-text-button "customize what  
to show" (quote action) (lambda ... ...)) (insert "\n") (dolist (elt  
describe-char-unidata-list) (let ... ...)) (if text-props-desc  
(insert text-props-desc)) (setq help-xref-stack-item (list ... ...))  
(toggle-read-only 1))
  (with-current-buffer standard-output (set-buffer-multibyte  
multibyte-p) (let (...) (dolist ... ...)) (when overlays (save- 
excursion ... ... ...)) (when disp-vector (insert "\nThe display  
table entry is displayed by ") (if ... ... ... ...)) (when  
composition (insert "\nComposed") (if ... ... ...)  
(if ... ... ... ... ... ...)) (if (not describe-char-unidata-list)  
(insert "\nCharacter code properties are not shown: ") (insert  
"\nCharacter code properties: ")) (insert-text-button "customize what  
to show" (quote action) (lambda ... ...)) (insert "\n") (dolist (elt  
describe-char-unidata-list) (let ... ...)) (if text-props-desc  
(insert text-props-desc)) (setq help-xref-stack-item (list ... ...))  
(toggle-read-only 1))
  (progn (with-current-buffer standard-output (set-buffer-multibyte  
multibyte-p) (let ... ...) (when overlays ...) (when disp- 
vector ... ...) (when composition ... ... ...) (if ... ... ...)  
(insert-text-button "customize what to show" ... ...) (insert "\n")  
(dolist ... ...) (if text-props-desc ...) (setq help-xref-stack- 
item ...) (toggle-read-only 1)))
  (with-output-to-temp-buffer (help-buffer) (progn (with-current- 
buffer standard- 
output ... ... ... ... ... ... ... ... ... ... ... ...)))
  (let ((list-of-frames ...) (list-of-window-tuples ...)) (setq help- 
window t) (set-marker help-window-point-marker nil) (with-output-to- 
temp-buffer (help-buffer) (progn ...)) (when (windowp help-window)  
(help-window-setup list-of-frames list-of-window-tuples)) (setq help- 
window nil))
  (with-help-window (help-buffer) (with-current-buffer standard- 
output (set-buffer-multibyte multibyte-p) (let ... ...) (when  
overlays ...) (when disp-vector ... ...) (when  
composition ... ... ...) (if ... ... ...) (insert-text-button  
"customize what to show" ... ...) (insert "\n") (dolist ... ...) (if  
text-props-desc ...) (setq help-xref-stack-item ...) (toggle-read- 
only 1)))
  (let* ((char ...) (charset ...) (composition ...) (component-chars  
nil) (display-table ...) (disp-vector ...) (multibyte-p enable- 
multibyte-characters) (overlays ...) (char-description ...) (text- 
props-desc ...) item-list max-width code) (setq code (encode-char  
char charset)) (setq item-list (\` ...)) (setq max-width  
(apply ... ...)) (help-setup-xref nil (interactive-p)) (with-help- 
window (help-buffer) (with-current-buffer standard- 
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- 
buffer noninteractive debugger-batch-max-lines -1 debug backtrace- 
debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode  
debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer- 
string kill-emacs "" nil recursive-edit middlestart buffer-read-only  
standard-output] 4)
  debug(error (error "Format specifier doesn't match argument type"))
  format("%s (#x%02X)" "-monotype-arial unicode ms-medium-r- 
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- 
buffer noninteractive debugger-batch-max-lines -1 debug backtrace- 
debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode  
debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer- 
string kill-emacs "" nil recursive-edit middlestart buffer-read-only  
standard-output] 4)
  debug(error (error "Format specifier doesn't match argument type"))
  format("%s (#x%02X)" "-monotype-arial unicode ms-medium-r- 
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.
                                – Ken Thompson