swankr.el

   1 (require 'ess-help)
   2
   3 (defun swankr-operator-before-point ()
   4   (ignore-errors
   5     (save-excursion
   6       (backward-up-list 1)
   7       (slime-symbol-at-point))))
   8
   9 (add-hook 'R-mode-hook
  10           (defun swankr/R-mode-hook ()
  11             (slime-mode 1)
  12             (set (make-local-variable 'slime-operator-before-point-function) 'swankr-operator-before-point)
  13             (local-set-key (kbd "(") 'slime-space)))