xemacs octave-mod

[Goesele]

Hi,

in the past I was using octave-mode without problem under XEmacs.

After doing a Debian upgrade and moving to octave3.0 octave-mode doesn't
work any more under XEmacs (21.4.21). The error occurs even if I start XEmacs
without init-files.

If I open an octave file I get the following error:

File mode specification error: (error "menu name (first element) must be a 
string" (quote ("Lines" ["Previous Code Line" octave-previous-code-line t] 
["Next Code Line" octave-next-code-line t] ["Begin of Continuation" 
octave-beginning-of-line t] ["End of Continuation" octave-end-of-line t] 
["Split Line at Point" octave-indent-new-comment-line t])))
Loading octave-mod...done
Loading octave-mod...

If I try to enter octave-mode manually I get:

Debugger entered--Lisp error: (error "menu name (first element) must be a 
string" (quote ("Lines" ["Previous Code Line" octave-previous-code-line t] 
["Next Code Line" octave-next-code-line t] ["Begin of Continuation" 
octave-beginning-of-line t] ["End of Continuation" octave-end-of-line t] 
["Split Line at Point" octave-indent-new-comment-line t])))
  signal(error ("menu name (first element) must be a string" (quote ("Lines" 
... ... ... ... ...))))
  check-menu-syntax((quote ("Lines" ["Previous Code Line" 
octave-previous-code-line t] ["Next Code Line" octave-next-code-line t] ["Begin 
of Continuation" octave-beginning-of-line t] ["End of Continuation" 
octave-end-of-line t] ["Split Line at Point" octave-indent-new-comment-line 
t])))
  check-menu-syntax(("Octave" (quote ("Lines" ... ... ... ... ...)) (quote 
("Blocks" ... ... ... ... ... ...)) (quote ("Functions" ... ... ... ... ...)) 
"-" (quote ("Debug" ... ... ... ... ... ... ...)) "-" ["Indent Line" 
indent-according-to-mode t] ["Complete Symbol" octave-complete-symbol t] "-" 
["Toggle Abbrev Mode" abbrev-mode t] ["Toggle Auto-Fill Mode" auto-fill-mode t] 
"-" ["Submit Bug Report" octave-submit-bug-report t] "-" ["Describe Octave 
Mode" octave-describe-major-mode t] ["Lookup Octave Index" octave-help t]) nil)
  add-submenu(nil ("Octave" (quote ("Lines" ... ... ... ... ...)) (quote 
("Blocks" ... ... ... ... ... ...)) (quote ("Functions" ... ... ... ... ...)) 
"-" (quote ("Debug" ... ... ... ... ... ... ...)) "-" ["Indent Line" 
indent-according-to-mode t] ["Complete Symbol" octave-complete-symbol t] "-" 
["Toggle Abbrev Mode" abbrev-mode t] ["Toggle Auto-Fill Mode" auto-fill-mode t] 
"-" ["Submit Bug Report" octave-submit-bug-report t] "-" ["Describe Octave 
Mode" octave-describe-major-mode t] ["Lookup Octave Index" octave-help t]) nil)
  add-menu(nil "Octave" ((quote ("Lines" ... ... ... ... ...)) (quote ("Blocks" 
... ... ... ... ... ...)) (quote ("Functions" ... ... ... ... ...)) "-" (quote 
("Debug" ... ... ... ... ... ... ...)) "-" ["Indent Line" 
indent-according-to-mode t] ["Complete Symbol" octave-complete-symbol t] "-" 
["Toggle Abbrev Mode" abbrev-mode t] ["Toggle Auto-Fill Mode" auto-fill-mode t] 
"-" ["Submit Bug Report" octave-submit-bug-report t] "-" ["Describe Octave 
Mode" octave-describe-major-mode t] ["Lookup Octave Index" octave-help t]))
  easy-menu-add(("Octave" (quote ("Lines" ... ... ... ... ...)) (quote 
("Blocks" ... ... ... ... ... ...)) (quote ("Functions" ... ... ... ... ...)) 
"-" (quote ("Debug" ... ... ... ... ... ... ...)) "-" ["Indent Line" 
indent-according-to-mode t] ["Complete Symbol" octave-complete-symbol t] "-" 
["Toggle Abbrev Mode" abbrev-mode t] ["Toggle Auto-Fill Mode" auto-fill-mode t] 
"-" ["Submit Bug Report" octave-submit-bug-report t] "-" ["Describe Octave 
Mode" octave-describe-major-mode t] ["Lookup Octave Index" octave-help t]) 
#<keymap size 16 0x6b9d>)
  octave-add-octave-menu()
  #<compiled-function nil "...(147)" [local-abbrev-table octave-abbrev-table 
mode-name major-mode octave-mode-map paragraph-start kill-all-local-variables 
use-local-map octave-mode "Octave" set-syntax-table make-local-variable 
indent-line-function octave-indent-line comment-start comment-end "" 
comment-column 32 comment-start-skip "\\s<+\\s-*" comment-indent-function 
octave-comment-indent parse-sexp-ignore-comments t "\\s-*$\\|" 
paragraph-separate paragraph-ignore-fill-prefix fill-paragraph-function 
octave-fill-paragraph adaptive-fill-regexp nil fill-column 72 
normal-auto-fill-function octave-auto-fill font-lock-defaults 
(octave-font-lock-keywords nil nil) imenu-generic-expression 
octave-add-octave-menu octave-initialize-completions run-mode-hooks 
octave-mode-hook octave-mode-syntax-table octave-comment-start page-delimiter 
octave-mode-imenu-generic-expression imenu-case-fold-search] 2 
("/usr/share/xemacs21/site-lisp/octave3.0-emacsen/octave-mod.elc" . 12584) 
nil>()
  call-interactively(octave-mode)
  command-execute(octave-mode t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)

Under emacs octave-mod.el works well.

Any suggestion?

Thanks a lot in advance!

Andreas Gösele

-- 
Andreas Gösele
Institut für Gesellschaftspolitik
Kaulbachstr. 31a
80539 München