Re: [AUCTeX] auctex 11.82 and carbon xemacs

[Thomas A. Schmitz]

On Mar 15, 2006, at 2:54 PM, David Kastrup wrote:

> Ralf Angeli <address@hidden> writes:
>
> > * David Kastrup (2006-03-15) writes:
> >
> > > Ralf Angeli <address@hidden> writes:
> > >
> > > > As a workaround it will probably be enough to refrain from
> > > > activating the LaTeX tool bar.  (Activation has to be done manually
> > > > in 11.82.)
> > >
> > > Ah, ok.  But we changed this in CVS already, didn't we?
> >
> > Yes, but apparently not for XEmacs.
>
> Not?  Then what triggered Thomas' error?
>
> > It's maybe not too bad an idea to leave it that way for now if it
> > makes trouble with the Carbon port.
>
> I have no reasonable plan of what would lead to the best results
> soonest where XEmacs is concerned.  IIRC, the XEmacs Carbon port was
> considered to be one of the more unstable things to have around.  If
> it is just that platform that is failing, I don't think we are doing
> people a particular favor by hiding this.
>
> --  

XEmacs with auctex from sumo package ("1.46"):
context files: fontification buggy, fails at beginning of lines
latex files: opened and fontified correctly

XEmacs with auctex 11.82 and -vanilla:
context files: opened and fontified correctly
latex files: same hard crash as without -vanilla

XEmacs with auctex from cvs: fails to fontify both context and latex  
files, gives following error-messages (result identical when started  
with -vanilla):

(1) (file-mode-spec/warning) Error in File mode specification: Wrong  
type argument: arrayp, nil

Backtrace follows:

  # bind (size fontobj)
  set-font-size(nil 14)
  # bind (fo)
  (let ((fo (font-create-object f d))) (set-font-size fo 14) (font- 
create-name fo d))
  # bind (d f)
  (lambda (f d) (let ((fo (font-create-object f d))) (set-font-size  
fo 14) (font-create-name fo d)))("Andale Mono:13:b" #<carbon-device  
on "carbon" 0xb2d>)
  # bind (mapper G6074 G6073 devtype tag-set x G6072 ffpdev devtype- 
spec prop inst-list locale)
  frob-face-inst-list(global (((custom) . "Andale Mono:13:b")) font  
window-system)
  # bind (subprop change-to mapper G6074 G6073 devtype tag-set x  
G6072 ffpdev devtype-spec prop inst-list locale)
  frob-face-inst-list(global ((nil . [#<face font-latex-sectioning-5- 
face "Face for sectioning commands at level 5.">]) ((custom) .  
"Andale Mono:13")) font window-system)
  # bind (thunk inst-list locale sp)
  frob-locale(#<font-specifier global=([#<face font-latex- 
sectioning-5-face "Face for sectioning commands at level 5.">]  
((custom) . "Andale Mono:13")) fallback=#<font-specifier  
global=<unspecified> fallback=(((carbon) . "Andale Mono:13")  
((carbon) . "Monaco:10") ((tty) . "normal")) 0x1e9> 0x17d2> global  
((nil . [#<face font-latex-sectioning-5-face "Face for sectioning  
commands at level 5.">]) ((custom) . "Andale Mono:13")) (font .  
window-system))
  # bind (ms-this-spec ms-specs ms-result ms-exact-p ms-tag-set ms- 
maparg ms-locale ms-func ms-specifier)
  map-specifier(#<font-specifier global=([#<face font-latex- 
sectioning-5-face "Face for sectioning commands at level 5.">]  
((custom) . "Andale Mono:13")) fallback=#<font-specifier  
global=<unspecified> fallback=(((carbon) . "Andale Mono:13")  
((carbon) . "Monaco:10") ((tty) . "normal")) 0x1e9> 0x17d2> frob- 
locale nil (font . window-system) nil nil)
  # bind (locale)
  map-over-locales(nil)
  # bind (orig-instance check-differences domain do-later-stages  
