[Bug: 21.5-b32] Specifier crash in b32

================================================================ Dear Bug Team! This crash is something new in b32. My init code was running fine until I updated my build to b32. It's not 100% repeatable, but I can sometimes make it happen by clicking in the window while xemacs is loading up my init files. The lisp backtrace and C backtrace are appended below. (Is there a better way to do that? Attaching files?) Ray ================================================================ System Info to help track down your bug: --------------------------------------- uname -a: Linux rtoy.mtv.corp.google.com 2.6.38.8-gg868 #2 SMP Fri May 18 03:37:30 PDT 2012 x86_64 GNU/Linux ../xemacs/configure '--prefix=/home/rtoy' '--with-mule' '--with-xft=emacs,menubars' XEmacs 21.5-b32 "habanero" febc025c4e0c+ configured for `x86_64-unknown-linux'. Compilation Environment and Installation Defaults: Source code location: /home/rtoy/src/XEmacs/xemacs Installation prefix: /home/rtoy Operating system description file: `s/linux.h' Not using any machine description file Compiler version: gcc (Ubuntu 4.4.3-4ubuntu5.1) 4.4.3 - GCC specs file: specs. - Compiler command: gcc -Wall -Wno-switch -Wundef -Wsign-compare -Wno-char-subscripts -Wpacked -Wshadow -Wmissing-declarations -Wmissing-prototypes -Wstrict-prototypes -Wdeclaration-after-statement -Wunused-parameter -g libc version: GNU libc 2.11.1-0ubuntu7.10 (Debian) Relocating allocator for buffers: no GNU version of malloc: yes - Using Doug Lea's new malloc from the GNU C Library. Package Search (a 'root' contains '{xemacs,mule,site}-packages'): User package roots: ~/.xemacs System package roots: /home/rtoy/share/xemacs Window System: Compiling in support for the X window system: - X Windows headers location: - X Windows libraries location: - 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/Xaw - Athena library to link: Xaw Using Lucid menubars. - Using Xft to render antialiased fonts in menubars. WARNING: This Xft feature will be replaced with a face. Using Lucid scrollbars. Using Athena dialog boxes. Using Athena native widgets. TTY: Compiling in support for ncurses. Images: Compiling in support for XPM images. Compiling in support for PNG images. Compiling in support for JPEG images. Sound: Compiling in support for sound (native). Compiling in support for ALSA (Advanced Linux Sound Architecture). Databases: 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 "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. Dumping into executable. Compiling in support for extra debugging code. Compiling in support for runtime error checking. WARNING: --------------------------------------------------------- WARNING: XEmacs will run noticeably more slowly as a result. WARNING: Error checking is on by default for XEmacs beta releases. WARNING: --------------------------------------------------------- Load-Path Lisp Shadows: ---------------------- (/home/rtoy/quicklisp/dists/quicklisp/software/slime-20120703-cvs/contrib/bridge /home/rtoy/share/xemacs/xemacs-packages/lisp/ilisp/bridge /home/rtoy/share/xemacs/xemacs-packages/lisp/cedet-common/sformat /home/rtoy/share/xemacs/xemacs-packages/lisp/semantic/sformat /home/rtoy/share/xemacs/xemacs-packages/lisp/cedet-common/working /home/rtoy/share/xemacs/xemacs-packages/lisp/semantic/working /home/rtoy/.xemacs/site-packages/lisp/eldoc /home/rtoy/share/xemacs/xemacs-packages/lisp/xemacs-devel/eldoc /home/rtoy/share/xemacs/mule-packages/lisp/mule-base/viet-util /home/rtoy/share/xemacs-21.5-b32/lisp/mule/viet-util /home/rtoy/share/xemacs/mule-packages/lisp/mule-base/japan-util /home/rtoy/share/xemacs-21.5-b32/lisp/mule/japan-util /home/rtoy/share/xemacs/mule-packages/lisp/mule-base/ethio-util /home/rtoy/share/xemacs-21.5-b32/lisp/mule/ethio-util /home/rtoy/share/xemacs/mule-packages/lisp/mule-base/korea-util /home/rtoy/share/xemacs-21.5-b32/lisp/mule/korea-util /home/rtoy/share/xemacs/mule-packages/lisp/mule-base/china-util /home/rtoy/share/xemacs-21.5-b32/lisp/mule/china-util /home/rtoy/share/xemacs/xemacs-packages/lisp/apel/alist /home/rtoy/share/xemacs-21.5-b32/lisp/alist /home/rtoy/share/xemacs/mule-packages/lisp/mule-ucs/unicode /home/rtoy/share/xemacs-21.5-b32/lisp/unicode /home/rtoy/share/xemacs/xemacs-packages/lisp/xemacs-base/easy-mmode /home/rtoy/share/xemacs-21.5-b32/lisp/easy-mmode /home/rtoy/share/xemacs/xemacs-packages/lisp/xemacs-base/regexp-opt /home/rtoy/share/xemacs-21.5-b32/lisp/regexp-opt /home/rtoy/share/xemacs/xemacs-packages/lisp/build/build-report /home/rtoy/share/xemacs-21.5-b32/lisp/build-report) Internationalization Settings: ------------------------- Environment: Value of LC_ALL : nil Value of LC_COLLATE : nil Value of LC_CTYPE : nil Value of LC_MESSAGES : nil Value of LC_MONETARY : nil Value of LC_NUMERIC : nil Value of LC_TIME : nil Value of LANG : en_US.UTF-8 Lisp locale settings: current-language-environment => "English (UTF-8)" default-buffer-file-coding-system => utf-8 default-process-coding-system => (undecided . utf-8) (current-locale) => "en_US.UTF-8" keyboard-coding-system => utf-8 terminal-coding-system => utf-8 (coding-priority-list) => (utf-8 iso-8-1 utf-16-little-endian-bom utf-16-bom utf-8-bom iso-7 no-conversion iso-8-2 iso-8-designate iso-lock-shift shift-jis big5 utf-16-little-endian utf-16 ucs-4) Coding system aliases: 'native is aliased to utf-8 'file-name is aliased to utf-8 'mswindows-multibyte-system-default is not a coding system alias Installed XEmacs Packages: ------------------------- (zenirc ver: 1.16 upstream: 2.112) (xwem ver: 1.23 upstream: lg(a)xwem.org--2005/xwem--main--2.1--versionfix-1) (xslt-process ver: 1.12 upstream: 1.2.1) (xslide ver: 1.09 upstream: 0.2.2) (xlib ver: 1.14 upstream: lg(a)xwem.org--2005/xlib--main--2.1--version-0) (xetla ver: 1.02 upstream: steve(a)eicq.org--2005/xetla--main--1.1--version-0) (xemacs-devel ver: 1.82 upstream: No-Upstream-Ver) (xemacs-base ver: 2.32 upstream: No-Upstream-Ver) (x-symbol ver: 1.13 upstream: 4.5.1) (w3 ver: 1.38 upstream: 4.0pre47) (vm ver: 8.08 upstream: 8.0.12-devo) (viper ver: 1.67 upstream: 3.09) (view-process ver: 1.13 upstream: 2.4) (vhdl ver: 1.22 upstream: 3.33.12) (vc-cc ver: 1.22 upstream: No-Upstream-Ver) (vc ver: 1.48 upstream: No-Upstream-Ver) (tramp ver: 1.4 upstream: 2.0.56) (tpu ver: 1.14 upstream: 4.2X) (tooltalk ver: 1.15 upstream: No-Upstream-Ver) (tm ver: 1.39 upstream: No-Upstream-Ver) (time ver: 1.14 upstream: 1.17) (textools ver: 1.15 upstream: No-Upstream-Ver) (text-modes ver: 2.01 upstream: No-Upstream-Ver) (texinfo ver: 1.3 upstream: No-Upstream-Ver) (supercite ver: 1.21 upstream: 3.55x3) (strokes ver: 1.1 upstream: No-Upstream-Ver) (speedbar ver: 1.3 upstream: 1.0pre4) (sounds-wav ver: 1.12 upstream: No-Upstream-Ver) (sounds-au ver: 1.12 upstream: No-Upstream-Ver) (sml-mode ver: 0.12 upstream: 3.9.5) (slider ver: 1.16 upstream: 0.3x1) (sieve ver: 1.18 upstream: No-Upstream-Ver) (sh-script ver: 1.24 upstream: 2.0f) (sgml ver: 1.11 upstream: No-Upstream-Ver) (semantic ver: 1.21 upstream: 2.0pre4) (scheme ver: 1.18 upstream: No-Upstream-Ver) (sasl ver: 1.16 upstream: 1.14.4) (ruby-modes ver: 1.05 upstream: 1.8.7) (rmail ver: 1.14 upstream: No-Upstream-Ver) (riece ver: 1.23 upstream: 3.1.2) (reftex ver: 1.34 upstream: 4.21) (re-builder ver: 1.05 upstream: 1.20) (python-modes ver: 1.14 upstream: 5.0.0) (psgml-dtds ver: 1.03 upstream: No-Upstream-Ver) (psgml ver: 1.45 upstream: 1.3.2) (ps-print ver: 1.12 upstream: 6.5.6) (prog-modes ver: 2.26 upstream: No-Upstream-Ver) (pgg ver: 1.08 upstream: 0.1) (perl-modes ver: 1.14 upstream: No-Upstream-Ver) (pcomplete ver: 1.06 upstream: 1.1.6) (pcl-cvs ver: 1.7 upstream: R-2_9_9) (pc ver: 1.28 upstream: No-Upstream-Ver) (os-utils ver: 1.41 upstream: No-Upstream-Ver) (oo-browser ver: 1.05 upstream: 4.08) (ocaml ver: 0.06 upstream: 3.06) (net-utils ver: 1.57 upstream: N/A) (mmm-mode ver: 1.06 upstream: 0.4.8) (misc-games ver: 1.22 upstream: No-Upstream-Ver) (mine ver: 1.16 upstream: 1.9) (mh-e ver: 1.33 upstream: 7.4.2) (mew ver: 1.19 upstream: 1.94.2) (mailcrypt ver: 2.14 upstream: 3.5.8) (mail-lib ver: 1.8 upstream: No-Upstream-Ver) (liece ver: 1.16 upstream: 1.4.9) (jde ver: 1.52 upstream: 2.3.5.1) (ispell ver: 1.32 upstream: 3.6) (ilisp ver: 1.36 upstream: 5.12.0) (igrep ver: 1.16 upstream: 2.111) (idlwave ver: 1.32 upstream: 5.1) (ibuffer ver: 1.1 upstream: No-Upstream-Ver) (hyperbole ver: 1.18 upstream: 5.0.3) (hm--html-menus ver: 1.24 upstream: 5.9) (haskell-mode ver: 1.11 upstream: 2.1) (guided-tour ver: 0.52 upstream: No-Upstream-Ver) (gnus ver: 1.95 upstream: 5.10.10) (gnats ver: 1.17 upstream: 3.101) (general-docs ver: 1.06 upstream: No-Upstream-Ver) (games ver: 1.21 upstream: 2.00) (fsf-compat ver: 1.19 upstream: No-Upstream-Ver) (frame-icon ver: 1.11 upstream: No-Upstream-Ver) (fortran-modes ver: 1.05 upstream: No-Upstream-Ver) (forms ver: 1.15 upstream: 2.37) (footnote ver: 1.16 upstream: 0.18x) (eudc ver: 1.41 upstream: 1.32) (eterm ver: 1.18 upstream: No-Upstream-Ver) (ess ver: 1.16 upstream: 5.2.7) (eshell ver: 1.18 upstream: 0fc80a3f6bb3bb59f42e9ff83cc8b89bf90fe658) (escreen ver: 1.01 upstream: 1.16) (erc ver: 0.23 upstream: Version 5.1.2 Revision: 1.796.2.6) (emerge ver: 1.11 upstream: No-Upstream-Ver) (elib ver: 1.13 upstream: 1.0) (eieio ver: 1.07 upstream: 1.0pre4) (efs ver: 1.34 upstream: 1.24) (edt ver: 1.14 upstream: No-Upstream-Ver) (edit-utils ver: 2.46 upstream: No-Upstream-Ver) (ediff ver: 1.81 upstream: 2.75) (edebug ver: 1.22 upstream: No-Upstream-Ver) (ede ver: 1.04 upstream: 1.0pre4) (ecrypto ver: 0.21 upstream: 2.0) (ecb ver: 1.22 upstream: 2.31) (easypg ver: 1.03 upstream: 0.0.16) (docbookide ver: 0.08 upstream: 0.1) (dired ver: 1.2 upstream: 7.17) (dictionary ver: 1.16 upstream: 1.8) (debug ver: 1.18 upstream: No-Upstream-Ver) (crisp ver: 1.15 upstream: 1.34) (cookie ver: 1.15 upstream: No-Upstream-Ver) (cogre ver: 1.02 upstream: 0.5) (clearcase ver: 1.1 upstream: /main/laptop/165) (cedet-common ver: 1.01 upstream: 1.0pre4) (cc-mode ver: 1.55 upstream: 5.32.2) (calendar ver: 1.38 upstream: No-Upstream-Ver) (calc ver: 1.26 upstream: 2.02fX3) (c-support ver: 1.22 upstream: No-Upstream-Ver) (build ver: 1.15 upstream: 2.02) (bbdb ver: 1.32 upstream: 2.35) (auctex ver: 1.51 upstream: 11.84) (apel ver: 1.34 upstream: 10.7) (ada ver: 1.14 upstream: 2.27) (Sun ver: 1.17 upstream: No-Upstream-Ver) (skk ver: 1.24 upstream: 10.62a) (mule-ucs ver: 1.18 upstream: 0.84) (mule-base ver: 1.56 upstream: No-Upstream-Ver) (lookup ver: 1.15 upstream: 1.0) (locale ver: 1.28 upstream: No-Upstream-Ver) (leim ver: 1.33 upstream: No-Upstream-Ver) (latin-unity ver: 1.2 upstream: 1.20) (latin-euro-standards ver: 1.09 upstream: 1.09) (egg-its ver: 1.27 upstream: No-Upstream-Ver) (edict ver: 1.17 upstream: 0.9.9) Installed Modules: ----------------- Features: -------- (parse-time mail-extr message messagexmas mml mml-sec mml-smime smime dig mm-decode mm-bodies mm-encode mailcap lpr mail-parse rfc2231 rfc2047 rfc2045 qp ietf-drums mail-abbrevs nnheader nnheaderxm gnus-util netrc time-date mm-util mail-prsvr mail-utils gmm-utils wid-edit mailheader canlock sha1 hex-util xemacsbug shadow sendmail rfc822 mercurial executable diff-mode cc-mode cc-fonts cc-guess cc-menus cc-cmds view-less view hyper-apropos vc-rcs efs-cu guided-tour lazy-lock lazy-shot paren blink-paren gnuserv git log-edit pcl-cvs-util cvs-compat dired-faces dired-xemacs dired add-log ewoc mwheel scroll-in-place slime-fancy slime-fontifying-fu slime-package-fu slime-references slime-scratch slime-presentations slime-fuzzy slime-fancy-inspector slime-c-p-c slime-editing-commands slime-autodoc slime-parse slime-repl slime byte-optimize bytecomp byte-compile edmacro overlay timer comint hyperspec browse-url slime-autoloads vc ring vc-hooks vc-xemacs whitespace cc-styles cc-align cc-engine cc-vars google-c-style cc-defs regexp-opt erc-spelling flyspell ispell erc-goodies erc erc-backend erc-menu erc-compat format-spec thingatpt pp font-lock cus-face advice advice-preload uniquify filladapt zenirc-autoloads xwem-autoloads xslt-process-autoloads xslide-autoloads xlib-autoloads xetla-autoloads xemacs-devel-autoloads xemacs-base-autoloads x-symbol-autoloads w3-autoloads vm-autoloads viper-autoloads view-process-autoloads vhdl-autoloads vc-cc-autoloads vc-autoloads tramp-autoloads tpu-autoloads tooltalk-autoloads tm-autoloads time-autoloads textools-autoloads text-modes-autoloads texinfo-autoloads supercite-autoloads strokes-autoloads speedbar-autoloads sounds-wav-autoloads sounds-au-autoloads sml-mode-autoloads slider-autoloads sieve-autoloads sh-script-autoloads sgml-autoloads semantic-autoloads scheme-autoloads sasl-autoloads ruby-modes-autoloads rmail-autoloads riece-autoloads reftex-autoloads re-builder-autoloads python-modes-autoloads psgml-dtds-autoloads psgml-autoloads ps-print-autoloads prog-modes-autoloads pgg-autoloads perl-modes-autoloads pcomplete-autoloads pcl-cvs-autoloads pc-autoloads os-utils-autoloads oo-browser-autoloads ocaml-autoloads net-utils-autoloads mmm-mode-autoloads misc-games-autoloads mine-autoloads mh-e-autoloads mew-autoloads mailcrypt-autoloads mail-lib-autoloads liece-autoloads jde-autoloads ispell-autoloads ilisp-autoloads igrep-autoloads idlwave-autoloads ibuffer-autoloads hyperbole-autoloads hm--html-menus-autoloads haskell-mode-autoloads guided-tour-autoloads gnus-autoloads gnats-autoloads general-docs-autoloads games-autoloads fsf-compat-autoloads frame-icon-autoloads fortran-modes-autoloads forms-autoloads footnote-autoloads eudc-autoloads eterm-autoloads ess-autoloads eshell-autoloads escreen-autoloads erc-autoloads emerge-autoloads elib-autoloads eieio-autoloads efs-autoloads edt-autoloads edit-utils-autoloads ediff-autoloads edebug-autoloads ede-autoloads ecrypto-autoloads ecb-autoloads easypg-autoloads docbookide-autoloads dired-autoloads dictionary-autoloads debug-autoloads crisp-autoloads cookie-autoloads cogre-autoloads clearcase-autoloads cedet-common-autoloads cc-mode-autoloads calendar-autoloads calc-autoloads c-support-autoloads build-autoloads bbdb-autoloads tex-site auctex-autoloads apel-autoloads ada-autoloads Sun-autoloads skk-autoloads mule-ucs-autoloads mule-base-autoloads lookup-autoloads locale-autoloads leim-autoloads latin-unity-autoloads latin-euro-standards-autoloads egg-its-autoloads edict-autoloads modules-autoloads mule-autoloads auto-autoloads auto-show fontl-hooks canna-leim tibetan thai slovenian czech romanian lao devanagari indian cyrillic code-cmds gutter-items menubar-items x-menubar mode-motion mouse behavior itimer auto-save lisp-mode easymenu easy-mmode iso8859-1 page buff-menu lib-complete loadhist cus-file derived newcomment rsz-minibuf env text-props fontconfig frame obsolete packages cus-start widget custom cl-extra cl backquote unicode font-mgr lucid-scrollbars cut-buffer xft-fonts lucid-menubars athena-dialogs x c-balloon-help tty-frames tty toolbar native-sound alsa-sound scrollbar unix-processes multicast network-streams subprocesses modules menu-accelerator-support menubar md5 xemacs xim mule gutter png jpeg xpm xbm lisp-float-type file-coding linux dialog devices debug-xemacs window-system base64) ================================================================ Lisp backtrace follows: # (unwind-protect ...) define-specifier-tag(lo nil (lambda (charset) (string-match "^lao" (symbol-name (charset-name charset))))) (while (consp #:G15624) (setq #:G15625 (car #:G15624) tag-name (car-safe (prog1 #:G15625 (setq #:G15625 (cdr #:G15625)))) regex (car-safe (prog1 #:G15625 (setq #:G15625 (cdr #:G15625)))) size (car #:G15625)) (define-specifier-tag tag-name nil (list (quote lambda) (quote (charset)) (list* (quote string-match) regex (quote ((symbol-name (charset-name charset))))))) (set-face-font (quote default) (fc-name-unparse (fc-font-match (selected-device) (fc-name-parse (format "-%d:lang=%s" size tag-name)))) nil (list (quote x) tag-name) (quote append)) (setq #:G15624 (cdr #:G15624))) # bind (size regex tag-name #:G15625 #:G15624) (let* ((#:G15624 (quote ((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)))) (#:G15625 nil) (tag-name nil) (regex nil) (size nil)) (while (consp #:G15624) (setq #:G15625 (car #:G15624) tag-name (car-safe (prog1 #:G15625 (setq #:G15625 (cdr #:G15625)))) regex (car-safe (prog1 #:G15625 (setq #:G15625 (cdr #:G15625)))) size (car #:G15625)) (define-specifier-tag tag-name nil (list (quote lambda) (quote (charset)) (list* (quote string-match) regex (quote ((symbol-name (charset-name charset))))))) (set-face-font (quote default) (fc-name-unparse (fc-font-match (selected-device) (fc-name-parse (format "-%d:lang=%s" size tag-name)))) nil (list (quote x) tag-name) (quote append)) (setq #:G15624 (cdr #:G15624))) nil) # (catch #:nil ...) (catch (quote #:nil) (let* ((#:G15624 (quote ((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)))) (#:G15625 nil) (tag-name nil) (regex nil) (size nil)) (while (consp #:G15624) (setq #:G15625 (car #:G15624) tag-name (car-safe (prog1 #:G15625 (setq #:G15625 (cdr #:G15625)))) regex (car-safe (prog1 #:G15625 (setq #:G15625 (cdr #:G15625)))) size (car #:G15625)) (define-specifier-tag tag-name nil (list (quote lambda) (quote (charset)) (list* (quote string-match) regex (quote ((symbol-name (charset-name charset))))))) (set-face-font (quote default) (fc-name-unparse (fc-font-match (selected-device) (fc-name-parse (format "-%d:lang=%s" size tag-name)))) nil (list (quote x) tag-name) (quote append)) (setq #:G15624 (cdr #:G15624))) nil)) (block nil (let* ((#:G15624 (quote ((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)))) (#:G15625 nil) (tag-name nil) (regex nil) (size nil)) (while (consp #:G15624) (setq #:G15625 (car #:G15624) tag-name (pop #:G15625) regex (pop #:G15625) size (car #:G15625)) (define-specifier-tag tag-name nil (backquote (lambda (charset) (string-match (\, regex) (symbol-name (charset-name charset)))))) (set-face-font (quote default) (fc-name-unparse (fc-font-match (selected-device) (fc-name-parse (format "-%d:lang=%s" size tag-name)))) nil (list (quote x) tag-name) (quote append)) (setq #:G15624 (cdr #:G15624))) nil)) (loop for (tag-name regex size) in (quote ((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 (backquote (lambda (charset) (string-match (\, regex) (symbol-name (charset-name charset)))))) (set-face-font (quote default) (fc-name-unparse (fc-font-match (selected-device) (fc-name-parse (format "-%d:lang=%s" size tag-name)))) nil (list (quote x) tag-name) (quote append))) (with-fboundp-1 (quote (fc-name-unparse fc-font-match fc-name-parse)) (set-specifier (face-font (quote default)) (cons (quote (x)) (fc-name-unparse (fc-font-match (selected-device) (fc-name-parse "Monospace-11.5:lang=en"))))) (loop for (tag-name regex size) in (quote ((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 (backquote (lambda (charset) (string-match (\, regex) (symbol-name (charset-name charset)))))) (set-face-font (quote default) (fc-name-unparse (fc-font-match (selected-device) (fc-name-parse (format "-%d:lang=%s" size tag-name)))) nil (list (quote x) tag-name) (quote append)))) (with-fboundp (quote (fc-name-unparse fc-font-match fc-name-parse)) (set-specifier (face-font (quote default)) (cons (quote (x)) (fc-name-unparse (fc-font-match (selected-device) (fc-name-parse "Monospace-11.5:lang=en"))))) (loop for (tag-name regex size) in (quote ((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 (backquote (lambda (charset) (string-match (\, regex) (symbol-name (charset-name charset)))))) (set-face-font (quote default) (fc-name-unparse (fc-font-match (selected-device) (fc-name-parse (format "-%d:lang=%s" size tag-name)))) nil (list (quote x) tag-name) (quote append)))) (cond ((featurep (quote xft-fonts)) (with-fboundp (quote (fc-name-unparse fc-font-match fc-name-parse)) (set-specifier (face-font (quote default)) (cons (quote (x)) (fc-name-unparse (fc-font-match (selected-device) (fc-name-parse "Monospace-11.5:lang=en"))))) (loop for (tag-name regex size) in (quote ((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 (backquote (lambda (charset) (string-match (\, regex) (symbol-name (charset-name charset)))))) (set-face-font (quote default) (fc-name-unparse (fc-font-match (selected-device) (fc-name-parse (format "-%d:lang=%s" size tag-name)))) nil (list (quote x) tag-name) (quote append)))) (set-face-font (quote default) "Bitstream Vera Sans Mono-12") (when nil! (define-specifier-tag (quote lang-ko)) (define-specifier-tag (quote lang-ja)) (define-specifier-tag (quote lang-zh)) (set-face-font (quote default) "UnBatang-12" nil (quote (lang-ko)) (quote remove-tag-set-append)) (set-face-font (quote default) "Sazanami Mincho-12" nil (quote (lang-ja)) (quote remove-tag-set-append)) (set-face-font (quote default) "WenQuanYi Micro Hei-12" nil (quote (lang-zh)) (quote remove-tag-set-append)) (define-specifier-tag (quote lang-th)) (set-face-font (quote default) "Umpush-12" nil (quote (lang-th)) (quote remove-tag-set-append)) (define-specifier-tag (quote lang-ar)) (set-face-font (quote default) "DejaVu Sans Mono-12" nil (quote (lang-ar)) (quote remove-tag-set-append)) (define-specifier-tag (quote lang-ta)) (set-face-font (quote default) "TSCu_Times-12" nil (quote (lang-ta)) (quote remove-tag-set-append)) (define-specifier-tag (quote lang-hi)) (set-face-font (quote default) "Lohit Hindi-12" nil (quote (lang-hi)) (quote remove-tag-set-append))! (define-specifier-tag (quote lang-he)) (set-face-font (quote ! default) "Arial-12" nil (quote (lang-he)) (quote remove-tag-set-append)) (define-specifier-tag (quote lang-am)) (set-face-font (quote default) "FreeSerif-12" nil (quote (lang-am)) (quote remove-tag-set-append)) (define-specifier-tag (quote lang-bn)) (set-face-font (quote default) "Mukti Narrow-12" nil (quote (lang-bn)) (quote remove-tag-set-append)) (define-specifier-tag (quote lang-gu)) (set-face-font (quote default) "Lohit Gujarati-12" nil (quote (lang-gu)) (quote remove-tag-set-append)) (define-specifier-tag (quote lang-kn)) (set-face-font (quote default) "Lohit Kannada-12" nil (quote (lang-kn)) (quote remove-tag-set-append)) (define-specifier-tag (quote lang-km)) (set-face-font (quote default) "Khmer OS-12" nil (quote (lang-km)) (quote remove-tag-set-append)) (define-specifier-tag (quote lang-ml)) (set-face-font (quote default) "Rachana-12" nil (quote (lang-ml)) (quote remove-tag-set-append)) (define-specifier-tag (quote lang-or)) (set-face-font (quote default) "ori1Uni,uktal-12! " nil (quote (lang-or)) (quote remove-tag-set-append)) (define-specifier-tag (quote lang-ti)) (set-face-font (quote default) "FreeSerif-12" nil (quote (lang-ti)) (quote remove-tag-set-append))) (setq xft-debug-level 0))) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) (load-internal "[internal]") load-internal("/home/rtoy/.xemacs/init.el" t t t undecided) # bind (handler path nosuffix nomessage noerror filename) load("/home/rtoy/.xemacs/init.el" t t t) load-user-init-file() #<compiled-function (from "/home/rtoy/src/XEmacs/xemacs/lisp/startup.elc") nil "...(10)" [init-file-had-error load-user-init-file-p load-user-init-file nil] 2 0x6a0>() # (unwind-protect ...) call-with-condition-handler(#<compiled-function (from "/home/rtoy/src/XEmacs/xemacs/lisp/startup.elc") (#:load-init-gZK6A36gTed) "...(26)" [init-file-had-error user-init-file #:load-init-gZK6A36gTed 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 0x69f> #<compiled-function (from "/home/rtoy/src/XEmacs/xemacs/lisp/startup.elc") nil "...(10)" [init-file-had-error load-user-init-file-p load-user-init-file nil] 2 0x6a0>) # (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 " .�.�" [error-data data nil] 1)))) # bind (error-data) normal-top-level() # (condition-case ... . error) # (catch top-level ...) Aborted (core dumped) ================================================================ C backtrace: Program terminated with signal 6, Aborted. #0 0x00007fc7d8c2cd57 in kill () at ../sysdeps/unix/syscall-template.S:82 82 ../sysdeps/unix/syscall-template.S: No such file or directory. (gdb) bt #0 0x00007fc7d8c2cd57 in kill () at ../sysdeps/unix/syscall-template.S:82 #1 0x00000000004c1665 in fatal_error_signal (sig=6) at /home/rtoy/src/XEmacs/xemacs/src/emacs.c:3907 #2 <signal handler called> #3 0x00007fc7d8c2ca75 in *__GI_raise (sig=<optimized out>) at ../nptl/sysdeps/unix/sysv/linux/raise.c:64 #4 0x00007fc7d8c305c0 in *__GI_abort () at abort.c:92 #5 0x00000000004c2c35 in really_abort () at /home/rtoy/src/XEmacs/xemacs/src/emacs.c:4796 #6 0x00000000004c177c in assert_failed (file= 0x738f60 "/home/rtoy/src/XEmacs/xemacs/src/specifier.c", line=1166, expr= 0x714590 "RECORD_TYPEP (obj, lrecord_type_cons)") at /home/rtoy/src/XEmacs/xemacs/src/emacs.c:4093 #7 0x00000000004f3d70 in error_check_cons (obj=36845200, file= 0x738f60 "/home/rtoy/src/XEmacs/xemacs/src/specifier.c", line=1166) at /home/rtoy/src/XEmacs/xemacs/src/lisp.h:1931 #8 0x000000000065acf8 in define_specifier_tag (tag=39118104, device_predicate= 10725616, charset_predicate=36844888) at /home/rtoy/src/XEmacs/xemacs/src/specifier.c:1166 #9 0x000000000065aec3 in Fdefine_specifier_tag (tag=39118104, device_predicate=10725616, charset_predicate=36844888) at /home/rtoy/src/XEmacs/xemacs/src/specifier.c:1254 #10 0x00000000004cc1d0 in Feval (form=37002456) ---Type <return> to continue, or q <return> to quit--- at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3911 #11 0x00000000004c5ad9 in Fprogn (args=37003416) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:1024 #12 0x00000000004c6679 in Fwhile (args=37003440) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:1221 #13 0x00000000004cbf39 in Feval (form=37003464) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3882 #14 0x00000000004c5ad9 in Fprogn (args=37003512) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:1024 #15 0x00000000004c608f in FletX (args=37003536) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:1131 #16 0x00000000004cbf39 in Feval (form=37003560) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3882 #17 0x00000000004c5ad9 in Fprogn (args=37003584) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:1024 #18 0x00000000004c76ac in internal_catch (tag=39119160, func= 0x4c5a87 <Fprogn>, arg=37003584, threw=0x0, thrown_tag=0x0, backtrace_before_throw=0x0) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:1756 #19 0x00000000004c756b in Fcatch (args=37003656) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:1710 #20 0x00000000004cbf39 in Feval (form=37003680) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3882 #21 0x00000000004cc9cd in Feval (form=37007040) ---Type <return> to continue, or q <return> to quit--- at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3996 #22 0x00000000004cc9cd in Feval (form=37105904) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3996 #23 0x00000000004c5ad9 in Fprogn (args=37034640) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:1024 #24 0x00000000004cbf39 in Feval (form=37034664) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3882 #25 0x00000000004cc9cd in Feval (form=37119136) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3996 #26 0x00000000004c5ad9 in Fprogn (args=37071464) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:1024 #27 0x00000000004c5a17 in Fcond (args=37034112) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:999 #28 0x00000000004cbf39 in Feval (form=37118992) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3882 #29 0x00000000005a1b64 in readevalloop (readcharfun=29770160, sourcename= 31557528, evalfun=0x4cb82e <Feval>, printflag=0) at /home/rtoy/src/XEmacs/xemacs/src/lread.c:1479 #30 0x000000000059fb89 in Fload_internal (file=31557528, noerror=10723888, nomessage=10723888, nosuffix=10723888, codesys=10667344, used_codesys= 10725616) at /home/rtoy/src/XEmacs/xemacs/src/lread.c:784 #31 0x00000000004cd20e in Ffuncall (nargs=6, args=0x7fff33444d38) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:4165 ---Type <return> to continue, or q <return> to quit--- #32 0x000000000047cae5 in execute_optimized_program (program= 0xda63b8 "\306\r\307\"\310\034\211\036\034\253\f\016\034\307\r\t\b\n%\202\202", program_length=152, stack_depth=10, constants_data=0xc1e490) at /home/rtoy/src/XEmacs/xemacs/src/bytecode.c:933 #33 0x00000000004cb707 in funcall_compiled_function (fun=13870624, nargs=4, args=0x7fff33445260) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3746 #34 0x00000000004cd4c5 in Ffuncall (nargs=5, args=0x7fff33445258) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:4214 #35 0x000000000047cae5 in execute_optimized_program (program= 0x1b9a4b8 "\f\254\005\305\n!\024\v\254\005\306\f!\023\f\253\r\307\f!\253\b\310\fɉ\211$\210\v\253\025\f\253\006\v\f\230\254\r\307\v!\253\b\310\vɉ\211$\210\t?\255\t\312\030\310\313ɉ#)\207", program_length=65, stack_depth=5, constants_data=0xbff910) at /home/rtoy/src/XEmacs/xemacs/src/bytecode.c:933 #36 0x00000000004cb707 in funcall_compiled_function (fun=13794784, nargs=0, args=0x7fff33445750) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3746 #37 0x00000000004cd4c5 in Ffuncall (nargs=1, args=0x7fff33445748) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:4214 #38 0x000000000047cae5 in execute_optimized_program (program= 0x1be52e8 "\t\253\004\302 \210É\020\207", program_length=10, stack_depth= 2, constants_data=0xbff858) at /home/rtoy/src/XEmacs/xemacs/src/bytecode.c:933 #39 0x00000000004cb707 in funcall_compiled_function (fun=13794624, nargs=0, args=0x7fff33445c80) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3746 ---Type <return> to continue, or q <return> to quit--- #40 0x00000000004cd4c5 in Ffuncall (nargs=1, args=0x7fff33445c78) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:4214 #41 0x00000000004c850a in Fcall_with_condition_handler (nargs=2, args= 0x7fff33445c70) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:2355 #42 0x00000000004cc63a in Feval (form=11445240) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3938 #43 0x00000000004c7e2b in condition_case_1 (handlers=11445144, bfun= 0x4cb82e <Feval>, barg=11445240, hfun= 0x4c7f38 <run_condition_case_handlers>, harg=10725616) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:2176 #44 0x00000000004c8375 in condition_case_3 (bodyform=11445240, var=10725616, handlers=11445144) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:2258 #45 0x0000000000481453 in execute_rare_opcode (stack_ptr=0x7fff334462a8, stack_beg=0x7fff334462a0, stack_end=0x7fff334462c8, unused_program_ptr= 0x1bc5518 "\210\r\va\254\005\311\022\r\021)\n\253\003\t\025+\311\026\025\016\026\253\r\317 \320\016\027\256\003\321 Q\026\030\306\322!\210ʇ", opcode= Bcondition_case) at /home/rtoy/src/XEmacs/xemacs/src/bytecode.c:1530 #46 0x000000000047c194 in execute_optimized_program (program= 0x1bc54e8 "\306\307!\210\b\253\a\310\bɉ#\210ʉ\026\023\312\f\311a\253\004˪\002\f\033\032\031\v\035\016\024\253\t\f\253\006\314 \210\252\006\312\315Ώ\210\r\va\254\005\311\022\r\021)\n\253\003\t\025+\311\026\025\016\026\253\r\317 \320\016\027\256\003\321 Q\026\030\306\322!\210ʇ", program_length=90, stack_depth= 5, constants_data=0xbff988) ---Type <return> to continue, or q <return> to quit--- at /home/rtoy/src/XEmacs/xemacs/src/bytecode.c:818 #47 0x00000000004cb707 in funcall_compiled_function (fun=13794864, nargs=0, args=0x7fff334467a0) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3746 #48 0x00000000004cd4c5 in Ffuncall (nargs=1, args=0x7fff33446798) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:4214 #49 0x000000000047cae5 in execute_optimized_program (program= 0x1926938 "\fA\035\306\307\033\032\310\r!\025\t\311a\253\004\312 \210\313\314!\253\004\315 \210\313\316!\253\004\317 \210\313\314!\253\004\320 \210\321\b҉#\210\323 \210*\324 \210\313\325!\253\004\326 \210\327 \210r\330\331!q\210\332 \210\333\322!\210\016$\334a\253\005\016% \210\335 \210)\336 \337a\253\b\340 \254\004\341 \210\342 \210\322\026&\340 \255\004\343\307!)\207", program_length=122, stack_depth=4, constants_data=0xc03d40) at /home/rtoy/src/XEmacs/xemacs/src/bytecode.c:933 #50 0x00000000004cb707 in funcall_compiled_function (fun=13805824, nargs=0, args=0x7fff33446b70) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3746 #51 0x00000000004cc8aa in Feval (form=11418480) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3972 #52 0x00000000004c7e2b in condition_case_1 (handlers=11418456, bfun= 0x4cb82e <Feval>, barg=11418480, hfun= 0x4c7f38 <run_condition_case_handlers>, harg=10655344) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:2176 #53 0x00000000004c8375 in condition_case_3 (bodyform=11418480, var=10655344, handlers=11418456) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:2258 ---Type <return> to continue, or q <return> to quit--- #54 0x0000000000481453 in execute_rare_opcode (stack_ptr=0x7fff33447198, stack_beg=0x7fff33447190, stack_end=0x7fff334471c8, unused_program_ptr= 0x181f2a8 "\210\320\r!\025\t\253\r\335\336\337\t\340 \341 $!\026*\342\343!\210\b\253\005\342\300!\210\325\020\344 \210\016%\253\005\342\345!\210\325\026%\v\253\b\346\v＠\vA\"\210)\016+\255\003\347 \207", opcode=Bcondition_case) at /home/rtoy/src/XEmacs/xemacs/src/bytecode.c:1530 #55 0x000000000047c194 in execute_optimized_program (program= 0x181f248 "\n\253\005\306\307!\207\310\022\311\312!\253\t\313\314\311\312!!!\210\315 \211\034\253\025\fG\rGW\253\016\316\r!\316\f!k\253\005\317\f!\025)\320\r!\025\321 \210\322 \210\323\016(\253\004Ȫ\006\016)\255\002\324\325\"\210\326 \210\327 \210\325\033\330 \253\006\331 \210\252\006\332\333܏\210\320\r!\025\t\253\r\335\336\337\t\340 \341 $!\026*\342\343!\210\b\253\005\342\300!\210\325\020\344 \210\016%\253\005\342\345!\210\325\026%\v\253\b\346\v＠\vA\"\210)\016+\255\003\347 \207", program_length=161, stack_depth=7, constants_data=0xc05618) at /home/rtoy/src/XEmacs/xemacs/src/bytecode.c:818 #56 0x00000000004cb707 in funcall_compiled_function (fun=13810304, nargs=0, args=0x7fff33447580) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3746 #57 0x00000000004cc8aa in Feval (form=10831464) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:3972 #58 0x00000000004c7e2b in condition_case_1 (handlers=10709344, bfun= 0x4cb82e <Feval>, barg=10831464, hfun=0x49278f <cmd_error>, harg=10725616) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:2176 #59 0x0000000000492841 in top_level_1 (unused_dummy=10725616) ---Type <return> to continue, or q <return> to quit--- at /home/rtoy/src/XEmacs/xemacs/src/cmdloop.c:246 #60 0x00000000004c76ac in internal_catch (tag=10196560, func= 0x4927f8 <top_level_1>, arg=10725616, threw=0x0, thrown_tag=0x0, backtrace_before_throw=0x0) at /home/rtoy/src/XEmacs/xemacs/src/eval.c:1756 #61 0x0000000000492944 in initial_command_loop (load_me=10725616) at /home/rtoy/src/XEmacs/xemacs/src/cmdloop.c:316 #62 0x00000000004c03b2 in xemacs_21_5_b32_x86_64_unknown_linux (argc=1, argv= 0x7fff33447d08, unused_envp=0x0, restart=0) at /home/rtoy/src/XEmacs/xemacs/src/emacs.c:2742 #63 0x00000000004c0db7 in main (argc=1, argv=0x7fff33447d08, unused_envp= 0x7fff33447d18) at /home/rtoy/src/XEmacs/xemacs/src/emacs.c:3190 (gdb) (gdb) _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta