Newer
Older
(require 'ess-help)
(defun swankr-operator-before-point ()
(ignore-errors
(save-excursion
(backward-up-list 1)
(slime-symbol-at-point))))
(add-hook 'R-mode-hook
(defun swankr/R-mode-hook ()
(slime-mode 1)
(set (make-local-variable 'slime-operator-before-point-function) 'swankr-operator-before-point)
(local-set-key (kbd "(") 'slime-space)))