       ;; we ate it all and didn't do anything with it
       nil)))
 
-(defun slate-filter (process string)
+;(defun slate-inf-sentinel ())
+
+(defun slate-inf-filter (process string)
   "Make sure that the window continues to show the most recently output
 text."
   (let ((where 0) ch command-str)

    (process-send-string
     inferior-slate-buffer-name
     (if (and (>= (point) 2) (equal (preceding-char) ?.)) "\n" ".\n")))
  (set-process-filter *slate-process* 'slate-filter))

(defun slate-quit ()
  "Terminate the Slate session and associated process."

      (setq mode-name "Slate Workspace")
      (font-lock-mode))
    (pop-to-buffer "*slate-scratch*")))

(defun slate-follow-name-at-point ()
  "Follows a file reference of the form filename:linenumber at/after the point."
  (interactive)
  (push-mark)
  (setq filename
	(save-excursion
	  (skip-chars-forward "^:")
	  (setq end (point))
	  (skip-chars-backward "^ ")
	  (buffer-substring-no-properties (point) end)))
  (setq line-number
	(save-excursion
	  (skip-chars-forward "^:")
	  (forward-char)
	  (string-to-number (buffer-substring-no-properties (point) (progn (forward-word 1) (point))))))
  ;(find-file-at-point)
  (find-file filename)
  (goto-line line-number))

(defun inf-slate (cmd &rest args)
  "Run an inferior Slate process `*slate-process*'.