ffpdev)
  # (unwind-protect ...)
  # bind (--letf-save--6069 --letf-bound--6070)
  # (unwind-protect ...)
  # bind (--letf-save--6065 --letf-bound--6066)
  # (unwind-protect ...)
  # bind (--letf-save--6061 --letf-bound--6062)
  # (unwind-protect ...)
  # bind (--letf-save--6057 --letf-bound--6058)
  # (unwind-protect ...)
  # bind (--letf-save--6053 --letf-bound--6054 standard-face-mapping  
frob-mapping tty-props win-prop frobbed-face unfrobbed-face exact-p  
tag-set locale face)
  Face-frob-property(font-latex-sectioning-4-face nil nil nil nil  
nil font nil (lambda (f d) (let ((fo (font-create-object f d))) (set- 
font-size fo 14) (font-create-name fo d))) nil)
  # bind (exact-p tags locale size face)
  make-face-size(font-latex-sectioning-4-face 14)
  # bind (size f-inherit face-name num --dotimes-temp--14034 num  
height-scale max)
  font-latex-make-sectioning-faces(5)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  load-internal("font-latex" nil nil nil binary)
  # bind (path handler filename nosuffix nomessage noerror file)
  load("font-latex" nil nil nil)
  # (unwind-protect ...)
  font-latex-setup()
  VirTeX-common-initialization()
  plain-TeX-common-initialization()
  ConTeXt-mode-common-initialization()
  context-en-mode()
  context-mode()
  tex-mode()
  # bind (alist mode name keep-going)
  # (unwind-protect ...)
  # bind (just-from-file-name)
  set-auto-mode()
  #<compiled-function nil "...(5)" [set-auto-mode t] 1>()
  # (unwind-protect ...)
  call-with-condition-handler(#<compiled-function  
(__call_trapping_errors_arg__) "... 
(17)" [__call_trapping_errors_arg__ errstr error-message-string lwarn  
file-mode-spec warning "Error in %s: %s\n\nBacktrace follows:\n\n%s"  
"File mode specification" backtrace-in-condition-handler-eliminating- 
handler] 8> #<compiled-function nil "...(5)" [set-auto-mode t] 1>)
  # (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 "quintcont.tex"> "/Users/tas/ 
Documents/share/Lit/authors/quintcont.tex" nil nil "/Users/tas/ 
Documents/share/Lit/authors/quintcont.tex" (2708627 234881031))
  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("~/Documents/share/Lit/authors/quintcont.tex"  
nil nil t)
  # bind (wildcards codesys filename)
  #<compiled-function (filename &optional codesys wildcards) "... 
(77)" [wildcards filename coding-system-for-read codesys bufname  
value get-coding-system find-file-noselect nil file-exists-p buffer- 
file-name local-variable-p buffer-file-coding-system switch-to-buffer  
mapcar] 6 1074466 (list (read-file-name "Find file: ") (and current- 
prefix-arg (read-coding-system "Coding system: ")) t)>("~/Documents/ 
share/Lit/authors/quintcont.tex" nil t)
  call-interactively(find-file)
  # (condition-case ... . error)
  # (catch top-level ...)


(2) (file-mode-spec/warning) Error in File mode specification: Wrong  
type argument: arrayp, nil

Backtrace follows:

  # bind (size fontobj)
  set-font-size(nil 14)
  # bind (fo)
  (let ((fo (font-create-object f d))) (set-font-size fo 14) (font- 
create-name fo d))
  # bind (d f)
  (lambda (f d) (let ((fo (font-create-object f d))) (set-font-size  
fo 14) (font-create-name fo d)))("Andale Mono:13:b" #<carbon-device  
on "carbon" 0xb2d>)
  # bind (mapper G6074 G6073 devtype tag-set x G6072 ffpdev devtype- 
spec prop inst-list locale)
  frob-face-inst-list(global (((custom) . "Andale Mono:13:b")) font  
window-system)
  # bind (subprop change-to mapper G6074 G6073 devtype tag-set x  
