10:11 p.m.
Hello
The debugging is not very easy, but it seems the problem
lies
In the part
'((iso-latin-1 . iso-8859-1)
(iso-latin-2 . iso-8859-2)
(iso-latin-3 . iso-8859-3)
(iso-latin-9 . iso-8859-9)
(iso-latin-15 . iso-8859-15)))
Of the function
(defun x-symbol-mode-internal (conversion)
"Setup X-Symbol mode according to buffer-local variables.
If CONVERSION is non-nil, do conversion with EXEC-THRESHOLD. See
command `x-symbol-mode' for details."
(unless (featurep 'xemacs)
(unless enable-multibyte-characters
;; Emacs: we need to convert the buffer from unibyte to multibyte
;; since we'll use multibyte support for the symbol charset.
;; TODO: try to do it less often
(let ((modified (buffer-modified-p))
(inhibit-read-only t)
(inhibit-modification-hooks t))
(unwind-protect
(progn
(decode-coding-region (point-min) (point-max) 'undecided)
(set-buffer-multibyte t))
(set-buffer-modified-p modified))))
(and x-symbol-mode
x-symbol-set-coding-system-if-undecided
x-symbol-default-coding
(let ((cs (car (rassq x-symbol-default-coding
'((iso-latin-1 . iso-8859-1)
(iso-latin-2 . iso-8859-2)
(iso-latin-3 . iso-8859-3)
(iso-latin-9 . iso-8859-9)
(iso-latin-15 . iso-8859-15))))))
(if cs (set-buffer-file-coding-system cs)))))
(if x-symbol-mode (x-symbol-init-font-lock))
(if conversion
(let ((modified (buffer-modified-p))
(buffer-read-only nil) ; always allow conversion
(buffer-file-name nil) ; no file-locking, TODO: dangerous?
(inhibit-read-only t)
(first-change-hook nil) ; no `flyspell-mode' here
(after-change-functions nil) ; no fontification!
(no-undo (null buffer-undo-list)))
(if no-undo (setq buffer-undo-list t))
(save-excursion
(save-restriction
(if x-symbol-mode
(let ((buffer-coding (x-symbol-buffer-coding)))
;; cannot do this in `x-symbol-mode': `x-symbol-fchar-tables' might not be
defined
(if buffer-coding
(or (null x-symbol-coding) ; no coding specified
(eq x-symbol-coding buffer-coding) ; specified = buffer-file-coding
(and (eq buffer-coding x-symbol-default-coding)
; valid coding and buffer-fc = default
(assq x-symbol-coding x-symbol-fchar-tables))
(setq x-symbol-8bits
(x-symbol-auto-8bit-search nil)))
(setq x-symbol-8bits nil))
(x-symbol-decode-all))
(x-symbol-encode-all))
(if font-lock-mode (x-symbol-fontify (point-min) (point-max)))))
(if no-undo (setq buffer-undo-list nil))
(or modified (set-buffer-modified-p nil))))
(x-symbol-set-image nil x-symbol-image)
(if x-symbol-mode
(progn
(make-local-hook 'pre-command-hook)
(make-local-hook 'post-command-hook)
(add-hook 'pre-command-hook 'x-symbol-pre-command-hook nil t)
(add-hook 'post-command-hook 'x-symbol-post-command-hook nil t)
(if (assq 'x-symbol format-alist)
(pushnew 'x-symbol buffer-file-format))
(easy-menu-add x-symbol-menu)
(x-symbol-update-modeline))
(remove-hook 'pre-command-hook 'x-symbol-pre-command-hook t)
(remove-hook 'post-command-hook 'x-symbol-post-command-hook t)
(setq buffer-file-format (delq 'x-symbol buffer-file-format))
(if (local-variable-p 'current-menubar (current-buffer))
;; XEmacs bug workaround
(ignore-errors (easy-menu-remove x-symbol-menu)))))
The trace still looks like
Uwe
(1) (local-variables/warning) Error in File local-variables: Wrong type argument: consp,
latin-iso8859-2
Backtrace follows:
specifier-matching-instance(#<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> latin-iso8859-2 nil nil t)
# bind (value no-fallback default domain matchspec property face)
face-property-matching-instance(default font latin-iso8859-2 nil nil t)
# bind (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" (458254 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