Xemacs21 problems with ESS 5.9.1 ?? [FWD from ESS-debian]

[Sebastian P. Luque]

On Thu, 03 Jun 2010 12:09:14 -0500,
"Sebastian P. Luque" <spluque at gmail.com> wrote:

> While compiling toplevel forms in file
> /usr/share/xemacs21/site-lisp/ess/ess-rutils.el: !! Invalid read
> syntax ((")"))
>>> Error occurred processing ess-rutils.el:
> Invalid read syntax: ")"

The problem seems to be with these two sections, which XEmacs doesn't
like for some reason:

---<--------------------cut here---------------start------------------->---
(defun ess-rutils-keys ()
  "Provide key bindings."
  (interactive)
  (when ess-rutils-keys
    ;; Some key bindings suggested by Patrick Dreschler.
    (define-key inferior-ess-mode-map [(control c) (control .) (l)]
      'ess-rutils-localpkgs)
    (define-key inferior-ess-mode-map [(control c) (control .) (r)]
      'ess-rutils-repospkgs)
    (define-key inferior-ess-mode-map [(control c) (control .) (u)]
      'ess-rutils-updatepkgs)
    (define-key inferior-ess-mode-map [(control c) (control .) (a)]
      'ess-rutils-apropos)
    (define-key inferior-ess-mode-map [(control c) (control .) (m)]
      'ess-rutils-rmall)
    (define-key inferior-ess-mode-map [(control c) (control .) (o)]
      'ess-rutils-objs)
    (define-key inferior-ess-mode-map [(control c) (control .) (w)]
      'ess-rutils-loadwkspc)
    (define-key inferior-ess-mode-map [(control c) (control .) (s)]
      'ess-rutils-savewkspc)
    (define-key inferior-ess-mode-map [(control c) (control .) (d)]
      'ess-change-directory)
    (define-key inferior-ess-mode-map [(control c) (control .) (H)]
      'ess-rutils-htmldocs)))

(when inferior-ess-mode-map
  (define-key-after
    (lookup-key inferior-ess-mode-map [menu-bar iESS])
    [sep]
    '("--") 'ess-submit-bug-report)
  (define-key-after
    (lookup-key inferior-ess-mode-map [menu-bar iESS])
    [Rutils]
    (cons "Rutils" (make-sparse-keymap "Rutils"))
    'ess-submit-bug-report)
  (define-key inferior-ess-mode-map [menu-bar iESS Rutils htmldocs]
    '("Browse HTML" . ess-rutils-htmldocs))
  (define-key inferior-ess-mode-map [menu-bar iESS Rutils apropos]
    '("Apropos" . ess-rutils-apropos))
  (define-key inferior-ess-mode-map [menu-bar iESS Rutils chgdir]
    '("Change directory" . ess-change-directory))
  (define-key inferior-ess-mode-map [menu-bar iESS Rutils savewkspc]
    '("Save workspace" . ess-rutils-savewkspc))
  (define-key inferior-ess-mode-map [menu-bar iESS Rutils loadwkspc]
    '("Load workspace" . ess-rutils-loadwkspc))
  (define-key inferior-ess-mode-map [menu-bar iESS Rutils updatepkgs]
    '("Update packages" . ess-rutils-updatepkgs))
  (define-key inferior-ess-mode-map [menu-bar iESS Rutils repospkgs]
    '("Packages in repositories" . ess-rutils-repospkgs))
  (define-key inferior-ess-mode-map [menu-bar iESS Rutils localpkgs]
    '("Local packages" . ess-rutils-localpkgs))
  (define-key inferior-ess-mode-map [menu-bar iESS Rutils rmall]
    '("Remove objects" . ess-rutils-rmall))
  (define-key inferior-ess-mode-map [menu-bar iESS Rutils objs]
    '("Manage objects" . ess-rutils-objs)))
---<--------------------cut here---------------end--------------------->---

In the first section, it seems as if that way of defining keys is not
accepted in XEmacs.  And in the second, `define-key-after' is unknown in
XEmacs.


-- 
Seb