       (font-lock-mode))
     (pop-to-buffer "*slate-scratch*")))
 
-(defun slate-run-code-at-point ()
+(defun slate-run-overlay-at-point ()
   (interactive)
   (let* ((overlays (overlays-at (point)))
 	 (first-overlay (car overlays))


(defvar slate-frameref-keymap (copy-keymap slate-inf-mode-map))
(set-keymap-parent slate-frameref-keymap slate-inf-mode-map)
(define-key slate-frameref-keymap [return] 'slate-run-code-at-point)
(define-key slate-frameref-keymap [mouse-1] 'slate-run-code-at-point)

(defvar slate-restart-keymap (copy-keymap slate-inf-mode-map))
(set-keymap-parent slate-restart-keymap slate-inf-mode-map)
(define-key slate-restart-keymap [return] 'slate-run-code-at-point)
(define-key slate-restart-keymap [mouse-1] 'slate-run-code-at-point)

(defconst slate-inf-font-lock-keywords
  `((,slate-prompt-regexp . 'comint-highlight-prompt)	; normal prompt

  "Performs `slate-eval-region' on the current region and inserts the output
into the current buffer after the cursor."
  (interactive "r")
  (slate-ensure-running)
  (set-process-filter *slate-process*
		      (lambda (proc string) (insert string)))
  (save-excursion
    (goto-char end)
    (slate-backward-whitespace)
    (slate-send-input (buffer-substring-no-properties start (point)) t)
    (accept-process-output *slate-process*))
  (set-process-filter *slate-process* 'slate-inf-filter))

(defun slate-quit ()
