Re: [Bug: 21.5-b32] Specifier crash in b32
On Thu, Aug 9, 2012 at 9:31 PM, Stephen J. Turnbull <stephen(a)xemacs.org>wrote:
Raymond Toy writes:
> The lisp backtrace and C backtrace are appended below. (Is there a
> better way to do that? Attaching files?)
Whatever is convenient for you.
Either is convenient for me, but I don't like scanning through a message
with hundreds of lines to get to find the Lisp backtrace or C backtrace.
:-)
On the other hand, whatever the code is that triggered the assert
doesn't seem to be in XEmacs or in our packages, based on grepping for
various key strings found in the Lisp backtrace. So you're going to
have to figure out what it is and fix it, because we will error on it
even if we don't crash.
Yeah, it's in my init file where I was adding support for other languages
so that the hello demo displays more. I will try to narrow it down a bit,
but the relevant code is appended. I think I got most of the code from
this list when I asked about the hello demo a while ago.
Thanks,
Ray
(with-fboundp '(fc-name-unparse fc-font-match fc-name-parse)
(set-specifier
(face-font 'default)
(cons '(x)
(fc-name-unparse
(fc-font-match (selected-device)
(fc-name-parse "Monospace-11.5:lang=en")))))
(loop
for (tag-name regex size) in
'((zh-tw "^chinese-\\(big5\\|cns\\)" 12)
(zh "^chinese-" 12)
(ja "^\\(japanese\\|katakana\\)-" 12)
(ko "^korean-" 12)
(am "^ethiopic-" 12)
(vi "^vietnamese-" 12)
(el "^greek-" 12)
(ru "^cyrillic-" 12)
(hu "^latin-iso8859-2" 12)
(ar "^arabic-" 12)
(lo "^lao" 12)
(he "^hebrew" 12)
(th "^thai" 12)
)
do
(define-specifier-tag tag-name nil
`(lambda (charset)
(string-match ,regex (symbol-name (charset-name charset)))))
(set-face-font 'default
(fc-name-unparse
(fc-font-match
(selected-device)
(fc-name-parse
(format "-%d:lang=%s"
size tag-name))))
nil (list 'x tag-name) 'append)))
(set-face-font 'default "Bitstream Vera Sans Mono-12")
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta