Re: 23.0.60; describe-char gives wrong information

[Peter Dyballa <Peter_Dyballa@Freenet.DE>]

Am 10.01.2008 um 13:40 schrieb Kenichi Handa:

> Anyway, have you tried the latest code?  Does it still try
> to display U+1F48 using the font "...-gb18030.2000-0"?

I can't tell, because now it's just a box. And pressing C-u C-x = on  
that box gives the well-known

	describe-char-display: Format specifier doesn't match argument type

error. So a change has happened. Using the technique of loading descr- 
text.el leads to:


Debugger entered--Lisp error: (error "Format specifier doesn't match  
argument type")
   format("%04X%04X" "nil" nil)
   (setcdr char-font-info (format "%04X%04X" (cadr char-font-info)  
(cddr char-font-info)))
   (if (integerp (cdr char-font-info)) (setcdr char-font-info (format  
"%02X" ...)) (setcdr char-font-info (format "%04X%04X" ... ...)))
   (let ((char-font-info ...)) (if (integerp ...) (setcdr char-font- 
info ...) (setcdr char-font-info ...)) char-font-info)
   (if (display-graphic-p (selected-frame)) (let (...)  
(if ... ... ...) char-font-info) (let* (... ...) (if encoded ...)))
   describe-char-display(253851 8008)
   (let ((display ...)) (if (display-graphic-p ...) (if display ...  
"no font available") (if display ... "not encodable for terminal")))
   (cond (disp-vector (setq disp-vector ...) (dotimes ... ... ...)  
(format "by display table entry [%s] (see below)" ...)) (composition  
(let ... ... ... ... ... ...)) (t (let ... ...)))
   (list "display" (cond (disp-vector ... ... ...) (composition ...)  
(t ...)))
   (cons (list "display" (cond ... ... ...)) (append (let ... ...)  
(let ... ...)))
   (cons (cons "file code" (let* ... ...)) (cons (list "display" ...)  
(append ... ...)))
   (cons (list "buffer code" (encoded-string-description ... nil))  
(cons (cons "file code" ...) (cons ... ...)))
   (cons (cons "to input" (let ... ...)) (cons (list "buffer  
code" ...) (cons ... ...)))
   (cons (cons "category" (let ... ...)) (cons (cons "to input" ...)  
(cons ... ...)))
   (cons (list "syntax" (let ... ...)) (cons (cons "category" ...)  
(cons ... ...)))
   (cons (list "code point" (let ... ...)) (cons (list "syntax" ...)  
(cons ... ...)))
   (cons (list "preferred charset" (\` ...) (format "(%s)" ...))  
(cons (list "code point" ...) (cons ... ...)))
   (cons (list "character" (format "%s (%d, #o%o, #x%x)" ... char  
char char)) (cons (list "preferred charset" ... ...) (cons ... ...)))
   (backquote-list* (list "character" (format "%s (%d, #o%o, #x% 
x)" ... char char char)) (list "preferred charset" (\` ...) (format  
"(%s)" ...)) (list "code point" (let ... ...)) (list  
"syntax" (let ... ...)) (cons "category" (let ... ...)) (cons "to  
input" (let ... ...)) (list "buffer code" (encoded-string- 
description ... nil)) (cons "file code" (let* ... ...)) (list  
"display" (cond ... ... ...)) (append (let ... ...) (let ... ...)))
   (\` (("character" ...) ("preferred charset" ... ...) ("code  
point" ...) ("syntax" ...) ("category" ...) ("to input" ...) ("buffer  
code" ...) ("file code" ...) ("display" ...) (\,@ ...) (\,@ ...)))
   (setq item-list (\` (... ... ... ... ... ... ... ... ... ... ...)))
   (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(253851)
   what-cursor-position((4))
   call-interactively(what-cursor-position nil nil)

--
Greetings

   Pete

"What do you think of Western Civilisation?"
"I think it would be a good idea!"
				– Mohandas Karamchand Gandhi