G6072 ffpdev devtype-spec prop inst-list locale)
  frob-face-inst-list(global ((nil . [#<face font-latex-sectioning-5- 
face "Face for sectioning commands at level 5.">]) ((custom) .  
"Andale Mono:13")) font window-system)
  # bind (thunk inst-list locale sp)
  frob-locale(#<font-specifier global=([#<face font-latex- 
sectioning-5-face "Face for sectioning commands at level 5.">]  
((custom) . "Andale Mono:13")) fallback=#<font-specifier  
global=<unspecified> fallback=(((carbon) . "Andale Mono:13")  
((carbon) . "Monaco:10") ((tty) . "normal")) 0x1e9> 0x17d2> global  
((nil . [#<face font-latex-sectioning-5-face "Face for sectioning  
commands at level 5.">]) ((custom) . "Andale Mono:13")) (font .  
window-system))
  # bind (ms-this-spec ms-specs ms-result ms-exact-p ms-tag-set ms- 
maparg ms-locale ms-func ms-specifier)
  map-specifier(#<font-specifier global=([#<face font-latex- 
sectioning-5-face "Face for sectioning commands at level 5.">]  
((custom) . "Andale Mono:13")) fallback=#<font-specifier  
global=<unspecified> fallback=(((carbon) . "Andale Mono:13")  
((carbon) . "Monaco:10") ((tty) . "normal")) 0x1e9> 0x17d2> frob- 
locale nil (font . window-system) nil nil)
  # bind (locale)
  map-over-locales(nil)
  # bind (orig-instance check-differences domain do-later-stages  
ffpdev)
  # (unwind-protect ...)
  # bind (--letf-save--6069 --letf-bound--6070)
  # (unwind-protect ...)
  # bind (--letf-save--6065 --letf-bound--6066)
  # (unwind-protect ...)
  # bind (--letf-save--6061 --letf-bound--6062)
  # (unwind-protect ...)
  # bind (--letf-save--6057 --letf-bound--6058)
  # (unwind-protect ...)
  # bind (--letf-save--6053 --letf-bound--6054 standard-face-mapping  
frob-mapping tty-props win-prop frobbed-face unfrobbed-face exact-p  
tag-set locale face)
  Face-frob-property(font-latex-sectioning-4-face nil nil nil nil  
nil font nil (lambda (f d) (let ((fo (font-create-object f d))) (set- 
font-size fo 14) (font-create-name fo d))) nil)
  # bind (exact-p tags locale size face)
  make-face-size(font-latex-sectioning-4-face 14)
  # bind (size f-inherit face-name num --dotimes-temp--14034 num  
height-scale max)
  font-latex-make-sectioning-faces(5)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  load-internal("font-latex" nil nil nil binary)
  # bind (path handler filename nosuffix nomessage noerror file)
  load("font-latex" nil nil nil)
  # (unwind-protect ...)
  font-latex-setup()
  VirTeX-common-initialization()
  LaTeX-common-initialization()
  latex-mode()
  tex-mode()
  # bind (alist mode name keep-going)
  # (unwind-protect ...)
  # bind (just-from-file-name)
  set-auto-mode()
  #<compiled-function nil "...(5)" [set-auto-mode t] 1>()
  # (unwind-protect ...)
  call-with-condition-handler(#<compiled-function  
(__call_trapping_errors_arg__) "... 
(17)" [__call_trapping_errors_arg__ errstr error-message-string lwarn  
file-mode-spec warning "Error in %s: %s\n\nBacktrace follows:\n\n%s"  
"File mode specification" backtrace-in-condition-handler-eliminating- 
handler] 8> #<compiled-function nil "...(5)" [set-auto-mode t] 1>)
  # (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 "quintus.tex"> "/Users/tas/Documents/ 
share/Lit/authors/quintus.tex" nil nil "/Users/tas/Documents/share/ 
Lit/authors/quintus.tex" (2745650 234881031))
  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("~/Documents/share/Lit/authors/quintus.tex" nil  
nil t)
  # bind (wildcards codesys filename)
  #<compiled-function (filename &optional codesys wildcards) "... 
(77)" [wildcards filename coding-system-for-read codesys bufname  
value get-coding-system find-file-noselect nil file-exists-p buffer- 
file-name local-variable-p buffer-file-coding-system switch-to-buffer  
mapcar] 6 1074466 (list (read-file-name "Find file: ") (and current- 
prefix-arg (read-coding-system "Coding system: ")) t)>("~/Documents/ 
share/Lit/authors/quintus.tex" nil t)
  call-interactively(find-file)
  # (condition-case ... . error)
  # (catch top-level ...)