x-symbol <--> 21.5.28 + xft

Dear all, under 21.5.27 I managed to run x-symbol more ore less smoothly by adding some set-unicode-conversions for all the special characters. Under 21.5.28 I have now an initialization problem, somehow the argument latin-iso8859-1 isn't anymore appropriate for the face-property-matching-instance function if I understand correctly from the attached lisp stack-trace I would be very greatful to hear any suggestions. Best Regards Installation Info is as follows: uname -a: Linux pluto 2.6.18.8-0.3-default #1 SMP Tue Apr 17 08:42:35 UTC 2007 i686 i686 i386 GNU/Linux ./configure 'i386-suse-linux' '--with-gcc' '--with-dynamic' '--with-debug' '--enable-error-checking=none' '--with-cflags=-O2 -march=i586 -mtune=i686 -fmessage-length=0 -Wall -D_FORTIFY_SOURCE=2 -g -Wall -Wno-switch -pipe -fno-strict-aliasing -DLDAP_DEPRECATED ' '--with-ldflags=' '--prefix=/usr' '--exec-prefix=/usr' '--bindir=/usr/bin' '--datadir=/usr/share' '--with-archlibdir=/usr/lib/xemacs/21.5.28/i386-suse-linux' '--with-docdir=/usr/lib/xemacs/21.5.28/i386-suse-linux' '--with-lispdir=/usr/share/xemacs/21.5.28/lisp' '--with-etcdir=/usr/share/xemacs/21.5.28/etc' '--with-statedir=/var/lib/xemacs' '--with-moduledir=/usr/lib/xemacs/21.5.28/i386-suse-linux/modules' '--infodir=/usr/share/xemacs/info' '--mandir=/usr/share/man/man1' '--enable-database=berkdb' '--with-ncurses' '--with-canna' '--with-tty=yes' '--with-site-lisp' '--disable-mc-alloc' '--enable-sound=native' '--with-gpm' '--enable-pdump' '--disable-dump-in-exec' '--with-xpm' '--with-gif' '--with-tiff' '--with-jpeg' '--with-png' '--with-x' '--with-athena=3d' '--enable--menubars=lucid' '--enable-scrollbars=lucid' '--enable-dialogs=athena' '--enable-widgets=athena' '--x-includes=/usr/include' '--x-libraries=/usr/lib' '--enable-mule' '--with-xim=xlib' '--with-xft=all' '--enable-clash-detection' '--with-ldap' '--with-pop' 'build_alias=i386-suse-linux' 'host_alias=i386-suse-linux' 'target_alias=i386-suse-linux' 'CFLAGS=-O2 -march=i586 -mtune=i686 -fmessage-length=0 -Wall -D_FORTIFY_SOURCE=2 -g -Wall -Wno-switch -pipe -fno-strict-aliasing -DLDAP_DEPRECATED ' 'LDFLAGS=' '--with-package-path=/usr/share/xemacs/xemacs-packages/:/usr/share/xemacs/mule-packages' XEmacs 21.5-b28 "fuki" (+CVS-20070523) configured for `i386-suse-linux'. Compilation Environment and Installation Defaults: Source code location: /localData/XemacsCVS/sjt-xft/xemacs-21.5 Installation prefix: /usr Operating system description file: `s/linux.h' Machine description file: `m/intel386.h' Compiler version: gcc (GCC) 4.1.2 20061115 (prerelease) (SUSE Linux) - GCC specs file: specs. - Compiler command: gcc -Wall -Wno-switch -Wundef -Wsign-compare -Wno-char-subscripts -Wpacked -Wunused-parameter -g -O2 -march=i586 -mtune=i686 -fmessage-length=0 -Wall -D_FORTIFY_SOURCE=2 -g -Wall -Wno-switch -pipe -fno-strict-aliasing -DLDAP_DEPRECATED libc version: 2.5 Relocating allocator for buffers: no GNU version of malloc: yes - Using Doug Lea's new malloc from the GNU C Library. Window System: Compiling in support for the X window system: - X Windows headers location: /usr/include - X Windows libraries location: /usr/lib - Handling WM_COMMAND properly. - Using fontconfig to manage fonts. - Compiling in support for Xft antialiased fonts (EXPERIMENTAL). Compiling in support for the Athena widget set: - Athena headers location: X11/Xaw3d - Athena library to link: Xaw3d Using Lucid menubars. - Using Xft to render antialiased fonts in menubars. WARNING: This feature will be replaced with a face. Using Lucid scrollbars. Using Athena dialog boxes. Using Athena native widgets. - Using Xft to render antialiased fonts in tab controls. WARNING: This feature will be replaced with a face. - Using Xft to render antialiased fonts in progress bars. WARNING: This feature will be replaced with a face. WARNING: This feature not yet implemented; setting ignored. TTY: Compiling in support for ncurses. Compiling in support for GPM (General Purpose Mouse). Images: Compiling in support for GIF images (builtin). Compiling in support for XPM images. Compiling in support for PNG images. Compiling in support for JPEG images. Compiling in support for TIFF images. Sound: Compiling in support for sound (native). Compiling in support for ALSA (Advanced Linux Sound Architecture). Databases: Compiling in support for Berkeley database. Compiling in support for LDAP. Internationalization: Compiling in support for Mule (multi-lingual Emacs). Compiling in support for XIM (X11R5+ I18N input method). - Using raw Xlib to provide XIM support. Mail: Compiling in support for POP mail retrieval. Compiling in support for "file" mail spool file locking method. Other Features: Inhibiting IPv6 canonicalization at startup. Compiling in support for dynamic shared object modules. Using the new GC mark algorithms (KKCC). WARNING: --------------------------------------------------------- WARNING: The new algorithms are experimental. They are enabled by WARNING: default for this release. Use `--disable-kkcc' to WARNING: turn it off. WARNING: --------------------------------------------------------- Using the new portable dumper. Compiling in support for extra debugging code. (1) (initialization/error) An error has occurred while loading /home/holst/.xemacs/init.el: Wrong type argument: consp, latin-iso8859-1 Backtrace follows: specifier-matching-instance(#<font-specifier global=("Starsymbol-13" "Tahoma-13") fallback=(((tty) . "normal") ((x) . "Monospace-12") ((x) . "Sazanami Mincho-12")) 0x1f82> latin-iso8859-1 nil nil t) # bind (value no-fallback default domain matchspec property face) face-property-matching-instance(default font latin-iso8859-1 nil nil t) (and (null x-symbol-mule-change-default-face) (face-property-matching-instance (quote default) (quote font) (or (car left) (car right)) nil nil t)) (or default (null first) noninteractive (not (fboundp (quote face-property-matching-instance))) (and (null x-symbol-mule-change-default-face) (face-property-matching-instance (quote default) (quote font) (or (car left) (car right)) nil nil t)) (let ((origfont (x-symbol-mule-default-font))) (set-face-property (quote default) (quote font) first nil (quote (mule-fonts)) (quote prepend)) (set-face-property (quote default) (quote font) origfont))) # bind (right left registry default) (let ((default (eq (x-symbol-cset-coding cset) (or x-symbol-default-coding (quote iso-8859-1)))) (registry (x-symbol-cset-registry cset)) (left (x-symbol-cset-left cset)) (right (x-symbol-cset-right cset))) (x-symbol-mule-make-charset left 0 registry) (x-symbol-mule-make-charset right 1 registry) (or default (null first) noninteractive (not (fboundp (quote face-property-matching-instance))) (and (null x-symbol-mule-change-default-face) (face-property-matching-instance (quote default) (quote font) (or (car left) (car right)) nil nil t)) (let ((origfont (x-symbol-mule-default-font))) (set-face-property (quote default) (quote font) first nil (quote (mule-fonts)) (quote prepend)) (set-face-property (quote default) (quote font) origfont))) (if noninteractive (list nil) (let ((faces (quote (x-symbol-face x-symbol-sub-face x-symbol-sup-face))) (docstrings x-symbol-face-docstrings) (raise 0) font) (while faces (when (setq font (x-symbol-try-font-name (car fonts) raise)) (make-face (car faces) (car docstrings)) (x-symbol-set-face-font (car faces) font (list (car left) (car right)) default)) (setq fonts (cdr fonts) raise (1+ raise) faces (cdr faces) docstrings (cdr docstrings)))) (if first (quote (x-symbol-face)) (quote (default))))) (if (or first (and x-symbol-latin-force-use (x-symbol-cset-coding cset)) (and (find-charset (car (x-symbol-cset-left cset))) (find-charset (car (x-symbol-cset-right cset))))) (let ((default (eq (x-symbol-cset-coding cset) (or x-symbol-default-coding (quote iso-8859-1)))) (registry (x-symbol-cset-registry cset)) (left (x-symbol-cset-left cset)) (right (x-symbol-cset-right cset))) (x-symbol-mule-make-charset left 0 registry) (x-symbol-mule-make-charset right 1 registry) (or default (null first) noninteractive (not (fboundp (quote face-property-matching-instance))) (and (null x-symbol-mule-change-default-face) (face-property-matching-instance (quote default) (quote font) (or (car left) (car right)) nil nil t)) (let ((origfont (x-symbol-mule-default-font))) (set-face-property (quote default) (quote font) first nil (quote (mule-fonts)) (quote prepend)) (set-face-property (quote default) (quote font) origfont))) (if noninteractive (list nil) (let ((faces (quote (x-symbol-face x-symbol-sub-face x-symbol-sup-face))) (docstrings x-symbol-face-docstrings) (raise 0) font) (while faces (when (setq font (x-symbol-try-font-name (car fonts) raise)) (make-face (car faces) (car docstrings)) (x-symbol-set-face-font (car faces) font (list (car left) (car right)) default)) (setq fonts (cdr fonts) raise (1+ raise) faces (cdr faces) docstrings (cdr docstrings)))) (if first (quote (x-symbol-face)) (quote (default)))))) (when (or first (and x-symbol-latin-force-use (x-symbol-cset-coding cset)) (and (find-charset (car (x-symbol-cset-left cset))) (find-charset (car (x-symbol-cset-right cset))))) (let ((default (eq (x-symbol-cset-coding cset) (or x-symbol-default-coding (quote iso-8859-1)))) (registry (x-symbol-cset-registry cset)) (left (x-symbol-cset-left cset)) (right (x-symbol-cset-right cset))) (x-symbol-mule-make-charset left 0 registry) (x-symbol-mule-make-charset right 1 registry) (or default (null first) noninteractive (not (fboundp (quote face-property-matching-instance))) (and (null x-symbol-mule-change-default-face) (face-property-matching-instance (quote default) (quote font) (or (car left) (car right)) nil nil t)) (let ((origfont (x-symbol-mule-default-font))) (set-face-property (quote default) (quote font) first nil (quote (mule-fonts)) (quote prepend)) (set-face-property (quote default) (quote font) origfont))) (if noninteractive (list nil) (let ((faces (quote (x-symbol-face x-symbol-sub-face x-symbol-sup-face))) (docstrings x-symbol-face-docstrings) (raise 0) font) (while faces (when (setq font (x-symbol-try-font-name (car fonts) raise)) (make-face (car faces) (car docstrings)) (x-symbol-set-face-font (car faces) font (list (car left) (car right)) default)) (setq fonts (cdr fonts) raise (1+ raise) faces (cdr faces) docstrings (cdr docstrings)))) (if first (quote (x-symbol-face)) (quote (default)))))) # bind (first) (let ((first (if noninteractive (caar fonts) (x-symbol-try-font-name (car fonts))))) (when (or first (and x-symbol-latin-force-use (x-symbol-cset-coding cset)) (and (find-charset (car (x-symbol-cset-left cset))) (find-charset (car (x-symbol-cset-right cset))))) (let ((default (eq (x-symbol-cset-coding cset) (or x-symbol-default-coding (quote iso-8859-1)))) (registry (x-symbol-cset-registry cset)) (left (x-symbol-cset-left cset)) (right (x-symbol-cset-right cset))) (x-symbol-mule-make-charset left 0 registry) (x-symbol-mule-make-charset right 1 registry) (or default (null first) noninteractive (not (fboundp (quote face-property-matching-instance))) (and (null x-symbol-mule-change-default-face) (face-property-matching-instance (quote default) (quote font) (or (car left) (car right)) nil nil t)) (let ((origfont (x-symbol-mule-default-font))) (set-face-property (quote default) (quote font) first nil (quote (mule-fonts)) (quote prepend)) (set-face-property (quote default) (quote font) origfont))) (if noninteractive (list nil) (let ((faces (quote (x-symbol-face x-symbol-sub-face x-symbol-sup-face))) (docstrings x-symbol-face-docstrings) (raise 0) font) (while faces (when (setq font (x-symbol-try-font-name (car fonts) raise)) (make-face (car faces) (car docstrings)) (x-symbol-set-face-font (car faces) font (list (car left) (car right)) default)) (setq fonts (cdr fonts) raise (1+ raise) faces (cdr faces) docstrings (cdr docstrings)))) (if first (quote (x-symbol-face)) (quote (default))))))) # bind (fonts cset) x-symbol-make-cset(((("iso8859-1" . iso-8859-1) ?\^-Aß -3750) nil latin-iso8859-1) (("-adobe-helvetica%s-medium-r-normal-*-%d-*-*-*-*-*-iso8859-1") ("-adobe-helvetica%s-medium-r-normal-*-%d-*-*-*-*-*-iso8859-1") ("-adobe-helvetica%s-medium-r-normal-*-%d-*-*-*-*-*-iso8859-1")))-b (let* ((faces (x-symbol-make-cset cset (if (stringp (car fonts)) (list fonts fonts fonts) fonts))) (cset-score (x-symbol-cset-score cset)) (coding (x-symbol-cset-coding cset)) (force-use (or x-symbol-latin-force-use (eq (or x-symbol-default-coding (quote iso-8859-1)) coding))) new-charsyms) (unless faces (when fonts (warn (if (and coding force-use) "X-Symbol characters with registry %S will look strange" "X-Symbol characters with registry %S are not used") (x-symbol-cset-registry cset)))) (dolist (entry table) (let ((charsym (car entry)) definition) (if (or faces (and coding force-use)) (x-symbol-make-char cset (cadr entry) charsym (car faces) coding)) (set (intern (symbol-name charsym) x-symbol-charsym-decode-obarray) (list charsym)) (if (memq (cddr entry) (quote (t unused))) (if coding (if (x-symbol-charsym-defined-p charsym) (if (eq (cddr entry) (quote unused)) (warn "X-Symbol charsym %s: redefinition as unused" charsym)) (if (eq (cddr entry) (quote unused)) (push charsym new-charsyms) (warn "X-Symbol charsym %s: alias without definition" charsym))) (warn "X-Symbol charsym %s: alias or unused without coding system" charsym)) (if (x-symbol-charsym-defined-p charsym) (progn (warn "X-Symbol charsym %s: redefinition (not used)" charsym) (or (assq charsym new-charsyms) (assq charsym x-symbol-all-charsyms) (push charsym new-charsyms))) (push charsym new-charsyms) (setq definition (cddr (or (assq charsym x-symbol-user-table) entry))) (when (x-symbol-table-junk definition) (warn "X-Symbol charsym %s: unused elements in definition" charsym)) (x-symbol-init-charsym-command charsym) (x-symbol-init-charsym-input charsym (x-symbol-table-grouping definition) (x-symbol-table-score definition) cset-score (x-symbol-table-input definition) (x-symbol-table-prefixes definition)) (x-symbol-init-charsym-aspects charsym (x-symbol-table-aspects definition)))))) (x-symbol-init-charsym-syntax new-charsyms) (setq x-symbol-all-charsyms (nconc x-symbol-all-charsyms (nreverse new-charsyms)))) # bind (table fonts cset) x-symbol-init-cset(((("iso8859-1" . iso-8859-1) ?\^-Aß -3750) nil latin-iso8859-1) ("-adobe-helvetica%s-medium-r-normal-*-%d-*-*-*-*-*-iso8859-1") ((nobreakspace 160 (white) nil nil (" ")) (exclamdown 161 (punctuation) nil nil ("!")) (cent 162 (currency "c") nil nil ("C|" "|C")) (sterling 163 (currency "L") nil nil ("L-" "-L")) (currency 164 (currency "x") nil nil ("ox" "xo")) (yen 165 (currency "Y") nil nil ("Y=" "=Y")) (brokenbar 166 (line) nil nil ("!!")) (section 167 (symbol) nil nil ("SS")) (diaeresis 168 (diaeresis accent)) (copyright 169 (symbol "C") nil nil ("CO" "cO")) (ordfeminine 170 (symbol "a") (shift up) nil ("a_" "_a")) (guillemotleft 171 (quote open guillemotright) (direction west . guillemotright) nil (t "<<")) (notsign 172 (symbol) nil nil ("-,")) (hyphen 173 (line) (size sml) nil ("-")) (registered 174 (symbol "R") nil nil ("RO")) (macron 175 (line) (shift up) nil ("-")) (degree 176 (symbol "0") (shift up) nil ("o^" "^o")) (plusminus 177 (operator) (direction north) nil (t "+-" t "+_")) (twosuperior 178 (symbol "2") (shift up) nil ("2^" "^2")) (threesuperior 179 (symbol "3") (shift up) nil ("3^" "^3")) (acute 180 (acute accent)) (mu1 181 (greek1 "m" nil "mu")) (paragraph 182 (symbol "P") nil nil ("q|")) (periodcentered 183 (dots) (shift up) nil ("." ".^" t "^.")) (cedilla 184 (cedilla accent)) (onesuperior 185 (symbol "1") (shift up) nil ("1^" "^1")) (masculine 186 (symbol "o") (shift up) nil ("o_" "_o")) (guillemotright 187 (quote close guillemotleft) (direction east) nil (t ">>")) (onequarter 188 (symbol "1") nil nil ("1Q" "1/4")) (onehalf 189 (symbol "2") nil nil ("1H" "1/2")) (threequarters 190 (symbol "3") nil nil ("3Q" "3/4")) (questiondown 191 (punctuation) nil nil ("?")) (Agrave 192 (grave "A" agrave)) (Aacute 193 (acute "A" aacute)) (Acircumflex 194 (circumflex "A" acircumflex)) (Atilde 195 (tilde "A" atilde)) (Adiaeresis 196 (diaeresis "A" adiaeresis)) (Aring 197 (ring "A" aring)) (AE 198 (letter "AE" ae)) (Ccedilla 199 (cedilla "C" ccedilla)) (Egrave 200 (grave "E" egrave)) (Eacute 201 (acute "E" eacute)) (Ecircumflex 202 (circumflex "E" ecircumflex)) (Ediaeresis 203 (diaeresis "E" ediaeresis)) (Igrave 204 (grave "I" igrave)) (Iacute 205 (acute "I" iacute)) (Icircumflex 206 (circumflex "I" icircumflex)) (Idiaeresis 207 (diaeresis "I" idiaeresis)) (ETH 208 (slash "D" eth) nil 120) (Ntilde 209 (tilde "N" ntilde)) (Ograve 210 (grave "O" ograve)) (Oacute 211 (acute "O" oacute)) (Ocircumflex 212 (circumflex "O" ocircumflex)) (Otilde 213 (tilde "O" otilde)) (Odiaeresis 214 (diaeresis "O" odiaeresis)) (multiply 215 (operator) (shift up) nil ("x")) (Ooblique 216 (slash "O" oslash)) (Ugrave 217 (grave "U" ugrave)) (Uacute 218 (acute "U" uacute)) (Ucircumflex 219 (circumflex "U" ucircumflex)) (Udiaeresis 220 (diaeresis "U" udiaeresis)) (Yacute 221 (acute "Y" yacute)) (THORN 222 (letter "TH" thorn)) (ssharp 223 (letter "ss" nil) nil nil ("ss" "s:" t ":s" "s\"" "\"s")) (agrave 224 (grave "a" Agrave)) (aacute 225 (acute "a" Aacute)) (acircumflex 226 (circumflex "a" Acircumflex)) (atilde 227 (tilde "a" Atilde)) (adiaeresis 228 (diaeresis "a" Adiaeresis)) (aring 229 (ring "a" Aring)) (ae 230 (letter "ae" AE)) (ccedilla 231 (cedilla "c" Ccedilla)) (egrave 232 (grave "e" Egrave)) (eacute 233 (acute "e" Eacute)) (ecircumflex 234 (circumflex "e" Ecircumflex)) (ediaeresis 235 (diaeresis "e" Ediaeresis)) (igrave 236 (grave "i" Igrave)) (iacute 237 (acute "i" Iacute)) (icircumflex 238 (circumflex "i" Icircumflex)) (idiaeresis 239 (diaeresis "i" Idiaeresis)) (eth 240 (slash "d" ETH) nil 120) (ntilde 241 (tilde "n" Ntilde)) (ograve 242 (grave "o" Ograve)) (oacute 243 (acute "o" Oacute)) (ocircumflex 244 (circumflex "o" Ocircumflex)) (otilde 245 (tilde "o" Otilde)) (odiaeresis 246 (diaeresis "o" Odiaeresis)) (division 247 (operator) nil nil (":-" "-:")) (oslash 248 (slash "o" Ooblique)) (ugrave 249 (grave "u" Ugrave)) (uacute 250 (acute "u" Uacute)) (ucircumflex 251 (circumflex "u" Ucircumflex)) (udiaeresis 252 (diaeresis "u" Udiaeresis)) (yacute 253 (acute "y" Yacute)) (thorn 254 (letter "th" THORN)) (ydiaeresis 255 (diaeresis "y" Ydiaeresis))))-b (if noninteractive nil (x-symbol-initialize) (setq x-symbol-all-charsyms nil) (unless (console-type) (unless x-symbol-default-coding (warn "X-Symbol: only limited support on a console")) (unless (eq x-symbol-latin-force-use (quote console-user)) (setq x-symbol-latin1-fonts nil) (setq x-symbol-latin2-fonts nil) (setq x-symbol-latin3-fonts nil) (setq x-symbol-latin5-fonts nil) (setq x-symbol-latin9-fonts nil) (setq x-symbol-xsymb0-fonts nil) (setq x-symbol-xsymb1-fonts nil))) (x-symbol-init-cset x-symbol-latin1-cset x-symbol-latin1-fonts x-symbol-latin1-table) (x-symbol-init-cset x-symbol-latin2-cset x-symbol-latin2-fonts x-symbol-latin2-table) (x-symbol-init-cset x-symbol-latin3-cset x-symbol-latin3-fonts x-symbol-latin3-table) (x-symbol-init-cset x-symbol-latin5-cset x-symbol-latin5-fonts x-symbol-latin5-table) (x-symbol-init-cset x-symbol-latin9-cset x-symbol-latin9-fonts x-symbol-latin9-table) (x-symbol-init-latin-decoding) (x-symbol-init-cset x-symbol-xsymb0-cset x-symbol-xsymb0-fonts x-symbol-xsymb0-table) (x-symbol-init-cset x-symbol-xsymb1-cset x-symbol-xsymb1-fonts x-symbol-xsymb1-table)) (unless noninteractive (x-symbol-initialize) (setq x-symbol-all-charsyms nil) (unless (console-type) (unless x-symbol-default-coding (warn "X-Symbol: only limited support on a console")) (unless (eq x-symbol-latin-force-use (quote console-user)) (setq x-symbol-latin1-fonts nil) (setq x-symbol-latin2-fonts nil) (setq x-symbol-latin3-fonts nil) (setq x-symbol-latin5-fonts nil) (setq x-symbol-latin9-fonts nil) (setq x-symbol-xsymb0-fonts nil) (setq x-symbol-xsymb1-fonts nil))) (x-symbol-init-cset x-symbol-latin1-cset x-symbol-latin1-fonts x-symbol-latin1-table) (x-symbol-init-cset x-symbol-latin2-cset x-symbol-latin2-fonts x-symbol-latin2-table) (x-symbol-init-cset x-symbol-latin3-cset x-symbol-latin3-fonts x-symbol-latin3-table) (x-symbol-init-cset x-symbol-latin5-cset x-symbol-latin5-fonts x-symbol-latin5-table) (x-symbol-init-cset x-symbol-latin9-cset x-symbol-latin9-fonts x-symbol-latin9-table) (x-symbol-init-latin-decoding) (x-symbol-init-cset x-symbol-xsymb0-cset x-symbol-xsymb0-fonts x-symbol-xsymb0-table) (x-symbol-init-cset x-symbol-xsymb1-cset x-symbol-xsymb1-fonts x-symbol-xsymb1-table)) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load-internal("x-symbol" nil require nil undecided) # bind (path handler filename nosuffix nomessage noerror file) load("x-symbol" nil require nil) # (unwind-protect ...) require(x-symbol) byte-code("..." [base-info --dolist-temp--67568 charset-to-use charset-code --dolist-temp--67567 sgml-info define-specifier-tag mule-fonts (control +) ((varnothing (math letter user) "\\varnothing")) ("figures/" "Graphics/") require tex-site x-symbol x-symbol-sgml x-symbol-tex nil assoc 126 xsymb0-right xsymb0-left set-unicode-conversion make-char missing-xsymb1 default-boundp set-default ((complexnums (symbol) 8450 "C") (natnums (symbol) 8469 "N") (rationalnums (symbol) 8474 "Q") (realnums (symbol) 8477 "R") (integers (symbol) 8484 "Z") (top (symbol) 8868 "&top") (circleminus (symbol) 8854 "&ominus") (circledot (symbol) 8857 "&odot") (braceleft2 (symbol) 57623 "&{") (braceright2 (symbol) 57624 "&}") (epsilon1 (symbol) 57551 "&eps") (bardbl (symbol) 8741 "&parallel") (lessless (relation) 8810 "&lessless") (greatergreater (relation) 8811 "&greatergreater")) append xsymb1-right xsymb1-left make-charset unicodeMathSymbol "Unicode Block for (some) Math Symbols" (dimension 1 chars 96 columns 1 final ?5 long-name "Unicode Block for (some) Math Symbols" short-name "MathSymbols") current-load-list x-symbol-compose-key x-symbol-tex-user-table x-symbol-tex-image-cached-dirs x-symbol-sgml-xsymb0-table x-symbol-xsymb0-table x-symbol-sgml-xsymb1-table 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-startup" nil require nil binary) # bind (path handler filename nosuffix nomessage noerror file) load("x-symbol-startup" nil require nil) # (unwind-protect ...) require(x-symbol-startup) (and (>= emacs-minor-version 5) (require (quote x-symbol-startup))) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load-internal("/home/holst/.xemacs/init.el" t t t undecided) # bind (path handler filename nosuffix nomessage noerror file) load("/home/holst/.xemacs/init.el" t t t) load-user-init-file() #<compiled-function nil "...(10)" [init-file-had-error load-user-init-file-p load-user-init-file nil] 2>() # (unwind-protect ...) call-with-condition-handler(#<compiled-function (__load_init_file_arg__) "...(26)" [init-file-had-error user-init-file __load_init_file_arg__ errstr error-message-string message "Error in init file: %s" lwarn initialization error "An error has occurred while loading %s:\n\n%s\n\nBacktrace follows:\n\n%s\n\nTo ensure normal operation, you should investigate the cause of the error\nin your initialization file and remove it. Use the `-debug-init' option\nto XEmacs to enter the debugger when the error occurs and investigate the\nexact problem." backtrace-in-condition-handler-eliminating-handler t] 8> #<compiled-function nil "...(10)" [init-file-had-error load-user-init-file-p load-user-init-file nil] 2>) # (condition-case ... . ((error))) # bind (debug-on-error debug-on-error-from-init-file debug-on-error-should-be-set debug-on-error-initial) load-init-file() # bind (command-line-args-left) command-line() # (condition-case ... . ((t (byte-code " -A‡" [error-data data nil] 1))))-b # bind (error-data) normal-top-level() # (condition-case ... . error) # (catch top-level ...) To ensure normal operation, you should investigate the cause of the error in your initialization file and remove it. Use the `-debug-init' option to XEmacs to enter the debugger when the error occurs and investigate the exact problem. _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta