> Regarding Re: Xemacs 21.5 + xsymbol debugging; "Stephen J.
Turnbull" <stephen(a)xemacs.org> adds:
ugh. Should have expected that. Try this patch, which
doesn't have the fontcolor.c hunks in it, so should
work on 21.5.29 or on Mercurial tip.
The good news:is this error does not appear
the bad news:
there is another error.
Backtrace attached:
Uwe
(1) (local-variables/warning) Error in File local-variables: Invalid argument: Invalid tag
set, (mule-fonts)
Backtrace follows:
canonicalize-tag-set((mule-fonts))
# bind (is-valid nval how-to-add tag-set locale value specifier)
set-specifier(#<font-specifier
global="-adobe-helvetica-medium-r-normal-*-*-140-*-*-*-*-iso8859-1"
fallback=#<font-specifier global=(((x x-resource) .
"-*-courier-bold-r-*-*-18-180-*-*-*-*-*-*") ((encode-as-utf-8 initial x
x-coverage-instantiator) .
"-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1") ((final
one-dimensional x x-coverage-instantiator) .
"-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1") ((final
two-dimensional x x-coverage-instantiator) .
"-misc-fixed-medium-r-normal--15-140-75-75-c-90-iso10646-1")) fallback=(((tty) .
"normal") ((x) . "-*-lucidatypewriter-medium-r-*-*-*-120-*-*-*-*-*-*")
((x) . "-*-*-medium-r-*-*-*-120-*-*-c-*-*-*") ((x encode-as-utf-8 initial
x-coverage-instantiator) .
"-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1") ((x
two-dimensional initial) . "-*-*-medium-r-*-*-*-150-*-*-c-*-*-*") ((x
two-dimensional initial) . "-*-*-medium-r-*-*-*-160-*-*-c-*-*-*") ((x
two-dimensional initial) . "-*-*-medium-r-*-*-*-170-*-*-c-*-*-*") ((x
one-dimensional final x-coverage-instantiator) .
"-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1") ((x
two-dimensional final x-coverage-instantiator) .
"-misc-fixed-medium-r-normal--15-140-75-75-c-90-iso10646-1") ((x) .
"*")) 0x1f3b> 0x271dc7>
"-adobe-helvetica-medium-r-normal-*-14-*-*-*-*-*-iso8859-2" nil (mule-fonts)
prepend)
# bind (how-to-add tag-set locale value property face)
set-face-property(x-symbol-face font
"-adobe-helvetica-medium-r-normal-*-14-*-*-*-*-*-iso8859-2" nil (mule-fonts)
prepend)
# bind (default charsets font face)
x-symbol-set-face-font(x-symbol-face
"-adobe-helvetica-medium-r-normal-*-14-*-*-*-*-*-iso8859-2" (nil
latin-iso8859-2) nil)
# bind (faces docstrings raise font default registry left right first fonts cset)
x-symbol-make-cset(((("iso8859-2" . iso-8859-2) ?\^Þ -3750) nil
latin-iso8859-2) (("-adobe-helvetica%s-medium-r-normal-*-%d-*-*-*-*-*-iso8859-2"
"-etl-fixed%s-medium-r-normal--%d-%d0-72-72-c-*-iso8859-2")
("-adobe-helvetica%s-medium-r-normal-*-%d-*-*-*-*-*-iso8859-2"
"-etl-fixed%s-medium-r-normal--%d-%d0-72-72-c-*-iso8859-2")
("-adobe-helvetica%s-medium-r-normal-*-%d-*-*-*-*-*-iso8859-2"
"-etl-fixed%s-medium-r-normal--%d-%d0-72-72-c-*-iso8859-2")))
# bind (table fonts cset)
x-symbol-init-cset(((("iso8859-2" . iso-8859-2) ?\^Þ -3750) nil
latin-iso8859-2) ("-adobe-helvetica%s-medium-r-normal-*-%d-*-*-*-*-*-iso8859-2"
"-etl-fixed%s-medium-r-normal--%d-%d0-72-72-c-*-iso8859-2") ((nobreakspace 160 .
t) (Aogonek 161 (ogonek "A" aogonek)) (breve 162 (breve accent)) (Lslash 163
(slash "L" lslash)) (currency 164 . t) (Lcaron 165 (caron "L" lcaron))
(Sacute 166 (acute "S" sacute)) (section 167 . t) (diaeresis 168 . t) (Scaron
169 (caron "S" scaron)) (Scedilla 170 (cedilla "S" scedilla)) (Tcaron
171 (caron "T" tcaron)) (Zacute 172 (acute "Z" zacute)) (hyphen 173 .
t) (Zcaron 174 (caron "Z" zcaron)) (Zdotaccent 175 (dotaccent "Z"
zdotaccent)) (degree 176 . t) (aogonek 177 (ogonek "a" Aogonek)) (ogonek 178
(ogonek accent)) (lslash 179 (slash "l" Lslash)) (acute 180 . t) (lcaron 181
(caron "l" Lcaron)) (sacute 182 (acute "s" Sacute)) (caron 183 (caron
accent) (shift up)) (cedilla 184 . t) (scaron 185 (caron "s" Scaron)) (scedilla
186 (cedilla "s" Scedilla)) (tcaron 187 (caron "t" Tcaron)) (zacute
188 (acute "z" Zacute)) (hungarumlaut 189 (hungarumlaut accent)) (zcaron 190
(caron "z" Zcaron)) (zdotaccent 191 (dotaccent "z" Zdotaccent))
(Racute 192 (acute "R" racute)) (Aacute 193 . t) (Acircumflex 194 . t) (Abreve
195 (breve "A" abreve)) (Adiaeresis 196 . t) (Lacute 197 (acute "L"
lacute)) (Cacute 198 (acute "C" cacute)) (Ccedilla 199 . t) (Ccaron 200 (caron
"C" ccaron)) (Eacute 201 . t) (Eogonek 202 (ogonek "E" eogonek))
(Ediaeresis 203 . t) (Ecaron 204 (caron "E" ecaron)) (Iacute 205 . t)
(Icircumflex 206 . t) (Dcaron 207 (caron "D" dcaron)) (Dbar 208 (slash
"D" dbar)) (Nacute 209 (acute "N" nacute)) (Ncaron 210 (caron
"N" ncaron)) (Oacute 211 . t) (Ocircumflex 212 . t) (Ohungarumlaut 213
(hungarumlaut "O" ohungarumlaut)) (Odiaeresis 214 . t) (multiply 215 . t)
(Rcaron 216 (caron "R" rcaron)) (Uring 217 (ring "U" uring)) (Uacute
218 . t) (Uhungarumlaut 219 (hungarumlaut "U" uhungarumlaut)) (Udiaeresis 220 .
t) (Yacute 221 . t) (Tcedilla 222 (cedilla "T" tcedilla)) (ssharp 223 . t)
(racute 224 (acute "r" Racute)) (aacute 225 . t) (acircumflex 226 . t) (abreve
227 (breve "a" Abreve)) (adiaeresis 228 . t) (lacute 229 (acute "l"
Lacute)) (cacute 230 (acute "c" Cacute)) (ccedilla 231 . t) (ccaron 232 (caron
"c" Ccaron)) (eacute 233 . t) (eogonek 234 (ogonek "e" Eogonek))
(ediaeresis 235 . t) (ecaron 236 (caron "e" Ecaron)) (iacute 237 . t)
(icircumflex 238 . t) (dcaron 239 (caron "d" Dcaron)) (dbar 240 (slash
"d" Dbar)) (nacute 241 (acute "n" Nacute)) (ncaron 242 (caron
"n" Ncaron)) (oacute 243 . t) (ocircumflex 244 . t) (ohungarumlaut 245
(hungarumlaut "o" Ohungarumlaut)) (odiaeresis 246 . t) (division 247 . t)
(rcaron 248 (caron "r" Rcaron)) (uring 249 (ring "u" Uring)) (uacute
250 . t) (uhungarumlaut 251 (hungarumlaut "u" Uhungarumlaut)) (udiaeresis 252 .
t) (yacute 253 . t) (tcedilla 254 (cedilla "t" Tcedilla)) (dotaccent 255
(dotaccent accent) (shift up))))
byte-code("..." [x-symbol-latin9-fonts x-symbol-latin5-fonts
x-symbol-latin3-fonts x-symbol-latin2-fonts x-symbol-latin1-fonts current-load-list
x-symbol-no-of-charsyms default-boundp set-default 453 x-symbol-initialize nil
console-type warn "X-Symbol: only limited support on a console" console-user
x-symbol-init-cset x-symbol-init-latin-decoding x-symbol-xsymb0-fonts
x-symbol-xsymb1-fonts noninteractive x-symbol-all-charsyms x-symbol-default-coding
x-symbol-latin-force-use x-symbol-latin1-cset x-symbol-latin1-table x-symbol-latin2-cset
x-symbol-latin2-table x-symbol-latin3-cset x-symbol-latin3-table x-symbol-latin5-cset
x-symbol-latin5-table x-symbol-latin9-cset x-symbol-latin9-table x-symbol-xsymb0-cset
x-symbol-xsymb0-table x-symbol-xsymb1-cset x-symbol-xsymb1-table] 5)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load-internal("x-symbol" nil nil nil binary)
# bind (handler path nosuffix nomessage noerror filename)
load("x-symbol" nil nil nil)
# (unwind-protect ...)
(x-symbol-auto-coding-alist x-symbol-tex-auto-coding-alist nil (if
x-symbol-tex-coding-master (quote x-symbol-tex-auto-coding-alist)))
(if x-symbol-mode (x-symbol-auto-coding-alist x-symbol-tex-auto-coding-alist nil (if
x-symbol-tex-coding-master (quote x-symbol-tex-auto-coding-alist))))
eval((if x-symbol-mode (x-symbol-auto-coding-alist x-symbol-tex-auto-coding-alist nil
(if x-symbol-tex-coding-master (quote x-symbol-tex-auto-coding-alist)))))
# bind (form symbol)
x-symbol-auto-set-variable(x-symbol-coding (if x-symbol-mode (x-symbol-auto-coding-alist
x-symbol-tex-auto-coding-alist nil (if x-symbol-tex-coding-master (quote
x-symbol-tex-auto-coding-alist)))))
# bind (matcher style alist buffer-name buffer-file-name disabled disabled1 disabled0
new-mode old-mode special arg)
x-symbol-mode(nil init)
turn-on-x-symbol-conditionally()
run-hooks(turn-on-x-symbol-conditionally)
# bind (force)
hack-local-variables(nil)
#<compiled-function nil "...(5)" [find-file hack-local-variables] 2>()
# (unwind-protect ...)
call-with-condition-handler(#<compiled-function (__call_trapping_errors_arg__)
"...(17)" [__call_trapping_errors_arg__ errstr error-message-string lwarn
local-variables warning "Error in %s: %s\n\nBacktrace follows:\n\n%s" "File
local-variables" backtrace-in-condition-handler-eliminating-handler] 8>
#<compiled-function nil "...(5)" [find-file hack-local-variables] 2>)
# (condition-case ... . ((error)))
# bind (find-file)
normal-mode(t)
# bind (nomodes after-find-file-from-revert-buffer noauto warn error)
after-find-file(nil t)
# (unwind-protect ...)
# bind (inhibit-read-only error number truename rawfile nowarn filename buf)
find-file-noselect-1(#<buffer "test.tex"> "/home/oub/test.tex"
nil nil "/home/oub/test.tex" (389845 2053))
byte-code("..." [number truename rawfile nowarn filename buf
set-buffer-major-mode find-file-noselect-1] 7)
# (condition-case ... . ((t (byte-code "Â!?Ã @ A\"?" [buf data
kill-buffer signal] 3))))
# bind (number truename buf wildcards rawfile nowarn filename)
find-file-noselect("~/test.tex" nil nil nil)
# bind (wildcards codesys filename)
ad-Orig-find-file("~/test.tex" nil nil)
# bind (handler ad-return-value wildcards filename)
find-file("~/test.tex")
# bind (file)
find-file-confirm-non-existing-internal("~/test.tex")
# bind (file)
find-file-confirm-non-existing("~/test.tex")
# bind (command-debug-status)
call-interactively(find-file-confirm-non-existing)
# (condition-case ... . error)
# (catch top-level ...)
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta