[AUCTeX-devel] Problems with tex-site.el.in

[Reiner Steib]

Hi,

I'm not sure if the current code in CVS is supposed to build at all
outside David's machine.  Anyhow, here we go...

With current AUCTeX CVS and Emacs 21.3, I get:

$ ./autogen.sh
$ /configure --prefix=/usr/local \
  --with-auto-dir=/usr/local/share/emacs/site-lisp/auctex/auto \
  --with-lispdir=/usr/local/share/emacs/site-lisp
$ make
[...]
While compiling toplevel forms in file [...]/auctex/tex.el:
  !! Wrong type argument ((listp 65))

With "emacs-cvs -Q -l lpath.el" I get after `M-: (require 'tex-site)
RET':

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument listp 65)
  car(65)
  (list (quote const) (car x))
  (lambda (x) (list (quote const) (car x)))(65)
  mapcar((lambda (x) (list (quote const) (car x))) "Alist of built-in TeX modes 
and their load files.")
  (cons (quote set) (mapcar (lambda ... ...) TeX-mode-alist))
  (custom-declare-variable (quote TeX-modes) (quote (mapcar ... 
TeX-mode-alist)) "List of modes provided by AUCTeX.\n\nThis variable can't be 
set normally, use customize for it." :type (cons (quote set) (mapcar ... 
TeX-mode-alist)) :set (quote TeX-modes-set) :initialize (lambda (var value) 
(custom-initialize-reset var value) (dolist ... ...)))
  (defcustom TeX-modes (mapcar (quote car) TeX-mode-alist) "List of modes 
provided by AUCTeX.\n\nThis variable can't be set normally, use customize for 
it." :type (cons (quote set) (mapcar ... TeX-mode-alist)) :set (quote 
TeX-modes-set) :initialize (lambda (var value) (custom-initialize-reset var 
value) (dolist ... ...)))
  eval-buffer(#<buffer  *load*> nil "tex-site" nil t)
  ;;; Reading at buffer position 3616
  
load-with-code-conversion("/home/dept/ste/src/links/auctex/auctex/tex-site.el" 
"tex-site" nil t)
  require(tex-site)
  eval((require (quote tex-site)))
  eval-expression((require (quote tex-site)) nil)
  call-interactively(eval-expression)
--8<---------------cut here---------------end--------------->8---

I found out that this is due to the bogus defcustom of
`TeX-mode-alist' (value and doc-string exchanged):

,----[ C-h v TeX-mode-alist RET ]
| TeX-mode-alist's value is 
| "Alist of built-in TeX modes and their load files."
| 
| ((tex-mode . tex-mode) (plain-tex-mode . tex-mode) (texinfo-mode .
| texinfo-mode) (latex-mode . tex-mode) (doctex-mode . tex-mode))
`----

--8<---------------cut here---------------start------------->8---
--- tex-site.el.in      28 Apr 2005 12:53:34 +0200      1.21
+++ tex-site.el.in      28 Apr 2005 18:55:13 +0200      
@@ -65,12 +65,12 @@
   :type 'directory)
 
 (defconst TeX-mode-alist
-  "Alist of built-in TeX modes and their load files."
   '((tex-mode . tex-mode)
     (plain-tex-mode . tex-mode)
     (texinfo-mode . texinfo-mode)
     (latex-mode . tex-mode)
-    (doctex-mode . tex-mode)))
+    (doctex-mode . tex-mode))
+  "Alist of built-in TeX modes and their load files.")
 
 (defun TeX-modes-set (var value &optional update)
   "Set VAR (which should be `TeX-modes') to VALUE.
--8<---------------cut here---------------end--------------->8---

The next problem is, that `doctex-mode' is not defined in Emacs < 22
(or XEmacs most probably).   We should probably check this:

--8<---------------cut here---------------start------------->8---
@@ -85,7 +85,8 @@
     (while list
       (setq elt (car (pop list)))
       (when (or update (null (get elt 'tex-saved)))
-       (put elt 'tex-saved (symbol-function elt)))
+       (when (fboundp elt)
+         (put elt 'tex-saved (symbol-function elt))))
       (fset elt
            (if (memq elt value)
                (intern (concat "TeX-" (symbol-name elt)))
--8<---------------cut here---------------end--------------->8---

I will check in these patches now.  I hope this is correct.

Next one: Starting Emacs 21.3 and opening a LaTeX file, I get:

,----
| File mode specification error: (void-function tex-mode)
`----

and `C-h f tex-mode RET' gives:

,----
| describe-function: Symbol's function definition is void: TeX-tex-mode
`----

I don't know how to fix this.  Probably something is still wrong in
`TeX-mode-alist' and/or `TeX-modes-set'.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/